通达信动向指标(源码)

var1:=(CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*100;
var2:=SMA(var1,3,1);
var3:SMA(var2,3,1)*var1, LINETHICK1,COLORRED;
var4:SMA(var3,3,1),LINETHICK1,COLORYELLOW;
var9:=CROSS(var4,var3) AND var3>80;
STICKLINE(var9,var3-5,100,1,1),LINETHICK0,COLORffff00;
DRAWTEXT(var9 AND COUNT(var9,10)=1,var3-15,'◆'),LINETHICK2,COLOR00ff00;
AA:=SMA(ABS(L-REF(L,1)),30,1)/SMA(MAX(L-REF(L,1),0),30,1);
TP:EMA(IF(L<=LLV(L,30),AA,0),3)*1000,COLORFF00FF,LINETHICK1;
DRAWICON(CROSS(var3,var4),var3,9);
VARQ1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VARQ2:=SMA(ABS(LOW-VARQ1),13,1)/SMA(MAX(LOW-VARQ1,0),10,1);
VARQ3:=EMA(VARQ2,10);
VARQ4:=LLV(LOW,33);
VARQ5:=EMA(IF(LOW<=VARQ4,VARQ3,0),3)*100;
空方发力:IF(VARQ5>REF(VARQ5,1),VARQ5,0),LINETHICK0,COLORRED;
STICKLINE(VARQ5>REF(VARQ5,1),0,VARQ5,6,0 ),COLORRED;
STICKLINE(VARQ5>REF(VARQ5,1),0,VARQ5,5,0 ),COLOR000055;
STICKLINE(VARQ5>REF(VARQ5,1),0,VARQ5,4,0 ),COLOR000077;
STICKLINE(VARQ5>REF(VARQ5,1),0,VARQ5,3.1,0 ),COLOR000099;
STICKLINE(VARQ5>REF(VARQ5,1),0,VARQ5,2.5,0 ),COLOR0000BB;
STICKLINE(VARQ5>REF(VARQ5,1),0,VARQ5,1.5,0 ),COLOR0000DD;
STICKLINE(VARQ5>REF(VARQ5,1),0,VARQ5,1,0 ),COLOR0000FF;
建仓迹象:IF(VARQ5<REF(VARQ5,1),VARQ5,0),LINETHICK0,COLORGREEN;
STICKLINE(VARQ5<REF(VARQ5,1),0,VARQ5,6,0),COLORGREEN;
STICKLINE(VARQ5<REF(VARQ5,1),0,VARQ5,5,0),COLOR005500;
STICKLINE(VARQ5<REF(VARQ5,1),0,VARQ5,4,0),COLOR007700;
STICKLINE(VARQ5<REF(VARQ5,1),0,VARQ5,3,0),COLOR009900;
STICKLINE(VARQ5<REF(VARQ5,1),0,VARQ5,2.5,0),COLOR00BB00;
STICKLINE(VARQ5<REF(VARQ5,1),0,VARQ5,1.5,0),COLOR00DD00;
STICKLINE(VARQ5<REF(VARQ5,1),0,VARQ5,1,0),COLOR00FF00;
VARQ12:=SMA(ABS(VARQ1-H),13,1)/SMA(MAX(VARQ1-H,0),10,1);
VARQ13:=EMA(VARQ12,10);
VARQ14:=HHV(H,33);
VARQ15:=EMA(IF(H>=VARQ14,VARQ13,0),3)*100;
多方发力:IF(VARQ15>REF(VARQ15,1),VARQ15,0),LINETHICK0,COLORFF00FF;
STICKLINE(VARQ15>REF(VARQ15,1),0,VARQ15,6,0),COLORFF00FF;
STICKLINE(VARQ15>REF(VARQ15,1),0,VARQ15,5,0 ),COLOR550055;
STICKLINE(VARQ15>REF(VARQ15,1),0,VARQ15,4,0 ),COLOR770077;
STICKLINE(VARQ15>REF(VARQ15,1),0,VARQ15,3,0 ),COLOR990099;
STICKLINE(VARQ15>REF(VARQ15,1),0,VARQ15,2.5,0 ),COLORBB00BB;
STICKLINE(VARQ15>REF(VARQ15,1),0,VARQ15,1.5,0 ),COLORDD00DD;
STICKLINE(VARQ15>REF(VARQ15,1),0,VARQ15,1,0 ),COLORFF00FF;
出货迹象:IF(VARQ15<REF(VARQ15,1),VARQ15,0),LINETHICK0,COLORYELLOW;
STICKLINE(VARQ15<REF(VARQ15,1),0,VARQ15,6,0 ),COLORYELLOW;
STICKLINE(VARQ15<REF(VARQ15,1),0,VARQ15,5,0),COLOR005555;
STICKLINE(VARQ15<REF(VARQ15,1),0,VARQ15,4,0),COLOR007777;
STICKLINE(VARQ15<REF(VARQ5,1),0,VARQ15,3,0),COLOR009999;
STICKLINE(VARQ15<REF(VARQ15,1),0,VARQ15,2.5,0),COLOR00BBBB;
STICKLINE(VARQ15<REF(VARQ15,1),0,VARQ15,1.5,0),COLOR00DDDD;
STICKLINE(VARQ15<REF(VARQ15,1),0,VARQ15,1,0),COLOR00FFFF;