通达信自用薛斯通道2源码副图

AA:=MA((2*CLOSE+HIGH+LOW)/4,5);

通道1:AA*N/100;

通道2:AA*(200-N)/100;

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

DD:=DMA(CLOSE,CC);

通道3:(1+M/100)*DD;

通道4:(1-M/100)*DD;

BB1:=(通道2-REF(通道2,5))/REF(通道2,5)*100;

临界值:REF(通道2,5)*(REF(BB1/100,1)+1),DOTLINE,COLORCYAN;

MA5:MA(C,5),DOTLINE,COLORLIMAGENTA;

MA10:MA(C,10),NODRAW;

多头排列:IF(MA(C,5)>MA(C,10) AND MA(C,10)>MA(C,20) AND MA(C,20)>MA(C,55)

             AND MA(C,55)>MA(C,89),100,0),NODRAW;

总额:=AMOUNT;

买:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L));

买%:=买/AMOUNT*100;

流入:=AMOUNT*买%/10000000000;

流出:=AMOUNT/100000000-流入;

净流:=(流入-流出);

总额3:=SUM(AMOUNT,3);

流入3:=SUM(流入,3);

流出3:=SUM(流出,3);

净流3:=SUM(流入-流出,3);

总额5:=SUM(AMOUNT,5);

流入5:=SUM(流入,5);

流出5:=SUM(流出,5);

净流5:=SUM(流入-流出,5);

总额10:=SUM(AMOUNT,10);

流入10:=SUM(流入,10);

流出10:=SUM(流出,10);

净流10:=SUM(流入-流出,10);

画:=CONST(FINDHIGH(总额10,0,190,1));

DRAWTEXT_FIX(1,0.00,0.04,0,'净流入(亿):'),COLORYELLOW;

DRAWTEXT_FIX(1,0.06,0.01,0,'1日'),COLOR0080FF;

DRAWTEXT_FIX(1,0.11,0.01,0,'3日'),COLOR0080FF;

DRAWTEXT_FIX(1,0.16,0.01,0,'5日'),COLOR0080FF;

DRAWTEXT_FIX(1,0.21,0.01,0,'10日'),COLOR0080FF;

DRAWNUMBER_FIX(1,0.06,0.04,0,CONST((净流))),COLORYELLOW;

DRAWNUMBER_FIX(1,0.11,0.04,0,CONST((净流3))),COLORYELLOW;

DRAWNUMBER_FIX(1,0.16,0.04,0,CONST((净流5))),COLORYELLOW;

DRAWNUMBER_FIX(1,0.21,0.04,0,CONST((净流10))),COLORYELLOW;

DRAWRECTREL(0,500,147,999.4,IF(120,RGB(10,0,0),0));

超B:=L2_AMO(0,2)/10000.0;

大B:=L2_AMO(1,2)/10000.0;

中B:=L2_AMO(2,2)/10000.0;

小B:=L2_AMO(3,2)/10000.0;

超S:=L2_AMO(0,3)/10000.0;

大S:=L2_AMO(1,3)/10000.0;

中S:=L2_AMO(2,3)/10000.0;

小S:=L2_AMO(3,3)/10000.0;

TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0);

大宗进:=(超B)+(大B),NODRAW;

大宗出:=(超S)+(大S),NODRAW;

非大宗进:=(中B)+(小B),NODRAW;

非大宗出:=(中S)+(小S),NODRAW;

大宗进限制:=IF((超B+大B)=0,0,大宗进);

大宗出限制:=IF((超S+大S)=0,0,大宗出);

非大宗进限制:=IF(中B+小B=0,0,非大宗进);

非大宗出限制:=IF(中S+小S=0,0,非大宗出);

主力净流入:=(超B+大B)-(超S+大S),COLORRED,NODRAW;

散户净流入:=(中B+小B)-(中S+小S),COLORRED,NODRAW;

净流入:=(超B+大B+中B+小B)-(超S+大S+中S+小S),COLORRED,NODRAW;

大单流入:=(超B+大B)/(超B+大B+超S+大S)*100,NODRAW;

大单流入限制:=IF((超B+大B+超S+大S)=0,0,大单流入);

大单流出比:=(超S+大S)/(超B+大B+超S+大S)*100,NODRAW;

大单流出限制:=IF((超B+大B+超S+大S)=0,0,大单流出比);

总流入比:=(超B+大B+中B+小B)/(超B+大B+中B+小B+超S+大S+中S+小S)*100,NODRAW;

总流出比:=(超S+大S+中S+小S)/(超B+大B+中B+小B+超S+大S+中S+小S)*100,NODRAW;

成交总量:=(超B+大B+中B+小B+超S+大S+中S+小S),NODRAW;

机构参与度:=(超B+超S+大B+大S)/成交总量*100,COLORYELLOW,NODRAW;

