动力线优化版：抓牛股请用动力线 源码 副图

优化"要抓牛股请用动力线"原码，动力线已找到！


{动力线抓牛股(可设置排序)}优化版，飞狐用

{用法注释：a,绿线看多；b,白线看空；c,在"0"轴之下所有的线空空也；d,"动力线 "--可设置排序.}

量:=V;
换手:V/CAPITAL*100,LINETHICK0;
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;
动力线:SUM(DLX,5),ColorGREEN,linethick2;
0,Colorffff;
xx:=动力线>0;
yy:=动力线<0;
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%换手平均成本价};