以下是通达信系列指标主图源码和截图
通达信缠论系列指标主图源码：
顶:=BBI+3*STD(BBI,13),COLOR004AFF;
底:=BBI-3*STD(BBI,13),COLOR67FF00;
KU1:=IF(HIGH=HHV(HIGH,3),1,0);
KD1:=IF(LOW=LLV(LOW,3),1,0);
UL:=IF(REF(KU1,2)=1ANDREF(KU1,1)=0
ANDKU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1
ANDREF(KU1,1)=0ANDKU1=0)));
DL:=IF(REF(KD1,2)=1ANDREF(KD1,1)=0
ANDKD1=0,REF(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1
ANDREF(KD1,1)=0ANDKD1=0)));
HV:=H ULANDH REF(H,1);
LV:=L DLANDL REF(L,1);
GP:=BARSLAST(HV);
DP:=BARSLAST(LV);
IP:=IF(GP=0,DP,GP)
HHV1:=HVANDIPANDH =HHV(H,BARSLAST(LV));
LV1:=LVANDIPANDL =LLV(L,BARSLAST(HV));
DRAWLINE(LV1,LOW,HHV1,HIGH,0),coloryellow,LINETHICK1;
DRAWLINE(HHV1,HIGH,LV1,LOW,0),colormagenta,LINETHICK1;
V00:=HIGH REF(HIGH,1)ANDLOW REF(LOW,1);
V01:=HIGH REF(HIGH,1)ANDLOW REF(LOW,1);
V02:=HIGH REF(HIGH,1)ANDLOW REF(LOW,1);
V03:=HIGH REF(HIGH,1)ANDLOW REF(LOW,1);
V04:=REF(HIGH,2) HIGHANDREF(LOW,2) LOW
ANDREF(HIGH,2) REF(HIGH,1)ANDREF(LOW,2) REF(LOW,1);
V1:=COUNT(V00,6) =3ANDCOUNT(V01ORV02,5)=0ANDLLVBARS(LOW,6)=1ANDHHVBARS(HIGH,6) =5ANDV03;
V2:=COUNT(V00,7) =3ANDCOUNT(V01ORV02,6)=1ANDLLVBARS(LOW,7)=2ANDHHVBARS(HIGH,7) =6ANDV04;
V3:=COUNT(V00,7) =3ANDCOUNT(V01ORV02,6)=1ANDLLVBARS(LOW,7)=1ANDHHVBARS(HIGH,7) =6ANDV03;
V4:=COUNT(V00,8) =3ANDCOUNT(V01ORV02,7) =2ANDLLVBARS(LOW,8)=2ANDHHVBARS(HIGH,8) =7ANDV04;
V5:=COUNT(V00,8) =3ANDCOUNT(V01ORV02,7) =2ANDLLVBARS(LOW,8)=1ANDHHVBARS(HIGH,8) =7ANDV03;
V6:=COUNT(V00,9) =3ANDCOUNT(V01ORV02,8) =3ANDLLVBARS(LOW,9)=2ANDHHVBARS(HIGH,9) =8ANDV04;
V7:=COUNT(V00,9) =3ANDCOUNT(V01ORV02,8) =3ANDLLVBARS(LOW,9)=1ANDHHVBARS(HIGH,9) =8ANDV03;
V8:=COUNT(V00,10) =3ANDCOUNT(V01ORV02,9) =4ANDLLVBARS(LOW,10)=2ANDHHVBARS(HIGH,10) =9ANDV04;
V9:=COUNT(V00,10) =3ANDCOUNT(V01ORV02,9) =4ANDLLVBARS(LOW,10)=1ANDHHVBARS(HIGH,10) =9ANDV03;
V10:=COUNT(V00,11) =3ANDCOUNT(V01ORV02,10) =5ANDLLVBARS(LOW,11)=2ANDHHVBARS(HIGH,11) =10ANDV04;
XG:=V1ORV2ORV3ORV4ORV5ORV6ORV7ORV8ORV9ORV10;
HV00:=HIGH REF(HIGH,1)ANDLOW REF(LOW,1);
HV01:=HIGH REF(HIGH,1)ANDLOW REF(LOW,1);
HV02:=HIGH REF(HIGH,1)ANDLOW REF(LOW,1);
HV03:=HIGH REF(HIGH,1)ANDLOW REF(LOW,1);
HV04:=REF(HIGH,2) HIGHANDREF(LOW,2) LOWANDREF(HIGH,2) REF(HIGH,1)ANDREF(LOW,2) REF(LOW,1);
HV1:=COUNT(HV00,6) =3ANDCOUNT(HV01ORHV02,5)=0ANDHHVBARS(HIGH,6)=1ANDLLVBARS(LOW,6) =5ANDHV03;
HV2:=COUNT(HV00,7) =3ANDCOUNT(HV01ORHV02,6)=1ANDHHVBARS(HIGH,7)=2ANDLLVBARS(LOW,7) =6ANDHV04;
HV3:=COUNT(HV00,7) =3ANDCOUNT(HV01ORHV02,6)=1ANDHHVBARS(HIGH,7)=1ANDLLVBARS(LOW,7) =6ANDHV03;
HV4:=COUNT(HV00,8) =3ANDCOUNT(HV01ORHV02,7) =2ANDHHVBARS(HIGH,8)=2ANDLLVBARS(LOW,8) =7ANDHV04;
HV5:=COUNT(HV00,8) =3ANDCOUNT(HV01ORHV02,7) =2ANDHHVBARS(HIGH,8)=1ANDLLVBARS(LOW,8) =7ANDHV03;
HV6:=COUNT(HV00,9) =3ANDCOUNT(HV01ORHV02,8) =3ANDHHVBARS(HIGH,9)=2ANDLLVBARS(LOW,9) =8ANDHV04;
HV7:=COUNT(HV00,9) =3ANDCOUNT(HV01ORHV02,8) =3ANDHHVBARS(HIGH,9)=1ANDLLVBARS(LOW,9) =8ANDHV03;
HV8:=COUNT(HV00,10) =3ANDCOUNT(HV01ORHV02,9) =4ANDHHVBARS(HIGH,10)=2ANDLLVBARS(LOW,10) =9ANDHV04;
HV9:=COUNT(HV00,10) =3ANDCOUNT(HV01ORHV02,9) =4ANDHHVBARS(HIGH,10)=1ANDLLVBARS(LOW,10) =9ANDHV03;
HV10:=COUNT(HV00,11) =3ANDCOUNT(HV01ORHV02,10) =5ANDHHVBARS(HIGH,11)=2ANDLLVBARS(LOW,11) =10ANDHV04;
HXG:=HV1ORHV2ORHV3ORHV4ORHV5ORHV6ORHV7ORHV8ORHV9ORHV10;
AC5:=REF(C,5)*1.03 HHV(C,5)ANDC MA(C,20)ANDVOL MA(VOL,20);
AA:=(C-REF(C,1))/REF(C,1)*100;
BB:=AA 3ANDAA
BIAS3:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100;
CC:=BIAS3 0ANDBIAS3
二买:=BBANDAC5ANDCC;
DRAWTEXT(二买=1,L,'二买'),COLORYELLOW;
STICKLINE(二买,OPEN,CLOSE,8,0),COLORYELLOW;
AC3:=REF(C,1);
DIFF1:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA1:=EMA(DIFF1,9);
MACD1:=2*(DIFF1-DEA1);
AA1:=BARSLAST(REF(CROSS(DIFF1,DEA1),1));
一买:=REF(CLOSE,AA1+1) CLOSEANDDIFF1 REF(DIFF1,AA1+1)ANDCROSS(DIFF1,DEA1)ANDLLV(LOW,6)=LLV(LOW,60);
DRAWTEXT(一买=1,L,'一买'),COLORMAGENTA;
STICKLINE(一买,OPEN,CLOSE,8,0),COLORMAGENTA;
Ma5:Ma(C,5);Ma10:ma(C,10);Ma20:ma(C,20);Ma60:ma(C,60);
kx:="chanlun$kxian";
{这个放第一个要不会出问题滴-_-~~}
kxg:="chanlun$kxg";
kxd:="chanlun$kxd";
kxfx:="chanlun$kxfx";
笔:="chanlun$bi";
笔周期:"chanlun$bilast",linethick0,coloryellow;
bilast:="chanlun$bilast";{笔周期};
段:="chanlun$duan";
段周期:"chanlun$duanlast",linethick0,coloryellow;
duanlast:="chanlun$duanlast";{段周期};
中枢:="chanlun$zs";
zszg:="chanlun$zszg";
zszd:="chanlun$zszd";
zsgg:="chanlun$zsgg";
zsdd:="chanlun$zsdd";
zszz:="chanlun$zszz";
zsks:="chanlun$zskslast";
zsjs:="chanlun$zsjslast";
bifx:=-REF(笔,bilast);
duanfx:=-REF(段,duanlast);
kxqj:="chanlun$kxqj";
{画中枢Begin}{以背景方式画}
STICKLINE(zszg zszdANDduanfx=1,zszg,zszd,20,502),colorf00ff0;
STICKLINE(zszg zszdANDduanfx=-1,zszg,zszd,20,502),colore6002d;
{中枢震荡监视器}
DRAWLINE(zsks=1,zszz,zsjs=1,zszz,0),coloryellow;
{画中枢END}
{分型}
STICKLINE(kx 0,kxg,kxd,5,1),colorwhite;
STICKLINE(kx 0,kxg,kxd,5,1),colorblue;
{笔段}
STICKLINE(笔=1,kxg,kxd,5,1),colorgreen,linethick1;
STICKLINE(笔=-1,kxg,kxd,5,1),colorred,linethick1;
STICKLINE(段=1,kxg,kxd,5,0),colore66878,linethick1;
STICKLINE(段=-1,kxg,kxd,5,0),color00cccc,linethick1;
{画K线END}
{画笔段}
drawline(笔=1,h,笔=-1,l,0),coloryellow,linethick2;
drawline(笔=-1,l,笔=1,h,0),coloryellow,linethick2;
drawline(段=1,h,段=-1,l,0),colorblue,linethick2;
drawline(段=-1,l,段=1,h,0),colorblue,linethick2;
{笔高低点周期力度提示}
DRAWTEXT(笔=1,h,''+h+'/T'+bilast+'/'+(h-REF(l,bilast))),coloryellow,align1,valign2;
DRAWTEXT(笔=-1,l,''+l+'/T'+bilast+'/'+(l-REF(h,bilast))),colorCyan,align1;
{当下提示周期}
{DRAWTEXT(BARSTATUS=2ANDbifx=1ANDbilast 4,h*1.008,'T'+bilast+'/+'+(c-REF(l,bilast))),colorMagenta,align0,valign2;}
{DRAWTEXT(BARSTATUS=2ANDbifx=-1ANDbilast 4,l*0.992,'T'+bilast+'/'+(c-REF(h,bilast))),colorGreen,align0;}
K:=1;
局部低点预选A:=BacKSET(LLV(L,5) REF(LLV(L,4),1),4);
局部低点预选B:=BACKSET(局部低点预选A=0ANDREF(局部低点预选A,1)=1,2);
局部低点预选C:=IF(局部低点预选B=1ANDREF(局部低点预选B,1)=0,-1,0);
局部高点预选A:=BACKSET(HHV(H,5) REF(HHV(H,4),1),4);
局部高点预选B:=BACKSET(局部高点预选A=0ANDREF(局部高点预选A,1)=1,2);
局部高点预选C:=IF(局部高点预选B=1ANDREF(局部高点预选B,1)=0,1,0);
判断:=IF(L REF(H,1),1,IF(H REF(L,1),-1,0));
距前高天:=BArslAst(局部高点预选C=1);
距前低天:=BARSLAST(局部低点预选C=-1);
小值周期:=LOwrANGE(L);
大值周期:=topRANGE(H);
低保留AA:=IF(局部低点预选C=-1ANDREF(距前高天,1) REF(距前低天,1)ANDLLV(L,距前高天+1) REF(LLV(L,距前高天+1),1),-1,0);
低保留AB:=IF(局部低点预选C=-1ANDREF(距前高天,1) =REF(距前低天,1)AND(距前高天 =4ORLLV(缺口判断,距前高天)=-1ORLLV(L,距前低天+2) REF(LLV(L,距前低天+1),1)),-1,0);
低保留S:=IF((低保留AA=-1OR低保留AB=-1)ANDL REF(H,距前高天+1),-1,0);
预判:=IF((距前低天 4ANDHHV(缺口判断,距前低天)!=1)ORREF(低保留S,距前低天)=0,1,0);
判断:=IF(局部高点预选C=1ANDREF(距前低天,1) =REF(距前高天,1)AND预判=1AND大值周期 REF(小值周期,距前低天+1)AND大值周期 REF(小值周期,距前低天)AND大值周期 REF(大值周期,距前高天),1,0);
高保留A:=IF(局部高点预选C=1ANDREF(距前低天,1) REF(距前高天,1)ANDHHV(H,距前低天+1) REF(HHV(H,距前低天+1),1),1,0);
高保留B:=IF(局部高点预选C=1ANDREF(距前低天,1) =REF(距前高天,1)ANDREF(低保留S,距前低天)=-1AND(距前低天 =4ORHHV(缺口判断,距前低天)=1),1,0);
高保留:=IF((高保留A=1OR高保留B=1OR判断=1)ANDH REF(L,距前低天+1),1,0);
预判A:=IF((距前高天 4ANDHHV(缺口判断,距前高天)!=1)ORREF(高保留,距前高天)=0,1,0);
判断A:=IF(局部低点预选C=-1ANDREF(距前高天,1) =REF(距前低天,1)AND预判A=1AND小值周期 REF(大值周期,距前高天+1)AND小值周期 REF(大值周期,距前高天)AND小值周期 REF(小值周期,距前低天),-1,0);
低保留A:=IF(局部低点预选C=-1ANDREF(距前高天,1) REF(距前低天,1)ANDLLV(L,距前高天+1) REF(LLV(L,距前高天+1),1),-1,0);
低保留B:=IF(局部低点预选C=-1ANDREF(距前高天,1) =REF(距前低天,1)AND(距前高天 =4ORLLV(缺口判断,距前高天)=-1OR判断A=-1),-1,0);
低保留:=IF((低保留A=-1OR低保留B=-1)ANDL REF(H,距前高天+1),-1,0);
距前高天A:=BARSLAST(高保留=1);
距前低天A:=BARSLAST(低保留=-1);
预判X:=IF((距前低天A 4ANDHHV(缺口判断,距前低天A)!=1)ORREF(低保留,距前低天A)=0,1,0);
判断X:=IF(局部高点预选C=1ANDREF(距前低天A,1) =REF(距前高天A,1)AND预判X=1AND大值周期 REF(小值周期,距前低天A+1)AND大值周期 REF(小值周期,距前低天A)AND大值周期 REF(大值周期,距前高天A),1,0);
高保留XA:=IF(局部高点预选C=1ANDREF(距前低天A,1) REF(距前高天A,1)ANDHHV(H,距前低天A+1) REF(HHV(H,距前低天A+1),1),1,0);
高保留XB:=IF(局部高点预选C=1ANDREF(距前低天A,1) =REF(距前高天A,1)ANDREF(低保留,距前低天A)=-1AND(距前低天A =4ORHHV(缺口判断,距前低天A)=1),1,0);
高保留X:=IF((高保留XA=1OR高保留XB=1OR判断X=1)ANDH REF(L,距前低天A+1),1,0);
预判XA:=IF((距前高天A 4ANDHHV(缺口判断,距前高天A)!=1)ORREF(高保留XA,距前高天A)=0,1,0);
判断XA:=IF(局部低点预选C=-1ANDREF(距前高天A,1) =REF(距前低天A,1)AND预判XA=1AND小值周期 REF(大值周期,距前高天A+1)AND小值周期 REF(大值周期,距前高天A)AND小值周期 REF(小值周期,距前低天A),-1,0);
低保留XA:=IF(局部低点预选C=-1ANDREF(距前高天A,1) REF(距前低天A,1)ANDLLV(L,距前高天A+1) REF(LLV(L,距前高天A+1),1),-1,0);
低保留XB:=IF(局部低点预选C=-1ANDREF(距前高天A,1) =REF(距前低天A,1)AND(距前高天A =4ORLLV(缺口判断,距前高天A)=-1OR判断XA=-1),-1,0);
低保留X:=IF((低保留XA=-1OR低保留XB=-1)ANDL REF(H,距前高天A+1),-1,0);
距前高天YA:=BARSLAST(高保留X=1);
距前低天YA:=BARSLAST(低保留X=-1);
预判YX:=IF((距前低天YA 4ANDHHV(缺口判断,距前低天YA)!=1)ORREF(低保留X,距前低天YA)=0,1,0);
判断YX:=IF(局部高点预选C=1ANDREF(距前低天YA,1) =REF(距前高天YA,1)AND预判YX=1AND大值周期 REF(小值周期,距前低天YA+1)AND大值周期 REF(小值周期,距前低天YA)AND大值周期 REF(大值周期,距前高天YA),1,0);
高保留YXA:=IF(局部高点预选C=1ANDREF(距前低天YA,1) REF(距前高天YA,1)ANDHHV(H,距前低天YA+1) REF(HHV(H,距前低天YA+1),1),1,0);
高保留YXB:=IF(局部高点预选C=1ANDREF(距前低天YA,1) =REF(距前高天YA,1)ANDREF(低保留X,距前低天YA)=-1AND(距前低天YA =4ORHHV(缺口判断,距前低天YA)=1),1,0);
高保留YX:=IF((高保留YXA=1OR高保留YXB=1OR判断YX=1)ANDH REF(L,距前低天YA+1),1,0);
预判YXA:=IF((距前高天YA 4ANDHHV(缺口判断,距前高天YA)!=1)ORREF(高保留YXA,距前高天YA)=0,1,0);
判断YXA:=IF(局部低点预选C=-1ANDREF(距前高天YA,1) =REF(距前低天YA,1)AND预判YXA=1AND小值周期 REF(大值周期,距前高天YA+1)AND小值周期 REF(大值周期,距前高天YA)AND小值周期 REF(小值周期,距前低天YA),-1,0);
低保留YXA:=IF(局部低点预选C=-1ANDREF(距前高天YA,1) REF(距前低天YA,1)ANDLLV(L,距前高天YA+1) REF(LLV(L,距前高天YA+1),1),-1,0);
低保留YXB:=IF(局部低点预选C=-1ANDREF(距前高天YA,1) =REF(距前低天YA,1)AND(距前高天YA =4ORLLV(缺口判断,距前高天YA)=-1OR判断YXA=-1),-1,0);
低保留YX:=IF((低保留YXA=-1OR低保留YXB=-1)ANDL REF(H,距前高天YA+1),-1,0);
AAAD:=IF(高保留YX=1AND低保留YX=-1ANDH REF(H,REF(距前高天YA,1)+2),1,IF(高保留YX=1AND低保留YX=-1ANDL REF(L,REF(距前低天YA,1)+2),-1,0));
极点保留:=IF(AAAD=0,高保留YX+低保留YX,AAAD);
局部极点:IF(极点保留=-1,L,IF(极点保留=1,H,DRAWNULL)),CIRCLEDOT,COLORYELLOW;
局部天数:BARSLAST(Abs(极点保留)),NODRAW;
局部换手:IF(极点保留=0,SUM("HSL.HSL",局部天数),0),NODRAW;
局部涨跌:C/REF(C,局部天数)*100-100,NODRAW,COLORWHITE;
换手G:=VARCAT(VAR2STR(SUM("HSL.HSL",BARSLAST(高保留X)),2),'%H');
高点换手:=VARCAT(VARCAT(VARCAT(换手G,'('),VAR2STR(BARSLAST(高保留X),0)),'T)');
换手D:=VARCAT(VAR2STR(SUM("HSL.HSL",BARSLAST(低保留X)),2),'%H');
低点换手:=VARCAT(VARCAT(VARCAT(换手D,'('),VAR2STR(BARSLAST(低保留X),0)),'T)');
高跌幅:=IF(K=1,L/REF(H,BARSLAST(高保留X))*100-100,C/REF(C,BARSLAST(高保留X))*100-100);
低涨幅:=IF(K=1,H/REF(L,BARSLAST(低保留X))*100-100,C/REF(C,BARSLAST(低保留X))*100-100);
高跌幅A:=VARCAT(VAR2STR(高跌幅,2),'%F');
低涨幅A:=VARCAT(VAR2STR(低涨幅,2),'%F');
高点显示:=VARCAT(低点换手,低涨幅A);
低点显示:=VARCAT(高点换手,高跌幅A);
DRAWLINE(极点保留=-1,局部极点,极点保留=1,局部极点,0),COLORLIRED;
DRAWLINE(极点保留=1,局部极点,极点保留=-1,局部极点,0),COLORYELLOW;
DRAWTEXT(极点保留=-1,L*0.99,低点显示),COLORGREEN;
DRAWTEXT(极点保留=1,H*1.01,高点显示),COLORYELLOW;
通达信缠论系列指标主图截图
