通达信〖异动看多〗识别股价短期异动主图指标公式源码

异动1:=(2*C+H+L)/4;
异动2:=LLV(L,5);
异动3:=HHV(H,4);
异动4:=EMA((异动1-异动2)/(异动3-异动2)*100,4);
异动5:=EMA(0.667*REF(异动4,1)+0.333*异动4,2);
DRAWICON(crOSS(异动4,异动5) AND 异动4< 30,L-0.05,1);
DRAWICON(CROSS(异动5,异动4) AND 异动4>70,H+0.05,2);
异动6:=C-REF(C,5);
异动7:=EMA(EMA(异动6,5),5)/EMA(EMA(Abs(异动6),5),5);
异动8:=EMA(EMA(异动6,20),20)/EMA(EMA(ABS(异动6),20),20);
异动9:=IF(异动7>0 AND CROSS(异动8,异动7),90,100);
DRAWICON(异动9< 0,H+0.05,2);
异动10:=EMA(异动1,14),COLORBLUE,LINETHICK2;
异动11:=EMA(异动1,25),COLORLIBLUE,LINETHICK2;
异动12:=(异动10-REF(异动10,1))/REF(异动10,1)*100;
异动13:=(异动11-REF(异动11,1))/REF(异动11,1)*100;
NOTEXT异动14:IF(异动12>=0 AND BARSLAST(CROSS(异动12,0))>0,REF((C+O)/2,BARSLAST(CROSS(异动12,0))),DRAWNULL),COLORWHITE,LINETHICK2;
NOTEXT异动15:IF(异动12< 0 AND BARSLAST(CROSS(0,异动12))>0,REF((C+O)/2,BARSLAST(CROSS(0,异动12))),DRAWNULL),COLORCYAN,LINETHICK2;
NOTEXT异动16:IF(异动12>=0,异动10,DRAWNULL),COLORYELLOW,LINETHICK3;
NOTEXT异动17:IF(异动12< 0 AND 异动13< 0,异动10,DRAWNULL),COLORGREEN,LINETHICK3;
ZT:=C=H AND C/REF(C,1)>1.09;
T1:=CROSS(异动12,0);
N1:=BARSLAST(T1);
T2:=ZT AND REF(EVERY(C>=REF(L,N1),N1),1);
VAR11:=ZT AND T1;
VAR12:=N1>=0 AND T2 AND COUNT(ZT,N1)=1 AND REF(ZT=0,N1) AND N1< 11;
XG:=VAR11 OR VAR12;
DRAWICON(XG,L,42);
STICKLINE(XG,H,L,0,0),COLORRED;
STICKLINE(XG,C,O,3,0),COLORRED;