原创主图飞越彩泓极品与大家分享（源码）无未来函数

近期在家休假，闲来无事，把十几年前唐能通大师的一些文章和作品拿来翻阅，偶有灵感，特别制作了这个主图，暂命名飞越彩泓。还是有点不舒服有点头疼，先上图，明天再续。。。。。。

R1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));

R2:=(REF(R1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

R3:=(REF(R2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

R4:=(REF(R3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

R5:=(REF(R4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

R6:=(REF(R5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

R7:=(REF(R6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

R8:=(REF(R7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

R9:=(REF(R8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

RA:=(REF(R9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

RB:=(REF(RA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

RC:=(REF(RB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

RD:=(CLOSE

RE:=(REF(RD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

RF:=(REF(RE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

R10:=(REF(RF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

R11:=(REF(R10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

R12:=(REF(R11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

R13:=(REF(R12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

R14:=(REF(R13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

R15:=(REF(R14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

R16:=(REF(R15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

R17:=(REF(R16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

R18:=(REF(R17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

R19:=REF(RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,1) AND R1;

R1A:=((REF(R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,1)) AND RD);

短买春:R19,NODRAW,COLOR00DD00;

秋离场:R1A,NODRAW,COLOR2288EE;

红持股:R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,NODRAW,COLOR0000FF;

急速超跌关注:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100<-14,COLORBBBBBB,NODRAW;

Q1:=CONST(IF(短买春,0,IF(秋离场,180,IF(红持股,220,IF(急速超跌关注,150,100))))),NODRAW;

Q2:=CONST(IF(短买春,150,IF(秋离场,100,IF(红持股,0,IF(急速超跌关注,150,100))))),NODRAW;

Q3:=CONST(IF(短买春,0,IF(秋离场,50,IF(红持股,50,IF(急速超跌关注,150,100))))),NODRAW;

DRAWGBK(C>0,RGB(Q1,Q2,Q3),RGB(0,50,50),0,' ',0);

{彩色K线}

TYX3:=MA(REF(HHV((C+L+O+H)/4,30),1),3);

TYX4:=MA((C+L+O+H)/4,13);

TYX5:=EMA((C+L+O+H)/4,21);

{空心红}

STICKLINE(CO,H,L,0,0),COLORRED;

STICKLINE(CO,C,O,3,1),COLORRED;

{深绿}

STICKLINE(C

{蓝}

STICKLINE(C>TYX5 AND C

{黄}

STICKLINE(C>TYX5 AND C>O,H,L,0,0 ),COLOR00EEFF;

STICKLINE(C>TYX5 AND C>O,C,O,3,0 ),COLOR00AAFF;

STICKLINE(C>TYX5 AND C>O,C,O,2,0 ),COLOR00CCFF;

STICKLINE(C>TYX5 AND C>O,C,O,1,0 ),COLOR00EEFF;

{粉红}

STICKLINE(C>TYX4 AND C>O,H,L,0,0),COLORFF66AA;

STICKLINE(C>TYX4 AND C>O,C,O,3,0 ),COLORFF11FF;

STICKLINE(C>TYX4 AND C>O,C,O,2,0 ),COLORFF44FF;

STICKLINE(C>TYX4 AND C>O,C,O,1,0 ),COLORFF66FF;

{亮灰}

STICKLINE(C>TYX4 AND C

{深红}

STICKLINE(C>TYX3 AND C>O,H,L,0,0),COLOR0000DD;

STICKLINE(C>TYX3 AND C>O,C,O,3,0),COLOR000099;

STICKLINE(C>TYX3 AND C>O,C,O,2,0),COLOR0000BB;

STICKLINE(C>TYX3 AND C>O,C,O,1,0),COLOR0000DD;

MA5:MA(CLOSE,5),COLORWHITE,LINETHICK2;

MA10:MA(CLOSE,10),COLORYELLOW,LINETHICK2;

MA20:MA(CLOSE,20),COLORMAGENTA,LINETHICK2;

MA40:MA(CLOSE,40),COLORF0F000,LINETHICK2;

MA60:MA(CLOSE,60),COLORGREEN,LINETHICK2;

MA120:MA(CLOSE,120),COLORBROWN,LINETHICK2;

MA250:MA(CLOSE,250),COLORBLUE,LINETHICK2;

MA600:MA(CLOSE,300),COLORRED,LINETHICK2;

DRAWICON(CROSS(MA60,MA120),MA60,1); {60日上穿120日做记号}

DRAWICON(CROSS(MA60,MA250),MA60,1); {60日上穿250日做记号}

DRAWICON(CROSS(MA60,MA600),MA60,1); {60日上穿600日做记号}

DRAWICON(CROSS(MA120,MA250),MA120,1);{120日上穿250日做记号}

DRAWICON(CROSS(MA120,MA600),MA120,1);{120日上穿600日做记号}

DRAWICON(CROSS(MA250,MA600),MA250,1); {250日上穿600日做记号}

反弹托:=MA5>MA20 AND MA5>MA20 AND MA20

月价托:=MA5>MA20 AND MA5>MA10 AND CROSS(MA10,MA20);

季价托:=MA20>MA60 AND MA20>MA40 AND CROSS(MA40,MA60);

短长价托:=MA5>MA60 AND MA5>MA10 AND CROSS(MA10,MA60);

半年托:=MA60>MA120 AND CROSS(MA60,MA120);

熊来:=MA60

年托:=MA120>MA250 AND CROSS(MA120,MA250);

月蜘蛛:=MA5>MA10 AND MA10>MA20 AND CROSS(MA5,MA20)AND CROSS(MA10,MA20);

DRAWTEXT(CROSS(MA250,MA600),MA250,'飞越彩泓'),COLORMAGENTA,LINETHICK4;

DRAWTEXT(月蜘蛛,L-0.12,'金蜘蛛'),COLOR0011FF;

STICKLINE(月蜘蛛,H,L,0.5,1),COLOR0011FF;

STICKLINE(月蜘蛛,O,C,6,1),LINETHICK2,COLOR0011FF;

DRAWTEXT(反弹托,L-0.12,'反弹托'),COLOR0055FF;

STICKLINE(反弹托,H,L,0.5,1),COLOR0055FF;

STICKLINE(反弹托,O,C,6,1),LINETHICK2,COLOR0055FF;

DRAWTEXT(月价托,L-0.12,'月价托'),COLORYELLOW;

STICKLINE(月价托,H,L,0.5,1),COLORYELLOW;

STICKLINE(月价托,O,C,6,1),LINETHICK2,COLORYELLOW;

DRAWTEXT(季价托,L-0.12,'季价托'),COLOR0099FF;

STICKLINE(季价托,H,L,0.5,1),COLOR0099FF;

STICKLINE(季价托,O,C,6,1),LINETHICK2,COLOR0099FF;

DRAWTEXT(短长价托,L-0.12,'短长价托'),COLOR36C0C1;

STICKLINE(短长价托,H,L,0.4,1),COLOR36C0C1;

STICKLINE(短长价托,O,C,6,1),LINETHICK2,COLOR36C0C1;

DRAWTEXT(半年托,MA120-0.08,'牛市来'),COLORRED;

DRAWTEXT(年托,MA250-0.08,'年托'),COLORRED;

VOL5:=MA(VOL,5),COLORWHITE;

VOL10:=MA(VOL,10),COLORYELLOW;

VOL20:=MA(VOL,20),COLORFF00FF ;

量托:=VOL5>=VOL20 AND CROSS(VOL10,VOL20) AND REF(VOL10,1)

DRAWTEXT(量托,L-0.12,'量托'),COLORWHITE;

STICKLINE(量托,H,L,0.4,1),COLORWHITE;

STICKLINE(量托,O,C,6,1),LINETHICK2,COLORWHITE;

AA:=BARSLAST(MA60>MA20 AND (MA20=MA10 OR MA20>MA10));

BB:=REF(COUNT(C

CC:=CROSS(C,MA60) AND VOL>MA(VOL,5) AND (C-REF(C,1))/REF(C,1)*100>3;

芙蓉出水:=BB AND CC,COLOR00FF00;

DRAWTEXT(芙蓉出水,H+0.12,'芙蓉出水'),COLORFF00FF;

STICKLINE(芙蓉出水,H,L,0.5,1),COLORFF00FF;

STICKLINE(芙蓉出水,O,C,4,1),LINETHICK2,COLORFF00FF;

MA1:=MA(CLOSE,5);

MA2:=MA(CLOSE,10);

MA3:=MA(CLOSE,30);

ZJ:=AMOUNT/10000;{资金}

TM:=V-MA(V,10);{量填满}

一穿三:=MA1>O AND MA2>O AND MA3>O AND MA1OPEN ;

DRAWTEXT(一穿三,L-0.12,'穿三线'),COLORFFFFFF;

STICKLINE(一穿三,H,L,0.5,1),COLORFFFFFF;

STICKLINE(一穿三,O,C,3,1),LINETHICK2,COLORFFFFFF;

C6:=REF(C,1);

RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;

K:=SMA(RSV,3,1);

D:=SMA(K,3,1);

J:=3*K-2*D;

X:=LLV(J,2)=LLV(J,8);

Y:=IF(CROSS(J,REF(J+0.01,1)) AND X AND J<20,30,0);

主力:=EMA( (CLOSE-MA(CLOSE,3))/MA(CLOSE,3),2);

散户:=EMA( (CLOSE-MA(CLOSE,20))/MA(CLOSE,20),7);

VVAR2:=LLV(LOW,10);

VVAR3:=HHV(HIGH,25);

DRAWTEXT(CROSS(J,REF(J+0.01,1)) AND X AND J<20,LOW,'短进'),COLORFF00FF;

DRAWTEXT(CROSS(主力,散户) AND 主力<0 AND 散户<0,LOW,'见底'),COLORRED;

DRAWICON(CROSS(主力,散户) AND 主力<0 AND 散户<0,LOW,1);

V1:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);

V2:=(1-7/100)*(DMA(CLOSE,V1));

V3:=(1+7/100)*(DMA(CLOSE,V1));

支撑:REFDATE(V2,DATE),POINTDOT,LINETHICK3,COLORCC66FF;

阻力:REFDATE(V3,DATE),POINTDOT,LINETHICK3,COLORGREEN;STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,3,0),COLORFF7700;

STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,2.2,0),COLORFF9900;

STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,1.5,0),COLORFFBB00;

STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,0.5,0),COLORCYAN;

拉升线:IF(CURRBARSCOUNT=1 AND REF(C,1)REF(C,1) AND MA5>REF(MA5,1),CONST(REF(C,1)*1.01),DRAWNULL),COLORYELLOW;

M1:STICKLINE(CURRBARSCOUNT=1 AND C>=REF(C,1),拉升线,拉升线*0.998,20,0),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=1 AND 拉升线=CONST(REF(C,1)*1.01),L*0.99,'上穿此线介入'),COLORYELLOW;

DRAWKLINE(H,拉升线,L,C);

{筹码突破}

筹码突破:C>TYX3 AND(C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),COLORRED;

{45度异动}

X1:=(C+L+H)/3;

BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10;

EMA8:=EMA(C,8);

DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),

EMA8,'∠45上升'),COLORYELLOW;

{底顶侦探}

VAR1:=(2*CLOSE+HIGH+LOW+OPEN)/5;

VAR2:=EMA(EMA(EMA(VAR1,4),4),4);

SJ:=(VAR2-REF(VAR2,1))/REF(VAR2,1)*100, COLORSTICK;

SD:=MA(SJ,2);

SK:=MA(SJ,1);

VAR3:=CROSS(SK,SD) AND SK<0;

VAR4:=CROSS(SK,0);

VAR6:=CROSS(SK,SD) AND SK>0;

BY:=VAR3, STICK;

DRAWICON(BY,L*0.96,23);

BE:=VAR4 OR VAR6, STICK;

DRAWICON(BE,L*0.96,25);

VAR7:=CROSS(SD,SK);

MC:=VAR7, STICK;

{漓江}

VAR13:=(2*CLOSE+HIGH+LOW)/4;

T:=80, POINTDOT;

VAR14:=LLV(LOW,5);

VAR15:=HHV(HIGH,4);

SK1:=EMA((VAR13-VAR14)/(VAR15-VAR14)*100,4);

SD1:=EMA(0.667*REF(SK1,1)+0.333*SK1,2);

{VAR4:=(HHV(HIGH,4)-VAR1)/(HHV(HIGH,4)-LLV(LOW,4))*100-72;

漓江倒影: SMA(VAR4,4,1), LINESTICK;}

VAR17:=(VAR13-LLV(LOW,4))/(HHV(HIGH,4)-LLV(LOW,4))*100;

VAR18:=SMA(VAR17,2,1);

桂林山水:=SMA(VAR18,2,1), LINESTICK;

{顶底背离}

LC:=REF(CLOSE,1);

RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);

FF:=EMA(CLOSE,3);

MA15:=EMA(CLOSE,21);

DRAWTEXT(CROSS(FF,MA15),(LOW * 0.99),'底背离'),COLORRED;

{DRAWICON(CROSS(FF,MA15),(LOW * 0.99),7); }

{顶背离}

RSI1:=((SMA(MAX((CLOSE - (REF(CLOSE,1))),0),3,1) / SMA(ABS((CLOSE - (REF(CLOSE,1)))),3,1))* 100);

DRAWTEXT(CROSS(88,RSI1) AND (MA(C,3))>(EMA(C,3)) ,(HIGH + 0.3),'顶背离'),COLORGREEN;

{DRAWICON(CROSS(88,RSI1) AND (MA(C,3))>(EMA(C,3)) ,(HIGH + 0.3),8); };

DRAWTEXT(REF(C,BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1))+1)>C AND

REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1))+1)

<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA")

>0,L-0.02,'MACD底背离'),COLORRED;{MACD底背离}

DRAWTEXT(REF(C,BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1))+1)>C AND

REF("KDJ.K",BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1))+1)<"KDJ.K" AND

CROSS("KDJ.K","KDJ.D"),L-0.10,'KDJ底背离'),COLORBLUE;{KDJ底背离}

DRAWTEXT(REF(C,BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1))+1)>C AND

REF("RSI.RSI1",BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1))+1)

<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2")

>0,L-0.18,'RSI底背离');{RSI底背离};

DRAWTEXT(REF(C,BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1))+1)

AND REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1))+1)

>"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF")

>0,H+0.16,'MACD顶背离'),COLORGREEN;{MACD顶背离};

DRAWTEXT(REF(C,BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1))+1)

AND REF("KDJ.K",BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1))+1)

>"KDJ.K" AND CROSS("KDJ.D","KDJ.K")>0,H+0.08,'KDJ顶背离');{KDJ顶背离};

{涨跌提示}

涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0);

STICKLINE(涨停,OPEN,CLOSE,1.5,0),COLORYELLOW;

跌停:=IF((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0);

STICKLINE(跌停,OPEN,CLOSE,1.5,0),COLORWHITE;

相关推荐