量:=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,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),COLORYELLOW;
{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%换手平均成本价};
下面是通达信的
{动力线指标-TXD}
量:=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,3,0),COLORFFAA00;
STICKLINE((买盘-(-卖盘))/量*换手<0,DLX,0,2,0),COLORFFCC00;
STICKLINE((买盘-(-卖盘))/量*换手<0,DLX,0,0,0),COLORFFEE00;STICKLINE((买盘-(-卖盘))/量*换手>=0,DLX,0,3,0),COLORAA00AA;
STICKLINE((买盘-(-卖盘))/量*换手>=0,DLX,0,2,0),COLORCC00CC;
STICKLINE((买盘-(-卖盘))/量*换手>=0,DLX,0,0,0),COLOREE00EE;
DLX1:SUM(DLX,6),COLOR0065F8;
DLX2:MA(DLX1,3),COLOR26FF3F;
DLX3:MA(DLX1,10),COLORYELLOW;
{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%换手平均成本价}; |
