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

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

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

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