大单强度:=(超B+大B-超S-大S)/成交总量*100,COLORYELLOW,NODRAW;

大单强度限制:=IF(大单强度=0,-100,大单强度);

大单强度比:=IF(大单强度>=0,(大单强度限制+100)/2,100-ABS((大单强度限制-100)/2)),NODRAW;

超单强度:=(超B-超S)/(超B+超S)*100,COLORYELLOW,NODRAW;

超单强度限制:=IF(超单强度=0,-100,超单强度);

超单强度比:=IF(超单强度>0,(超单强度限制+100)/2,IF(超单强度<0,100-ABS((超单强度限制-100)/2),0)),NODRAW;

DAZHIV:=CONST(MAX(ABS(大宗进),MAX(ABS(大宗出),MAX(ABS(非大宗进),ABS(非大宗出))))),NODRAW;

DRAWRECTREL(0,CONST(930-(ABS(大宗进)*250/DAZHIV)),35,950,IF(CONST(大宗进>0),RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(37,CONST(930-(ABS(大宗出)*250/DAZHIV)),72,950,IF(CONST(大宗出>0),RGB(23,125,255),RGB(255,0,0)));

DRAWRECTREL(75,CONST(930-(ABS(非大宗进)*250/DAZHIV)),110,950,IF(CONST(非大宗进>0),RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(112,CONST(930-(ABS(非大宗出)*250/DAZHIV)),147,950,IF(CONST(非大宗出>0),RGB(23,125,255),RGB(255,0,0)));

DRAWRECTREL(150,CONST(940-(ABS(净流入)*250/DAZHIV))-20,190,950,IF(CONST(净流入>0),RGB(200,0,0),RGB(0,125,50)));

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.0001,0.9,0,STRCAT('',CON2STR(大宗进/1,0))),COLORYELLOW;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.036,0.9,0,STRCAT('',CON2STR(大宗出/1,0))),COLORYELLOW;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.074,0.9,0,STRCAT('',CON2STR(非大宗进/1,0))),COLORYELLOW;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.111,0.9,0,STRCAT('',CON2STR(非大宗出/1,0))),COLORYELLOW;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.150,0.9,0,STRCAT('',CON2STR(净流入/1,0))),COLORYELLOW;

DRAWTEXT_FIX(1,0.000,0.99,0,STRCAT(STRCAT('主力 ',CON2STR(主力净流入,0)),'万')),COLORMAGENTA;

DRAWTEXT_FIX(1,0.078,0.99,0,STRCAT(STRCAT('散户 ',CON2STR(散户净流入,0)),'万')),COLORCYAN;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.145,0.99,0,'净流入:(万)'),COLORYELLOW;

主力买力度:=LARGEINTRDVOL*1000/VOL;

主力卖力度:=LARGEOUTTRDVOL*1000/VOL;

AAD:=CONST(MAX(ABS(主力买力度),ABS(主力卖力度)))*4,NODRAW;

DRAWRECTREL(0,515,CONST(ABS(主力买力度)*560/AAD),568,IF(CONST(主力买力度)>0,RGB(255,0,0),RGB(0,50,0)));

DRAWRECTREL(0,570,CONST(ABS(主力卖力度)*560/AAD),623,IF(CONST(主力卖力度)>0,RGB(0,50,0),RGB(255,0,0)));

DRAWTEXT_FIX(1,0,0.524,0,STRCAT('主买力度:',CON2STR(主力买力度,0))),COLORYELLOW;

DRAWTEXT_FIX(1,0,0.576,0,STRCAT('主卖力度:',CON2STR(主力卖力度,0))),COLORYELLOW;

{DRAWTEXT_FIX(1,0.00,0,0,'主营业务:'),COLORYELLOW;

DRAWTEXT_FIX(1,0.06,0,0,EXTERNSTR(0,2)),COLOR0080FF;

DRAWTEXT_FIX(1,0.00,0.05,0,'主题投资:'),COLORYELLOW;

DRAWTEXT_FIX(1,0.06,0.05,0,EXTERNSTR(0,1)),COLOR0080FF;}

DRAWTEXT_FIX(1,0.00,0.08,0,'所属板块:'),COLORYELLOW;

DRAWTEXT_FIX(1,0.05,0.08,0,HYBLOCK),COLORMAGENTA;

DRAWTEXT_FIX(1,0.10,0.08,0,DYBLOCK),COLORMAGENTA;

DRAWTEXT_FIX(1,0.16,0.08,0,GNBLOCK),COLORMAGENTA;

