动力线幅图

动力线幅图

源码

量:=VOL;
换手:VOL/CAPITAL*100,LINETHICK0;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
买盘:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
卖盘:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2));
DLX:(买盘-(-卖盘))/量*换手,COLORAAFF3D,LINETHICK0;
STICKLINE((买盘-(-卖盘))/量*换手<0,DLX,0,8,0),COLORFF8800;
STICKLINE((买盘-(-卖盘))/量*换手<0,DLX,0,5,0),COLORFFaa00;
STICKLINE((买盘-(-卖盘))/量*换手<0,DLX,0,3,0),COLORFFcc00;
STICKLINE((买盘-(-卖盘))/量*换手<0,DLX,0,1,0),COLORFFee00;
STICKLINE((买盘-(-卖盘))/量*换手>=0,DLX,0,8,0),COLOR880088;
STICKLINE((买盘-(-卖盘))/量*换手>=0,DLX,0,5,0),COLORaa00aa;
STICKLINE((买盘-(-卖盘))/量*换手>=0,DLX,0,3,0),COLORcc00CC;
STICKLINE((买盘-(-卖盘))/量*换手>=0,DLX,0,1,0),COLORee00ee;
DLX1:SUM(DLX,6),Color0065F8;
DLX2:MA(DLX1,3),Color26FF3F;
DLX3:MA(DLX1,10),COLORRED,LINETHICK2;
{partline(DLX3>REF(DLX3,1),DLX3),LINETHICK2,Color00FFFF;
partline(DLX3<REF(DLX3,1),DLX3),LINETHICK2,ColorFFFF00;}
0,Color135498;
A1:=SUMBARS(VOL,CAPITAL);
CMA:=IF(CAPITAL>0,SUM(AMOUNT,A1)/SUM(VOL,A1)/100,EMA(CLOSE,120));
百分之百换手价:CMA,LINETHICK0,ColorFFC0FF;{100%换手平均成本价};