通达信分时三线源码副图
{分时主图}
H01:=MAX(DYNAINFO(3),DYNAINFO(5));
L01:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H01-L01;
阻力:L01+P1*7/8,COLORGREEN,LINETHICK2;
支撑:L01+P1*0.5/8,COLORRED,LINETHICK2;
中:(支撑+阻力)/2,COLOR00FFFF,LINETHICK2;
DRAWTEXT(ISLASTBAR,阻力,'顶'),COLORGREEN;
DRAWTEXT(ISLASTBAR,支撑,'底'),COLORRED;
DRAWTEXT(ISLASTBAR,(支撑+阻力)/2,'中'),COLORWHITE;
现价:CLOSE,COLORWHITE,LINETHICK2;
底买:STICKLINE(C<支撑,支撑,C,5,0),COLORRED;
MR:=C<支撑 AND CROSS(C,REF(C,2));
DRAWTEXT(CROSS(现价,支撑),中,'买'),COLORRED;
STICKLINE(CROSS(现价,支撑),C,中,2,0),COLORRED;
STICKLINE(MR=1,支撑,中,2,0),COLORRED;
DRAWICON(MR=1 OR CROSS(现价,支撑),中,1);
STICKLINE(CROSS(支撑,现价),支撑,(支撑-中)/5+支撑,2,0),COLORYELLOW;
DRAWTEXT(CROSS(支撑,现价),(支撑-中)/5+支撑,'底'),COLORYELLOW;
MC:=C>阻力 AND CROSS(REF(C,2),C);
DRAWTEXT(CROSS(阻力,现价),中,'卖'),COLORGREEN;
STICKLINE(CROSS(阻力,现价),C,中,2,0),COLORGREEN;
STICKLINE(MC=1,阻力,中,2,0),COLORGREEN;
DRAWICON(MC=1 OR CROSS(阻力,现价),中,2);
STICKLINE(CROSS(现价,阻力),阻力,阻力-(支撑-中)/5,2,0),COLORMAGENTA;
DRAWTEXT(CROSS(现价,阻力),阻力-(支撑-中)/5,'顶'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,阻力,'顶'),COLORGREEN;
DRAWTEXT(ISLASTBAR,支撑,'底'),COLORRED;
DRAWTEXT(ISLASTBAR,(支撑+阻力)/2,'中'),COLORWHITE;
AMOUNT/V/100,COLORYELLOW;
成交额:=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)),'%');
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,AAA3),COLOR0000FF;
