通达信斐波均线+MACD主图选股指标公式源码

通达信斐波均线+MACD主图选股指标公式源码

源码正文：

ma8:=MA(CLOSE,8){XG51};
MA13:MA(CLOSE,13){XG51};
MA21:=MA(CLOSE,21),COLOR1880FF{XG51};
MA34:MA(CLOSE,34),COLORCYAN{XG51};
MA55:MA(CLOSE,55),COLORLIMAGENTA{XG51};
F:=100*(C-REF(C,1))/REF(C,1){XG51};
今小昨:=IF(C<REF(O,1) AND F<0,1,0){XG51};
P1:=今小昨{XG51};
今小前:=IF(C<REF(O,2) AND F<0,1,0){XG51};
P2:=今小前{XG51};
stICKLINE(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,OPEN,CLOSE,3,0),COLORFF1CAE{XG51};
STICKLINE(P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0,OPEN,CLOSE,3,0),COLORFF972F{XG51};
DRAWTEXT(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,L*0.998,'&larr;底'),COLOR105D10{XG51};
DRAWTEXT(crOSS(C,MA55),L*0.995,'&larr;满仓'),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0,0.1,0,'★ 粉色55线走平上翘、线上做多、回调阴线买 ★'),COLORFF00FF{XG51};
DRAWTEXT_FIX(1,0,0.2,0,'★ 三均线走平上翘、每次回调均线、可阴线买 ★'),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.23,0.1,0,'★ 三线开花、金叉全仓、量线、macd共振才可买 ★'),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.23,0.2,0,'★ 抄底、满仓、买1买2、量线、MacD共振才可买 ★'),COLORFF00FF{XG51};
mtm:=C-REF(C,1);DX:=100*ema(EMA(MTM,6),6)/EMA(EMA(Abs(MTM),6),6){XG51};
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0){XG51};
DRAWTEXT(FILTER(买=1,5),LOW-0.03,'&larr;预警'),COLORFF00FF{XG51};
多方炮:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN{XG51};
DRAWTEXT(多方炮,L+0.1,'&larr;多方炮'),COLORBROWN{XG51};
DE:=CONST(LLV(L,90)){XG51};
JI:=CONST(HHV(H,90))-DE{XG51};
DE_K:=DE+JI/3*2{XG51};
JI_K:=JI/2{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
DE_A:=CONST(LLV(RSV,90)){XG51};
DD_A:=CONST(HHV(RSV,90))-DE_A{XG51};
R:=(RSV-DE_A)/DD_A{XG51};
RSV1:=R*JI_K+DE_K{XG51};
DE_M:=DE+JI/3{XG51};
JI_M:=JI/2{XG51};
kdL:=CONST(LLV(EMA(C,26),90)){XG51};
KDH:=CONST(HHV(EMA(C,26),90))-KDL{XG51};
R_K1:=(EMA(C,12)-KDL)/KDH{XG51};
R_K2:=(EMA(C,26)-KDL)/KDH{XG51};
dif:(R_K1-R_K2)*JI*1.5+DE_M,COLORBROWN{XG51};
DEA:EMA(DIF,9),COLOR104C13{XG51};
MACD:=(DIF-DEA)*2+DE_M{XG51};
STICKLINE(MACD>=DE_M,MACD,DE_M,0,0),COLORWHITE{XG51};
D_1:=MACD>H AND H>=DE_M AND DE_M>=L{XG51};
D_2:=MACD>H AND H>=L AND L>DE_M{XG51};
D_3:=H>MACD AND MACD>=L AND L>DE_M{XG51};
D_4:=H>MACD AND MACD>DE_M AND DE_M>=L{XG51};
STICKLINE(D_1>0,H,DE_M,0,0),COLORBLUE{XG51};
STICKLINE(D_2,H,L,0,0),COLORBLUE{XG51};
STICKLINE(D_3,MACD,L,0,0),COLORBLUE{XG51};
STICKLINE(D_4,MACD,DE_M,0,0),COLORBLUE{XG51};
D_5:=MACD<L AND L<=DE_M AND DE_M<=H{XG51};
D_6:=MACD<L AND H<DE_M{XG51};
D_7:=L<MACD AND MACD<=H AND H<DE_M{XG51};
D_8:=L<MACD AND MACD<DE_M AND DE_M<=H{XG51};
STICKLINE(MACD<DE_M,DE_M,MACD,0,0),COLORYELLOW{XG51};
STICKLINE(D_5,DE_M,L,0,0),COLORBLUE{XG51};
STICKLINE(D_6,H,L,0,0),COLORBLUE{XG51};
STICKLINE(D_7,H,MACD,0,0),COLORBLUE{XG51};
STICKLINE(D_8,DE_M,MACD,0,0),COLORBLUE{XG51};
VAR1:=LLV(LOW,21){XG51};
VAR2:=HHV(HIGH,21){XG51};
AK1:=EMA((((CLOSE-VAR1)/(VAR2-VAR1))*100),5){XG51};
AK:=EMA((((CLOSE-VAR1)/(VAR2-VAR1))*50),13){XG51};
DD2:=EMA(((0.667*REF(AK1,1))+(0.333*AK1)),2){XG51};
VAR3:=LLV(LOW,55){XG51};
VAR4:=HHV(HIGH,34){XG51};
VAR5:=EMA((((CLOSE-VAR3)/(VAR4-VAR3))*100),3){XG51};
VAR6:=((AK+VAR5)/2){XG51};
VAR7:=EMA(((0.667*REF(VAR5,1))+(0.333*AK1)),2){XG51};
VAR8:=EMA(VAR6,5){XG51};
BB:=EMA(((0.667*REF(VAR8,1))+(0.333*VAR8)),2){XG51};
AB:=CROSS(AK1,AK){XG51};
BB1:=(CROSS(AK1,BB) AND (BB<30)){XG51};
CD:=(BB1*0.6){XG51};
DRAWTEXT((CD=0.6),L,'&larr;抄底'),COLOR33CC99{XG51};
乖离线:=((C-REF(MA21,1))/20+MA21)*1.20{XG51};
TT1:=CROSS(MA21,MA34) AND CROSS(MA21,MA55) AND V>REF(V,1){XG51};
TT2:=MA21>REF(MA21,2) AND V>REF(V,1) AND CROSS(C,MA21){XG51};
STICKLINE(TT1,L,L-0.09,4,0),COLORBLUE{XG51};
DRAWTEXT(TT1,L*0.995,'&larr;金叉全仓'),COLORBLUE{XG51};
STICKLINE(CROSS(C,MA34) AND CROSS(C,MA55)
AND CROSS(C,MA21),L,L-0.18,4,0),COLORBLUE{XG51};
DRAWTEXT(CROSS(C,MA34) AND CROSS(C,MA55)
AND CROSS(C,MA21),L*0.97,'&larr;三线开花'),COLORWHITE{XG51};
STICKLINE(TT2,L,L-0.09,4,0),COLORBLUE{XG51};
DRAWTEXT(TT2,L*0.995,'&larr;买1'),COLORBLUE{XG51};
STICKLINE(CROSS(C,乖离线),H,H+0.09,4,0),COLOR00FF00{XG51};
DRAWTEXT(CROSS(C,乖离线) ,H+0.13,'&larr;卖点'),COLOR00FF00{XG51};
STICKLINE(MA55>=REF(MA55,1) AND MA21>=REF(MA21,1)
AND CROSS(C,MA55),L,L-0.09,4,0),COLORFF972F{XG51};
DRAWTEXT(MA55>=REF(MA55,1) AND MA21>=REF(MA21,1)
AND CROSS(C,MA55),L*0.98,'&larr;满仓'),COLORFF972F{XG51};
STICKLINE(MA34>=REF(MA34,1) AND CROSS(C,MA21) AND CROSS(C,MA34)
AND V>REF(V,1),L,L-0.09,4,0),COLORFF00FF{XG51};
DRAWTEXT(MA34>=REF(MA34,1) AND CROSS(C,MA21) AND CROSS(C,MA34)
AND V>REF(V,1),L*0.976,'&larr;买2'),COLORFF00FF{X_G_5~1_C_N_{};