{DRAWTEXT_FIX(1,0.00,0.15,0,'莸利比例:'),COLORYELLOW;

DRAWNUMBER_FIX(1,0.06,0.15,0,CONST(WINNER(C )*100)),COLOR0080FF;

DRAWTEXT_FIX(1,0.12,0.15,0,'动态PE:'),COLORYELLOW;

DRAWNUMBER_FIX(1,0.17,0.15,0,CONST(DYNAINFO(39))),COLOR0080FF;

DRAWTEXT_FIX(1,0.22,0.15,0,'市值:'),COLORYELLOW;

DRAWNUMBER_FIX(1,0.26,0.15,0,FINANCE(40)/100000000),COLOR0080FF;

DRAWTEXT_FIX  (1,0.31,0.15,0,'公积金(股):'),COLORYELLOW;

DRAWNUMBER_FIX(1,0.38,0.15,0,FINANCE(18)),COLOR0080FF;

DRAWTEXT_FIX  (1,0.43,0.15,0,'收益:'),COLORYELLOW;

DRAWNUMBER_FIX(1,0.47,0.15,0,FINANCE(33)),COLOR0080FF;

DRAWTEXT_FIX  (1,0.00,0.20,0,'千股千评:'),COLORYELLOW;

DRAWNUMBER_FIX(1,0.06,0.20,0,EXTERNSTR(0,3)),COLOR0080FF;}

A11:=C>O;

B11:=REF(C,1)<REF(O,1);

阳线天数:=COUNT(A11,YXZQ);

连阳天数:=IF(A11,BARSLAST(B11)+1,0);

顶底距离:=HHV(C,20)/LLV(C,20);

ZT:=C/REF(C,1)>1.095;

ZTSL:=COUNT(ZT,ZTZQ);{指定周期内的涨停数量}

ZJJR:=COUNT(C>O AND (V>MA(V,20) OR V>MA(V,5) OR V>MA(V,135)),ZJZQ);{资金介入}

ZJJR10:=COUNT(C>O AND (V>MA(V,20) OR V>MA(V,5) OR V>MA(V,135)),10);

DRAWRECTREL(0,0,320,200,0);

上涨家数:="SZ399002$ADVANCE"+"SH999999$ADVANCE"-"SZ399108$ADVANCE";{仅限於日线周期}

下跌家数:="SZ399002$DECLINE"+"SH999999$DECLINE"-"SZ399108$DECLINE";

涨比%:=上涨家数/(上涨家数+下跌家数)*100;

跌比%:=下跌家数/(上涨家数+下跌家数)*100;

DRAWTEXT_FIX(1,0.00,0.12,0,'阳线:'),COLORYELLOW;

DRAWTEXT_FIX(1,0.02,0.12,0,STRCAT('',CON2STR(阳线天数,0))),COLORMAGENTA;

DRAWTEXT_FIX(1,0.04,0.12,0,'连阳:'),COLORYELLOW;

DRAWTEXT_FIX(1,0.06,0.12,0,STRCAT('',CON2STR(IF(A11,BARSLAST(B11)+1,0),0))),COLORMAGENTA;

DRAWTEXT_FIX(1,0.08,0.12,0,'顶底:'),COLORYELLOW;

DRAWTEXT_FIX(1,0.10,0.12,0,STRCAT('',CON2STR(HHV(C,20)/LLV(C,20),2))),COLORMAGENTA;

DRAWTEXT_FIX(1,0.13,0.12,0,'资金介入:'),COLORYELLOW;

DRAWTEXT_FIX(1,0.17,0.12,0,STRCAT('',CON2STR(ZJJR,0))),COLORRED;

DRAWTEXT_FIX(1,0.18,0.12,0,'10日资金:'),COLORYELLOW;

DRAWTEXT_FIX(1,0.22,0.12,0,STRCAT('',CON2STR(ZJJR10,0))),COLORRED;

DRAWTEXT_FIX(1,0.00,0.16,0,'本股涨停数:'),COLORYELLOW;

DRAWTEXT_FIX(1,0.05,0.16,0,STRCAT('',CON2STR(ZTSL,0))),COLORMAGENTA;

DRAWTEXT_FIX(1,0.07,0.16,0,'涨家:'),COLORYELLOW;

DRAWTEXT_FIX(1,0.09,0.16,0,STRCAT('',CON2STR(上涨家数,0))),COLORRED;

DRAWTEXT_FIX(1,0.11,0.16,0,'跌家:'),COLORYELLOW;

DRAWTEXT_FIX(1,0.13,0.16,0,STRCAT('',CON2STR(下跌家数,0))),COLORGREEN;

DRAWTEXT_FIX(1,0.15,0.16,0,'涨比:'),COLORYELLOW;

DRAWTEXT_FIX(1,0.17,0.16,0,STRCAT('',CON2STR(涨比%,0))),COLORRED;

DRAWTEXT_FIX(1,0.19,0.16,0,'跌比:'),COLORYELLOW;

DRAWTEXT_FIX(1,0.21,0.16,0,STRCAT('',CON2STR(跌比%,0))),COLORGREEN;