通达信画蛇添足主图源码附图

昌九哥哥的原话
rn 还有这个是我【画蛇添足】的产物 虽然可以用.但是不具备【三角洲 DELTA理论 预测】的功能. 我到认为这个楼主可以直接转换到通达信软件.但是我是不行.因为【LAYER0;】函数在大智慧里就很麻烦了 而通达信又没有这个函数. 那就看楼主的技巧了. 这才是二次握手的真实目的吧
rn{DELTA周线}
rnDRAWGBKlast(c>0,strip(RGB(0,50,0),RGB(0,0,80),0)),LAYER7;
rn {【必备】—K线【C AND REF(C,1).】—-}
rn {—-CLOSE AND OPEN—-}
rnSTICKLINE(CLOSE>=OPEN,OPEN,LOW,0.5,0 ),COLOR0000ff,LAYER0;
rn STICKLINE(CLOSE>=OPEN,CLOSE,HIGH,0.5,0 ),COLOR0000ff,LAYER0;
rn STICKLINE(CLOSE<OPEN,OPEN,LOW,0.8,0 ),COLOR00ff00,LAYER5;
rn STICKLINE(CLOSE<OPEN,CLOSE,HIGH,0.8,0 ),COLOR00ff00,LAYER5;
rn {—-C>REF(C,1)—-}
rnstickline(C>REF(C,1),C,O,8,0),Color000033,LAYER4;
rn stickline(C>REF(C,1),C,O,7,0),Color000055,LAYER4;
rn stickline(C>REF(C,1),C,O,6,0),Color000077,LAYER4;
rn stickline(C>REF(C,1),C,O,5,0),Color000099,LAYER4;
rn stickline(C>REF(C,1),C,O,4,0),Color0000bb,LAYER4;
rn stickline(C>REF(C,1),C,O,2,0),Color6500dd,LAYER4;
rn stickline(C>REF(C,1),C,O,1,0),Color9C00ff,LAYER4;
rn {—-C<REF(C,1)—-}
rnstickline(C<REF(C,1),C,O,8,0),Color003300,LAYER4;
rn stickline(C<REF(C,1),C,O,7,0),Color005500,LAYER4;
rn stickline(C<REF(C,1),C,O,6,0),Color007700,LAYER4;
rn stickline(C<REF(C,1),C,O,5,0),Color009900,LAYER4;
rn stickline(C<REF(C,1),C,O,4,0),Color00bb00,LAYER4;
rn stickline(C<REF(C,1),C,O,2,0),Color65dd00,LAYER4;
rn stickline(C<REF(C,1),C,O,1,0),Color9Cff00,LAYER4;
rn {—-C=REF(C,1)—-}
rn stickline(C=REF(C,1),C,O,8,0),Color008888,LAYER4;
rn stickline(C=REF(C,1),C,O,6,0),Color00AAAA,LAYER4;
rn stickline(C=REF(C,1),C,O,3,0),Color00DDDD,LAYER4;
rn stickline(C=REF(C,1),C,O,1,0),Color00ffFF,LAYER4;
rn现价: if (DYNAINFO(4)=0,C,DYNAINFO(7)),colorFF00FF,POINTDOT,LINETHICK2;
rn MID : MA(CLOSE,26),COLOR00ffFF,DOTLINE,LAYER0;;;
rn UPPER: MID + 2*STD(CLOSE,26),COLOR00ff00,LAYER0;;
rn LOWER: MID – 2*STD(CLOSE,26),COLOR0099ff,LAYER0;;;
rn DRAWBMP(CROSS(UPPER,C),H*1.008,’SE’),ALIGN1;
rn DRAWBMP(CROSS(LOWER,C),L*0.99,’BU’),ALIGN1;

rn

FILLRGN(UPPER,MID,UPPER>MID,RGB(0,0,188)),LAYER7;
rn FILLRGN(LOWER,MID,LOWER<MID,RGB(78,0,0)),LAYER7;
rn上轨下:LAST(C<UPPER),LINETHICK0;
rn上轨上:LAST(C>UPPER),LINETHICK0;
rn DRAWTEXTABS(60,35,IFS((上轨下>0),’—-◆在BOLL上轨下【第’+NUMTOSTRN(上轨下,0)+’个周期】◆—-‘,”)),LINETHICK4,Color00FF00;
rn DRAWTEXTABS(60,35,IFS((上轨上>0),’—-◆在BOLL上轨上【第’+NUMTOSTRN(上轨上,0)+’个周期】◆—-‘,”)),LINETHICK4,Color00FFff;

rn

