|
以下是通达信T0分时主图源码（无源码的请下载附件导入）
白线:DYNAINFO(3)*(1+0.02),NODRAW;
黄线:DYNAINFO(3)*1.04,NODRAW;
均价:SUM(V*C,0)/SUM(V,0),NODRAW;
日3线:"MMM.D#DAY" ,DOTLINE,COLORWHITE;
{日3线1:"上三一.SE#DAY" ,DOTLINE,COLORYELLOW;CM:COST(95);DRAWBAND(黄线,RGB(128,128,128),白线,RGB(169,169,169));
DRAWBAND(C,RGB(128,0,64),均价,RGB(0,0,255));}
DRAWTEXT(ISLASTBAR,日3线,'UP31'),COLORRED;
日4线:"MMM.MTK#DAY" ,DOTLINE,COLORYELLOW;
DRAWTEXT(ISLASTBAR,日4线,'阳胜'),COLORRED;
{日5线:"MMM.CM#DAY" ,DOTLINE,COLORMAGENTA;
DRAWTEXT(ISLASTBAR,日5线,'筹码'),COLORRED;}
{日6线:"MMM.TOP#DAY" ,DOTLINE,COLORMAGENTA;
DRAWTEXT(ISLASTBAR,日6线,'顶线'),COLORRED;
日7线:"MMM.DE2#DAY" ,COLORMAGENTA;
DRAWTEXT(ISLASTBAR,日7线,'动线2'),COLORRED;日9线:"MMM.DE4#DAY" ,COLORMAGENTA;
DRAWTEXT(ISLASTBAR,日9线,'动线4'),COLORRED;
日8线:"MMM.SE#DAY" ,COLORMAGENTA;
DRAWTEXT(ISLASTBAR,日8线,'卖'),COLORRED;}
{DRAWTEXT(ISLASTBAR,日3线1,'SELL'),COLORYELLOW;}
{绿线:IF(C<500,DYNAINFO(3)*(1-0.02),DYNAINFO(3)*(1-0.005)),DOTLINE,COLORLIGREEN;
零轴线:"上三一.E#DAY", DOTLINE,COLORBLACK;}
{DRAWBAND(零轴线,RGB(128,128,128),绿线,RGB(169,169,169));}
{阻力1:BBB+CCC*7/8;
支撑1:BBB+CCC*0.8/8;上顶1:BBB+CCC*2/3,COLORGRAY,DOTLINE;
下底1:BBB+CCC/3,COLORGRAY,DOTLINE;
AAA:=MAX(DYNAINFO(3),DYNAINFO(5));
BBB:=MIN(DYNAINFO(3),DYNAINFO(6));
CCC:=AAA-BBB;}
H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力:L1+P1*7/8,COLORRED,LINETHICK1;
支撑:L1+P1*0.78/8 ,COLORYELLOW,LINETHICK1;
现价:=CLOSE;
{DRAWTEXT(LONGCROSS(支撑,现价,2),支撑*1,'B'),COLORYELLOW;}{吸}
DRAWNUMBER(LONGCROSS(支撑,现价,2),支撑*1,支撑),COLORRED;
DRAWTEXT(LONGCROSS(现价,阻力,2),现价,'S'),COLORRED;{抛};
分时顶:=HHV(H,480);
分时底:=LLV(L,480);
IF( C>=REF(分时顶,1) ,C,DRAWNULL),LINETHICK1,COLORMAGENTA;
IF( C<=REF(分时底,1) ,C,DRAWNULL),LINETHICK1,COLORGREEN;
SJ:=IF(HOUR<12,(HOUR-9.5)*60+MINUTE,(HOUR-11)*60+MINUTE);
F:=DYNAINFO(3)*(1+(C/REF(C,MIN(SJ,5))-1)*1.5);
STICKLINE(F<DYNAINFO(3),DYNAINFO(3),F,0,0),COLORLIGREEN;
STICKLINE(F>DYNAINFO(3),DYNAINFO(3),F,0,0),COLORLIRED;
成交额:=V*C/100,NODRAW;{万元}
A2:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);
A3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);
A6:=(A2+A3);
A7:=IF((ISLASTBAR),((100*A2)/A6),0);
A8:=IF((ISLASTBAR),((100*A3)/A6),0);
DD1:=1;
AAA1:=STRCAT(STRCAT('机构买 = ',CON2STR((100*A2)/A6,0)),'%');
AAA2:=STRCAT(STRCAT('机构卖 = ',CON2STR((100*A3)/A6,0)),'%');
AAA3:=STRCAT(STRCAT('机构总买 = ',CON2STR((100*(A2-A3))/A6,0)),'%');
AAA4:=STRCAT('基因总数 = ',"JYJY.ZSZS#DAY");
DRAWTEXT_FIX(DD1=1,0,0.83,0,AAA1),COLOR00FFFF;
DRAWTEXT_FIX(DD1=1,0,0.89,0,AAA2),COLOR00FF00;
DRAWTEXT_FIX(DD1=1,0,0.99,0,AAA4),COLOR0000FF;
{DRAWTEXT_FIX(DD1=1,0,1.1,0,AAA4),COLOR0000FF;}
{总类:XA_167+XA_168+XA_169+XA_170+XA_171,COLORRED;
XA_172:=涨板+地量+矮将+金柱+元帅;
XA_173:=过左+伸缩+阴短+阳矮+直憋;
XA_174:=踩精+双剑+假阴+背反+零号;
XA_175:=十字+峰谷+次阳+三元+悬阴;
XA_176:=梯四+咬峰+三绝+双休+双阳;
D1:=IF(NAMELIKE('S'),0,1);
D2:=IF(NAMELIKE('*'),0,1);
DD:=D1 AND D2 AND DYNAINFO(17)>0 AND BARSCOUNT(C)>20;
总数:IF(DD,XA_172+XA_173+XA_174+XA_175+XA_176,0),COLORYELLOW;}
现手买:=BUYVOL*DYNAINFO(7)*100/10000 COLOR0000FF,NODRAW;
现手卖:=SELLVOL*DYNAINFO(7)*100/10000 COLOR00FF00,NODRAW;
合:=ABS(现手买)+ABS(现手卖)COLOR80FFFF,NODRAW;
差:=ABS(现手买)-ABS(现手卖)COLOR80FFFF,NODRAW;
MPB1:=ABS(现手买)/合*100;
MPB2:=ABS(现手卖)/合*100;
TESTSKIP(NOT(现手买 OR 现手卖 OR 合 OR 差 OR MPB1 OR MPB2)!=0);
DRAWRECTREL(640,1000,940,940,RGB(190,190,190));
DRAWRECTREL(640,995,940,945,RGB(200,200,200));
DRAWRECTREL(640,990,940,950,RGB(210,210,210));
DRAWRECTREL(640,985,940,955,RGB(220,220,220));
DRAWRECTREL(640,980,940,960,RGB(230,230,230));
DRAWRECTREL(640,975,940,965,RGB(240,240,240));
DRAWRECTREL(640,970,940,970,RGB(250,250,250));
DRAWRECTREL(790-现手卖*210/合,1000,790,940,RGB(0,128,0));
DRAWRECTREL(790-现手卖*210/合,995,790,945,RGB(0,148,0));
DRAWRECTREL(790-现手卖*210/合,990,790,950,RGB(0,168,0));
DRAWRECTREL(790-现手卖*210/合,985,790,955,RGB(0,188,0));
DRAWRECTREL(790-现手卖*210/合,980,790,960,RGB(0,208,0));
DRAWRECTREL(790-现手卖*210/合,975,790,965,RGB(0,228,0));
DRAWRECTREL(790-现手卖*210/合,970,790,970,RGB(0,248,0));
DRAWRECTREL(790-现手卖*210/合,940,790-现手卖*210/合,1000,RGB(0,128,0));
DRAWRECTREL(790,1000,790+现手买*210/合,940,RGB(128,0,0));
DRAWRECTREL(790,995,790+现手买*210/合,945,RGB(148,0,0));
DRAWRECTREL(790,990,790+现手买*210/合,950,RGB(168,0,0));
DRAWRECTREL(790,985,790+现手买*210/合,955,RGB(188,0,0));
DRAWRECTREL(790,980,790+现手买*210/合,960,RGB(208,0,0));
DRAWRECTREL(790,975,790+现手买*210/合,965,RGB(228,0,0));
DRAWRECTREL(790,970,790+现手买*210/合,970,RGB(248,0,0));
DRAWRECTREL(790+现手买*210/合,940,790+现手买*210/合,1000,RGB(128,0,0));
DRAWRECTREL(789.8,940,790.2,1000,RGB(0,0.0,10));
DRAWRECTREL(639.8,940,640.2,1000,RGB(0,0,10));
DRAWRECTREL(939.8,940,940.2,1000,RGB(0,0,10));
DRAWRECTREL(0,940,1000,940.2,RGB(0,0,10));
DRAWTEXT_FIX(1,0.8,0.88,0,STRCAT(STRCAT('',CON2STR(现手买,1)),'万')),COLOR0000FF;
DRAWTEXT_FIX(1,0.68,0.88,0,STRCAT(STRCAT('',CON2STR(现手卖,1)),'万')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)>0,0.755,1.88,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万'))) COLOR00FFFF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)<0,0.755,1.88,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万'))) COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)=0,0.755,1.88,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万'))) COLOR80FFFF;
DRAWTEXT_FIX(1,1.68,0.97,0,STRCAT(STRCAT(' ',CON2STR(MPB2,1)),'%%')),COLOR00FF00;
DRAWTEXT_FIX(1,1.94,0.97,0,STRCAT(STRCAT('',CON2STR(MPB1,1)),'%%')),COLOR0000FF;
DRAWTEXT_FIX(1,0.05,0.1,0,HYBLOCK)COLOR0080FF;
DRAWTEXT_FIX(1,0.12,0.1,0,DYBLOCK)COLORRED;
DRAWTEXT_FIX(1,0.05,0.14,0,GNBLOCK)COLOR0000FF;
DRAWTEXT_FIX(1,0.05,0.18,0,FGBLOCK)COLORFF00FF;
{分时操作线}
{均价:SUM(V*C,0)/SUM(V,0),COLOR00F7F7,DOTLINE;Y:="MK.明Y#DAY";
D:="MK.明D#DAY";}
{Z:="MK.明Z#DAY";
K:="MK.明K#DAY";}
{KJ1:REFDATE(Y,DATE),COLOR00AEAE;KJ2:REFDATE(D,DATE),COLORRED,DOTLINE;KJ6:REFDATE(Y,DATE),COLOR00FF00 ,DOTLINE ;}
{KJ4:REFDATE(Z,DATE),COLOR000000;
KJ5:REFDATE(K,DATE),COLORBD0000;}
{DRAWNUMBER(ISLASTBAR,KJ1,KJ1),COLOR00AEAE;DRAWNUMBER(ISLASTBAR,KJ2,KJ2);
DRAWNUMBER(ISLASTBAR,KJ6,KJ6);}
{DRAWNUMBER(ISLASTBAR,KJ4,KJ4);
DRAWNUMBER(ISLASTBAR,KJ5,KJ5),COLOR9B9B00;}
{均:SUM(CLOSE*VOL,FROMOPEN)/SUM(VOL,FROMOPEN),COLOR000080,DOTLINE;};
超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;
净流入:(超B+大B+中B+小B)+(超S+大S+中S+小S),NODRAW;
超大单:(超B)+(超S);
大单:(大B)+(大S);
中单:(中B)+(中S);
小单:(小B)+(小S);
|
