量:=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%换手平均成本价};