周:="050引.CL#WEEK";
rn isColor:=if(周<>ref(周,1) or barpos=1,1,0); {转折线在每周一 }
rnDIS0:=if(barpos=1 or not(isColor),0,0);
rn DIS:=SUM(DIS0,0);
rn Num:=count(isColor,0)+DIS;
rn PD0:=isColor and mod(Num,4)=0;
rn PD1:=isColor and mod(Num,4)=1;
rn PD2:=isColor and mod(Num,4)=2;
rn PD3:=isColor and mod(Num,4)=3;
rn VERTLINE(PD0,0),colorred,linethick2,LAYER5;
rn VERTLINE(PD1,0),coloryellow,linethick1,LAYER5;
rn VERTLINE(PD2,0),colorff9900,linethick1,LAYER5;
rn VERTLINE(PD3,1),colorgreen,linethick1,LAYER5;
rn X:=BARSLAST(DISPSTATUS=1)+1; LL:=LLVALL(LLV(L,X));
rn DRAWTEXT(PD0,LL*0.99,’【红】’),COLORFF00FF,VALIGN2,ALIGN0,linethick2,LAYER0;;
rn DRAWTEXT(PD1,LL*0.99,’【黄】’),COLORFFFFFF,VALIGN2,ALIGN0,linethick2,LAYER0;;
rn DRAWTEXT(PD2,LL*0.99,’【兰】’),COLORFF9900,VALIGN2,ALIGN0,linethick2,LAYER0;;
rn DRAWTEXT(PD3,LL*0.99,’【绿】’),COLOR00FF00,VALIGN2,ALIGN0,linethick2,LAYER0;
rn DC0:=REF(C,BARSLAST(PD0));
rn DRAWLINE(PD0,DC0,PD0,DC0,0),ColorFFFFFF,DASHLINE;
rn {周涨}
rnCL:="050引.CL#WEEK";
rn RC:="050引.RC#WEEK";
rn ZF:=(CL-RC)/RC*100;
rn STICKLINE(CL>=RC ,CL ,RC,12,0) ,COLOR004960,LAYER6;
rn STICKLINE(CL>=RC ,CL ,CL,8,101),DASHLINE,COLOR0069FF,LAYER6;
rn STICKLINE(CL>=RC ,RC ,RC,12,101),LINETHICK2,COLOR0099FF,LAYER6;
rn STICKLINE(CL<RC ,CL ,RC,12,0) ,COLORff4400,LAYER6;
rn STICKLINE(CL<RC ,CL ,CL,8,101),DASHLINE,COLORFFDD00,LAYER6;
rn STICKLINE(CL<RC ,RC ,RC,12,101),LINETHICK2,COLORFF9900,LAYER6;
rn DRAWTEXT(DISPSTATUS=2,RC*0.99,’ 周涨【’+NUMTOSTRN(ZF,2)+’%】’),COLORFFFFFF,LINETHICK2,ALIGN1;
rn——-用于日线周期—————

rn

rn

rn

rn

rn

rn 

rn

周:=C#WEEK;
rn CL:=L#WEEK;
rn RC:=C#WEEK;
rn ZF:=(CL-RC)/RC*100;

rn

DRAWTEXT(CURRBARSCOUNT=3,RC*0.998,STRCAT(‘周涨%’,CON2STR(ZF,2))),COLORFFFFFF;
rn M:=BARSCOUNT(CLOSE)>31;
rn ISCOLOR:=IF(周<>REF(周,1) OR M=0,1,0);
rn DIS0:=IF(M=0 OR NOT(ISCOLOR),0,0);
rn DIS:=SUM(DIS0,0);
rn NUM:=COUNT(ISCOLOR,0)+DIS;
rn PD0:=ISCOLOR AND MOD(NUM,4)=0;
rn PD1:=ISCOLOR AND MOD(NUM,4)=1;
rn PD2:=ISCOLOR AND MOD(NUM,4)=2;
rn PD3:=ISCOLOR AND MOD(NUM,4)=3;
rn HH:=CONST(HHV(H,360));
rn LL:=CONST(LLV(L,360));
rn STICKLINE(ISCOLOR AND MOD(NUM,4)=0,HH,LL,0,-1),COLOR0000FF;
rn STICKLINE(ISCOLOR AND MOD(NUM,4)=1,HH,LL,0,-1),COLOR00FFFF;
rn STICKLINE(ISCOLOR AND MOD(NUM,4)=2,HH,LL,0,-1),COLORFFFF00;
rn STICKLINE(ISCOLOR AND MOD(NUM,4)=3,HH,LL,0,-1),COLOR00FF00;
rn DRAWTEXT(PD0,HH*0.98,’【红】’),COLOR0000FF;
rn DRAWTEXT(PD1,HH*0.98,’【黄】’),COLOR00FFFF;
rn DRAWTEXT(PD2,HH*0.98,’【兰】’),COLORFF9900;
rn DRAWTEXT(PD3,HH*0.98,’【绿】’),COLOR00FF00;
rn MID:MA(CLOSE,26),COLOR00FFFF,DOTLINE;
rn UPPER:MID + 2*STD(CLOSE,26),COLOR00FF00;
rn LOWER:MID – 2*STD(CLOSE,26),COLOR0099FF;
rn DRAWBMP(CROSS(UPPER,C),H*1.008,’SE’);
rn DRAWBMP(CROSS(LOWER,C),L*0.99,’BU’);

rn

rn

rn