通达信主动买卖指标

通达信主动买卖指标
 

源码

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(主买-主卖);{www.gpxiazai.com}
 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;