通达信精准主图选股指标公式源码

通达信精准主图选股指标公式源码

源码正文：

A:=(3*C+L+O+H)/6{XG51};
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210{XG51};
S2:=SMA(C,3,1){XG51};
S6:=Sma(C,5,1){XG51};
DK:=2*(S2-S6){XG51};
成本均线:ema(X,13),COLORFF00FF,LINETHICK0{XG51};
支撑均线:LLV(HIGH,30),LINETHICK2,COLORFFCC00{XG51};
IF(MA(C,23.5),MA(C,23.5),DRAWNULL),COLORRED{XG51};
DRAWKLINE(HIGH,OPEN,LOW,CLOSE){XG51};
MA3:MA(C,3),,COLORBLUE,LINETHICK2{XG51};
MA9:MA(C,9)COLORLIMAGENTA,LINETHICK2{XG51};
A1AA:=9{XG51};
A2AA:=(REF(CLOSE,A1AA+1)<CLOSE){XG51};
DRAWTEXT(FILTER((A2AA>-0.5),84),(HIGH)*(1.05),'小心变盘'),COLORFFFFFF{XG51};
VAR6:=REF(C,1){XG51};
VAR7:=SMA(MAX(C-VAR6,0),6,1)/SMA(Abs(C-VAR6),6,1)*100{XG51};
DRAWTEXT(crOSS(82,VAR7),H*1.01,'▼逃顶'),COLORBLUE{XG51};
MA1:=MA(C,10){XG51};
MA20:MA(C,20){XG51};
stICKLINE(MA1>=REF(MA1,1),MA1,REF(MA1,1),2,0),COLORWHITE{XG51};
STICKLINE(MA1<REF(MA1,1),MA1,REF(MA1,1),2,1),COLORCYAN{XG51};
STICKLINE(MA20>=REF(MA20,1),MA20,REF(MA20,1),2,0),COLORBLUE{XG51};
STICKLINE(MA20<REF(MA20,1),MA20,REF(MA20,1),2,1),COLORFFFFFF{XG51};
日:=150;昨前:=3{XG51};
高1:=REF(HHV(H,日),昨前){XG51};
低1:=REF(LLV(L,日),昨前){XG51};
H1:=高1-(高1-低1)*0.191{XG51};
H2:=高1-(高1-低1)*0.382{XG51};
H3:=高1-(高1-低1)*0.5{XG51};
H4:=高1-(高1-低1)*0.618{XG51};
H5:=高1-(高1-低1)*0.809{XG51};
XAA_7:=150{XG51};
XAA_8:=3{XG51};
XAA_9:=REF(HHV(HIGH,XAA_7),XAA_8){XG51};
XAA_10:=REF(LLV(LOW,XAA_7),XAA_8){XG51};
XAA_11:=XAA_9-(XAA_9-XAA_10)*0.191{XG51};
XAA_12:=XAA_9-(XAA_9-XAA_10)*0.382{XG51};
XAA_13:=XAA_9-(XAA_9-XAA_10)*0.5{XG51};
XAA_14:=XAA_9-(XAA_9-XAA_10)*0.618{XG51};
XAA_15:=XAA_9-(XAA_9-XAA_10)*0.809{XG51};
顶:REFDATE(XAA_9,DATE),COLORWHITE{XG51};
一0.809:REFDATE(XAA_11,DATE)DOTLINE,COLORBLUE{XG51};
二0.618:REFDATE(XAA_12,DATE)DOTLINE,COLORLIMAGENTA{XG51};
三0.500:REFDATE(XAA_13,DATE)DOTLINE,COLORRED{XG51};
四0.382:REFDATE(XAA_14,DATE)DOTLINE,COLORLIMAGENTA{XG51};
五0.191:REFDATE(XAA_15,DATE)DOTLINE,COLORRED{XG51};
低:REFDATE(XAA_10,DATE)DOTLINE,COLORWHITE{X=G+5-1=C=N={};