|
以下是通达信自用薛斯通道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;
650311835.png
650500601.png
|
