通达信另类黄金分割主图选股指标公式源码

通达信另类黄金分割主图选股指标公式源码

源码正文：

T:=150;TT:=3;N1:=0{XG51};
AMOV:=vol*(OPEN+CLOSE)/2{XG51};
成本价:SUM(AMOV,5)/SUM(VOL,5),LINETHICK1,COLOR209FFF{XG51};
maA:MA(C,N1),COLOR00FF00{XG51};
DRAWTEXT(ISLAstBAR AND N1>0 AND MAA>REF(MAA,1),MAA,'↑'),COLOR00FF00{XG51};
DRAWTEXT(ISLASTBAR AND N1>0 AND MAA<REF(MAA,1),MAA,'&darr;'),COLOR00FF00{XG51};
高1:=REF(HHV(H,T),TT){XG51};
低1:=REF(LLV(L,T),TT){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};
顶:REFDATE(高1,DATE),COLORFFFF00{XG51};
一:REFDATE(H1,DATE),DOTLINE,COLORBLUE{XG51};
二:REFDATE(H2,DATE),DOTLINE,COLORLIMAGENTA{XG51};
三:REFDATE(H3,DATE),COLOR00FFFF{XG51};
四:REFDATE(H4,DATE),DOTLINE,COLORLIMAGENTA{XG51};
五:REFDATE(H5,DATE),DOTLINE,COLORBLUE{XG51};
低:REFDATE(低1,DATE),COLOR00FF00{XG51};
TT3:=(CURRBARSCOUNT=5){XG51};
TT4:=(CURRBARSCOUNT=5+3){XG51};
DRAWNUMBER(TT3 AND 顶,顶,顶),COLOR999900{XG51};
DRAWTEXT(TT4 AND 顶,顶,'高:'),COLOR208FFF{XG51};
DRAWNUMBER(TT3 AND 一,一,一),COLOR999999{XG51};
DRAWTEXT(TT4 AND 一,一,'191:'),COLOR208FFF{XG51};
DRAWNUMBER(TT3 AND 二,二,二),COLOR999999{XG51};
DRAWTEXT(TT4 AND 二,二,'382:'),COLOR208FFF{XG51};
DRAWNUMBER(TT3 AND 三,三,三),COLOR999999{XG51};
DRAWTEXT(TT4 AND 三,三,'1/2:'),COLOR208FFF{XG51};
DRAWNUMBER(TT3 AND 四,四,四),COLOR999999{XG51};
DRAWTEXT(TT4 AND 四,四,'618:'),COLOR208FFF{XG51};
DRAWNUMBER(TT3 AND 五,五,五),COLOR999999{XG51};
DRAWTEXT(TT4 AND 五,五,'809:'),COLOR208FFF{XG51};
DRAWNUMBER(TT3 AND 低,低*1.01,低),COLOR999900{XG51};
DRAWTEXT(TT4 AND 低,低*1.009,'低:'),COLOR208FFF{XG51};
AS:=(O+H+L+C)/4{XG51};
BL:ema(AS,17),LINETHICK2,COLOR0000FF{XG51};
DRAWNUMBER(ISLASTBAR AND BL,BL*1.005,BL){XG51};
XGM:=crOSS(C,BL){XG51};
DRAWICON(XGM,BL,9){XG51};
IF(BL>REF(BL,1),BL,DRAWNULL),LINETHICK2,COLORBLUE{XG51};
IF(BL<REF(BL,1),BL,DRAWNULL),LINETHICK2,COLOR00FF00{XG51};
DRAWTEXT(ISLASTBAR AND BL>REF(BL,1),BL,'&uarr;'),COLOR00FFFF{XG51};
DRAWTEXT(ISLASTBAR AND BL<REF(BL,1),BL,'&darr;'),COLOR00FF00{XG51};
difF:=EMA(CLOSE,12) - EMA(CLOSE,26){XG51};
DEA:=EMA(DIFF,9){XG51};
macd:=2*(DIFF-DEA),{XG51};
GMB:IF(CROSS(DIFF,DEA) AND DIFF>0,L*0.999,DRAWNULL),CROSSDOT,LINETHICK3,COLOR00FFFF{XG51};
GMC:IF(CROSS(DIFF,DEA) AND DIFF<0,L*0.999,DRAWNULL),CROSSDOT,LINETHICK3,COLOR208FFF{XG51};
DRAWTEXT(CROSS(DIFF,DEA) AND DIFF>0,L*0.998,'金叉>0'),COLORBLUE{XG51};
DRAWTEXT(CROSS(DIFF,DEA) AND DIFF<0,L*0.998,'金叉<0'),COLORBLUE{XG51};
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100{XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
GJD:IF(CROSS(K,D) AND K>20 AND D<50,L*0.999,DRAWNULL),CROSSDOT,LINETHICK3,COLORFF00FF{XG51};
DRAWTEXT(CROSS(K,D) AND K>20 AND D<50,L*0.998,'K>20 D<50 kd金叉 '),COLOREEAAEE{X!G=5~1!C!N!{};