通达信主动买卖指标

以下是通达信主动买卖指标

通达信主动买卖指标

源码

PJ:=(H+L+C)/3;

V1:=IF(H=L,1,H-MAX(O,C));

V2:=IF(H=L,1,MAX(C,O)-PJ);

V3:=IF(H=L,1,MIN(O,C)-L);

V4:=IF(H=L,1,PJ-MIN(C,O));

V5:=VOL/IF(H=L,4,H-L);

V6:=(V1*V5)+(V2*V5);

V7:=(V3*V5)+(V4*V5);

WP1:=DYNAINFO(23);

NP1:=DYNAINFO(22);

WP2:=IF(ISLASTBAR,V7*240/FROMOPEN,V7);

NP2:=IF(ISLASTBAR,V6*240/FROMOPEN,V6);

主买:IF(ISLASTBAR AND PERIOD=5,WP1,WP2),COLORRED,NODRAW;

主卖:IF(ISLASTBAR AND PERIOD=5,NP1,NP2),COLORGREEN,NODRAW;

净量:=ABS(主买-主卖);

STICKLINE(主买>主卖,0,主买,2,1),COLOR0014AD;

STICKLINE(主买>主卖,0,净量,2,0),COLOR0014CE;

STICKLINE(主卖>主买,0,主卖,2,1),COLOR00BB00;

STICKLINE(主卖>主买,0,净量,2,0),COLOR00CC00;

DRAWRECTREL(50,0,CONST(主买*500/(主买+主卖)+50),80,RGB(230,65,0));

DRAWRECTREL(50,110,CONST(主卖*500/(主买+主卖)+50),190,RGB(0,104,0));

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.005,0,0,'主买'),COLORLIRED;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.005,0.1,0,'主卖'),COLORGREEN;