通达信分时三线源码副图

{分时主图}

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;