通达信短线先机指标公式源码

N:=12;
M:=9;
DI:(EMA(CLOSE,12)-EMA(CLOSE,26))*5,COLORWHITE,LINETHICK3;
DE:(EMA(DI,9))*1,COLORGREEN,LINETHICK2;
DRAWBAND(DI,RGB(0,40,0),DE,RGB(0,220,0));
VAR11:=(2*CLOSE+HIGH+LOW)/4;
VAR2:=EMA(EMA(EMA(VAR11,4),4),4);
J:= ((VAR2-REF(VAR2,1))/REF(VAR2,1)*100)*1.5;
D:= (MA(J,3));
K: (MA(J,1));
DRAWTEXT(crOSS(K,D),D,'B'),COLORRED;
DRAWTEXT(CROSS(D,K),D*1.08,'S'),COLORGREEN;
额:AMOUNT/10000000,NODRAW;
VAR1:=AMOUNT/((HIGH-LOW)*2-Abs(CLOSE-OPEN));
流入亿:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),AMOUNT/2))/100000000,COLORRED,NODRAW;
流出亿:IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN- LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-AMOUNT/2))/100000000,COLOR00FF00,NODRAW;
差:(流入亿+流出亿),NODRAW;
强:=EMA((CLOSE-REF(CLOSE,1))/CLOSE*10,2);
主力:=EMA(差,1),COLORFF00FF,LINETHICK5;
差A:3*EMA(EMA(EMA(EMA(强,2),2),2),2),NODRAW;
净流:5*EMA(EMA(EMA(EMA(差A,1),2),2),2), COLORRED,NODRAW;
STICKLINE(净流<0,0,净流,0.15,0),COLORFF6600;
STICKLINE(净流>0,0,净流,0.1,0),COLORRED;
STICKLINE(净流<REF(净流,1)AND 净流>0,0,净流,0.15,0),COLORLIGREEN ;
STICKLINE(净流>REF(净流,1)AND 净流<0,0,净流,0.2,0),COLORYELLOW ;
DRAWTEXT(CROSS(0,净流),0+1,'水'),COLORGREEN;
DRAWTEXT(CROSS(REF(净流,1),净流),净流-0.7,'观'),COLORCYAN;
DRAWTEXT(CROSS(净流,0),0.7,'预 '),COLORRED;
DRAWICON(CROSS(DI,DE) AND DI>0,DI*1.04,23);
STICKLINE(ABS(DI-DE)/ABS(REF(DI,1)-REF(DE,1))>1.5 AND ABS(REF(DI,1)-REF(DE,1))
<ABS(REF(DI,2)-REF(DE,2))AND DI>DE AND DI>0.40 AND C/REF(C,1)>1.02,-1.2,-1.9,4,0),COLORYELLOW;
STICKLINE(ABS(DI-DE)/ABS(REF(DI,1)-REF(DE,1))>1.9 AND ABS(REF(DI,1)-REF(DE,1))
>ABS(REF(DI,2)-REF(DE,2))AND DI>DE AND DI>0.40 AND C/REF(C,1)>1.04,-1,-1.9,2,0),COLORMAGENTA ;
STICKLINE(ABS(DI-DE)/ABS(REF(DI,1)-REF(DE,1))>1.7 AND ABS(REF(DI,1)-REF(DE,1))
>ABS(REF(DI,2)-REF(DE,2))AND DI>DE AND DI>0.40 AND C/REF(C,1)>1.04,-0.5,-1.15,2,0),COLORWHITE;
STICKLINE(ABS(DI-DE)/ABS(REF(DI,1)-REF(DE,1))>1.4 AND ABS(REF(DI,1)-REF(DE,1))
>ABS(REF(DI,2)-REF(DE,2))AND DI>DE AND DI>0.40 AND C/REF(C,1)>1.04,-1.19,-2.0,2,0),COLORLIGREEN ;
X4:=REF(K,10)=HHV(K,21);
X5:=FILTER(X4,10);
X6:=BacKSET(X5,21);
X7:=FILTER(X6,10);
T线:=REF(K,BArslAST(X7)),NODRAW,COLORMAGENTA;
STICKLINE(CLOSE>0,T线,T线,6,0),COLORFF6600;
DRAWICON(CROSS(K,T线) AND K>0,T线*0.99,34);