动力线抓牛股指标 (源码)

VAR1:=VOL/((H-L)*2-ABS(C-O));
买盘:=IF(C O,VAR1*(H-L),IF(C O,VAR1*((H-O)+(C-L)),VOL/2));
卖盘:=IF(C O,0-VAR1*((H-C)+(O-L)),IF(C O,0-VAR1*(H-L),0-VOL/2));
DLX:(买盘-(-卖盘))/量*换手,COLORAAFF3D,LINETHICK0;
STICKLINE((买盘-(-卖盘))/量*换手 0,DLX,0,8,0),COLORFF8800;
STICKLINE((买盘-(-卖盘))/量*换手 =0,DLX,0,8,0),COLORred;
{股票软件下载网-股票公式网站 www.9m8.cn 九毛八公式指标网}
动力线:SUM(DLX,5),ColorGREEN,linethick2;
0,Colorffff;
xx:=动力线
yy:=动力线
PARTLINE(动力线 REF(动力线,xx),动力线),colorGREEN,linethick2;
PARTLINE(动力线 REF(动力线,yy),动力线),colorffffff,linethick2;
A1:=SUMBARS(VOL,CAPITAL);
CMA:=IF(CAPITAL 0,SUM(AMOUNT,A1)/SUM(VOL,A1)/100,EMA(CLOSE,120));
百分之百换手价:CMA,LINETHICK0,ColorFFC0FF;{100%换手平均成本价};