|
以下是通达信指标动力线指标副图源码（无源码的请下载附件导入）
{动力线指标 熊芬的原码改}
量:=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((买盘-(-卖盘))/量*换手,DLX,0,2,0),VOLSTICK;
DLX1:SUM(DLX,6),COLORYELLOW;
DLX2:MA(DLX1,5);
DLX3:MA(DLX1,10);
{A1:=SUMBARS(VOL,CAPITAL);}
{CMA:=IF(CAPITAL>0,SUM(AMOUNT,A1)/SUM(VOL,A1)/100,EMA(CLOSE,120));}
{换手价:CMA,LINETHICK0,COLORFFC0FF;}{100%换手平均成本价};
65599145.jpg
| 
