通达信实用背离未加密选股指标公式源码

通达信实用背离未加密选股指标公式源码

源码正文：

difF:ema(CLOSE,12) - Ema(CLOSE,26){XG51};
DEA:EMA(DIFF,9){XG51};
MacD:2*(DIFF-DEA), COLORstICK,DRAWAbovE{XG51};
MACD金叉:=BArslAST(REF(crOSS(DIFF,DEA),1)){XG51};
MACD死叉:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
MACD上次金叉:=SUMBARS(REF(CROSS(DIFF,DEA),1),2){XG51};
MACD上次死叉:=SUMBARS(REF(CROSS(DEA,DIFF),1),2){XG51};
MACD次低点:=LLV(DIFF,MACD金叉){XG51};
MACD最低点:=LLV(DIFF,MACD上次死叉){XG51};
MACD底背离:=REF(CLOSE,MACD金叉+1)>CLOSE AND MACD次低点>MACD最低点 AND CROSS(DIFF,DEA){XG51};
DRAWLINE(MACD金叉=0,DEA,MACD底背离,DEA,0),COLORWHITE,LINETHICK2{XG51};
MACD次高点:=HHV(DIFF,MACD金叉){XG51};
MACD最高点:=HHV(DIFF,MACD上次金叉){XG51};
MACD顶背离:=REF(CLOSE,MACD死叉+1)<CLOSE AND MACD次高点<MACD最高点 AND CROSS(DEA,DIFF){XG51};
DRAWLINE(MACD死叉=0,DEA,MACD顶背离,DEA,0),COLORCYAN,LINETHICK2{XG51};
红面积:SUM(MACD,BARSLAST(MACD<0))*(MACD>0),COLOR0000FF,NODRAW{XG51};
绿面积:SUM(MACD,BARSLAST(MACD>0))*(MACD<0),COLORFFFF00,NODRAW{XG51};
AA:=ROUND(REF(绿面积,1)*100);BB:=ROUND(REF(红面积,1)*100){XG51};
DRAWNUMBER(CROSS(0,MACD),0.04,Abs(BB)),COLORLIMAGENTA{XG51};
DRAWNUMBER(CROSS(MACD,0),-0.01,ABS(AA)),COLORCYAN{XG51};
TYP:=(HIGH+LOW+CLOSE)/3{XG51};
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)){XG51};
BOLL:=MA(CLOSE,20){XG51};
UB:=BOLL+2*STD(CLOSE,20){XG51};
LB:=BOLL-2*STD(CLOSE,20){XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
J:=3*K-2*D{XG51};
PP:=CCI<-160 AND CLOSE<LB AND J<20{XG51};
QQ:=CCI>160 AND J>100{XG51};

DRAWICON(QQ,0,2){XG51};
DRAWICON(PP,0,1){XG51};
KDJ金叉:=BARSLAST(REF(CROSS(J,D),1)){XG51};
KDJ死叉:=BARSLAST(REF(CROSS(D,J),1)){XG51};
KDJ上次金叉:=SUMBARS(REF(CROSS(J,D),1),2){XG51};
KDJ上次死叉:=SUMBARS(REF(CROSS(D,J),1),2){XG51};
AAA1:=BARSLAST(REF(CROSS(J,D),1)){XG51};
KDJ次低点:=LLV(J,AAA1){XG51};
KDJ最低点:=LLV(J,KDJ上次死叉){XG51};
KDJ底背离:=REF(CLOSE,AAA1+1)>CLOSE AND KDJ次低点>KDJ最低点 AND CROSS(J,D){XG51};
DRAWTEXT(KDJ底背离,MACD,'KDJ底'),COLORWHITE{XG51};
STICKLINE(KDJ底背离,MACD,0,2,0),COLORWHITE{XG51};
BBB1:=BARSLAST(REF(CROSS(D,J),1)){XG51};
KDJ次高点:=HHV(J,AAA1){XG51};
KDJ最高点:=HHV(J,KDJ上次金叉){XG51};
KDJ顶背离:=REF(CLOSE,BBB1+1)<CLOSE AND KDJ次高点<KDJ最高点 AND CROSS(D,J){XG51};
DRAWTEXT(KDJ顶背离,MACD,'KDJ顶'),COLORCYAN{XG51};
STICKLINE(KDJ顶背离,MACD,0,2,0),COLORCYAN{XG51};
A1:=C>=REF(C,4){XG51};
A2:=C<REF(C,4){XG51};
A3:=C<REF(C,4) AND REF(A1,1){XG51};
T:=BARSLAST(A3),NODRAW{XG51};
M0:=(T=0 AND REFX(T=1 AND NOT(A2),1)) OR (REFX(T=2 AND NOT(A2),2)) OR (REFX(T=3 AND NOT(A2),3)) OR (REFX(T=4 AND NOT(A2),4)) OR (REFX(T=5 AND NOT(A2),5)) OR (REFX(T=6 AND NOT(A2),6)) OR (REFX(T=7 AND NOT(A2),7)) OR (REFX(T=8 AND NOT(A2),8)){XG51};
M1:=T=1 AND REFX(T=2 AND NOT(A2),1) OR (REFX(T=3 AND NOT(A2),2)) OR (REFX(T=4 AND NOT(A2),3)) OR (REFX(T=5 AND NOT(A2),4)) OR (REFX(T=6 AND NOT(A2),5)) OR (REFX(T=7 AND NOT(A2),6)) OR (REFX(T=8 AND NOT(A2),7)){XG51};
M2:=T=2 AND REFX(T=3 AND NOT(A2),1) OR (REFX(T=4 AND NOT(A2),2)) OR (REFX(T=5 AND NOT(A2),3)) OR (REFX(T=6 AND NOT(A2),4)) OR (REFX(T=7 AND NOT(A2),5)) OR (REFX(T=8 AND NOT(A2),6)){XG51};
M3:=T=3 AND REFX(T=4 AND NOT(A2),1)OR (REFX(T=5 AND NOT(A2),2)) OR (REFX(T=6 AND NOT(A2),3)) OR (REFX(T=7 AND NOT(A2),4)) OR (REFX(T=8 AND NOT(A2),5)){XG51};
M4:=T=4 AND REFX(T=5 AND NOT(A2),1) OR (REFX(T=6 AND NOT(A2),2)) OR (REFX(T=7 AND NOT(A2),3)) OR (REFX(T=8 AND NOT(A2),4)){XG51};
M5:=T=5 AND REFX(T=6 AND NOT(A2),1) OR (REFX(T=7 AND NOT(A2),2)) OR (REFX(T=8 AND NOT(A2),3)){XG51};
M6:=T=6 AND REFX(T=7 AND NOT(A2),1) OR (REFX(T=8 AND NOT(A2),2)){XG51};
M7:=T=7 AND REFX(T=8 AND NOT(A2),1){XG51};
N0:=T=1 AND REF(T=0 AND A3,1) AND A2{XG51};
N1:=T=2 AND REF(N0,1) AND A2{XG51};
N2:=T=3 AND REF(N1,1) AND A2{XG51};
N3:=T=4 AND REF(N2,1) AND A2{XG51};
N4:=T=5 AND REF(N3,1) AND A2{XG51};
N5:=T=6 AND REF(N4,1) AND A2{XG51};
N6:=T=7 AND REF(N5,1) AND A2{XG51};
N7:=T=8 AND REF(N6,1) AND A2{XG51};
WZD:=DEA{XG51};
WZG:=DEA{XG51};
DRAWTEXT(N6 AND NOT(M7),WZD,'8'),COLORCYAN{XG51};
DRAWTEXT(N7,WZG,'9'),COLORLIMAGENTA{XG51};
B1:=C<=REF(C,4){XG51};
B2:=C>REF(C,4){XG51};
B3:=C>REF(C,4) AND REF(B1,1){XG51};
T1:=BARSLAST(B3),NODRAW{XG51};
M8:=(T1=0 AND REFX(T1=1 AND NOT(B2),1)) OR (REFX(T1=2 AND NOT(B2),2)) OR (REFX(T1=3 AND NOT(B2),3)) OR (REFX(T1=4 AND NOT(B2),4)) OR (REFX(T1=5 AND NOT(B2),5)) OR (REFX(T1=6 AND NOT(B2),6)) OR (REFX(T1=7 AND NOT(B2),7)) OR (REFX(T1=8 AND NOT(B2),8)){XG51};
M9:=T1=1 AND REFX(T1=2 AND NOT(B2),1) OR (REFX(T1=3 AND NOT(B2),2)) OR (REFX(T1=4 AND NOT(B2),3)) OR (REFX(T1=5 AND NOT(B2),4)) OR (REFX(T1=6 AND NOT(B2),5)) OR (REFX(T1=7 AND NOT(B2),6)) OR (REFX(T1=8 AND NOT(B2),7)){XG51};
M10:=T1=2 AND REFX(T1=3 AND NOT(B2),1) OR (REFX(T1=4 AND NOT(B2),2)) OR (REFX(T1=5 AND NOT(B2),3)) OR (REFX(T1=6 AND NOT(B2),4)) OR (REFX(T1=7 AND NOT(B2),5)) OR (REFX(T1=8 AND NOT(B2),6)){XG51};
M11:=T1=3 AND REFX(T1=4 AND NOT(B2),1)OR (REFX(T1=5 AND NOT(B2),2)) OR (REFX(T1=6 AND NOT(B2),3)) OR (REFX(T1=7 AND NOT(B2),4)) OR (REFX(T1=8 AND NOT(B2),5)){XG51};
M12:=T1=4 AND REFX(T1=5 AND NOT(B2),1) OR (REFX(T1=6 AND NOT(B2),2)) OR (REFX(T1=7 AND NOT(B2),3)) OR (REFX(T1=8 AND NOT(B2),4)){XG51};
M13:=T1=5 AND REFX(T1=6 AND NOT(B2),1) OR (REFX(T1=7 AND NOT(B2),2)) OR (REFX(T1=8 AND NOT(B2),3)){XG51};
M14:=T1=6 AND REFX(T1=7 AND NOT(B2),1) OR (REFX(T1=8 AND NOT(B2),2)){XG51};
M15:=T1=7 AND REFX(T1=8 AND NOT(B2),1){XG51};
N8:=T1=1 AND REF(T1=0 AND B3,1) AND B2{XG51};
N9:=T1=2 AND REF(N8,1) AND B2{XG51};
N10:=T1=3 AND REF(N9,1) AND B2{XG51};
N11:=T1=4 AND REF(N10,1) AND B2{XG51};
N12:=T1=5 AND REF(N11,1) AND B2{XG51};
N13:=T1=6 AND REF(N12,1) AND B2{XG51};
N14:=T1=7 AND REF(N13,1) AND B2{XG51};
N15:=T1=8 AND REF(N14,1) AND B2{XG51};
DRAWTEXT(N14 AND NOT(M15),WZG,'8'),COLOR9900CC{XG51};
DRAWTEXT(N15 ,WZD,'9'),COLORCYAN{X.G-5~1.C.N.{};

通达信超强变色MA主图未加密选股指标公式源码

源码正文：

ma5:ema(C,5),COLORRED{XG51};
工作线:EMA(C,14),COLORF00FF0,LINETHICK1{XG51};
二号线:EMA(C,25),COLOR00FF00,LINETHICK1{XG51};
九号线:EMA(CLOSE,99),LINETHICK1{XG51};
MA120:EMA(CLOSE,120),LINETHICK1{XG51};
生命线:EMA(CLOSE,453),LINETHICK1,COLORWHITE{XG51};
difF:=( EMA(CLOSE,7) - EMA(CLOSE,19)){XG51};
DEA:=EMA(DIFF,9){XG51};
macd:=0.90*(DIFF-DEA){XG51};
TJ:=(DIFF>=DEA){XG51};
TJ1:=(DIFF>=0){XG51};
stICKLINE(TJ,H,L,0.5,0),COLORBLUE{XG51};
STICKLINE(TJ,O,C,4,0),COLORBLUE{XG51};
STICKLINE(TJ1 AND TJ,H,L,0.5,0),COLORF00FF0{XG51};
STICKLINE(TJ1 AND TJ,O,C,4,1),COLORF00FF0{XG51};
STICKLINE(DIFF<DEA,H,L,0.5,0),COLORF0F000{XG51};
STICKLINE(DIFF<DEA,O,C,4,0),COLORF0F000{XG51};
VAR1:=(CLOSE*2+HIGH+LOW)/4{XG51};
SK:= EMA(VAR1,13)-EMA(VAR1,73){XG51};
SD:= EMA(SK,2){XG51};
DRAWTEXT((crOSS(SK,SD) AND SK<-0.04 AND (C-REF(C,1))/REF(C,1)>=0.03) OR (CROSS(SK,SD) AND SK<=-0.14 )
OR (CROSS(SK,SD) AND SK<=0.05 AND (V/MA(V,5)>2 OR C/REF(C,1)>0.035)) ,L*0.99,'短线'),COLORCYAN{XG51};
STICKLINE((CROSS(SK,SD) AND SK<-0.04 AND (C-REF(C,1))/REF(C,1)>=0.03) OR (CROSS(SK,SD) AND SK<=-0.14 )
OR (CROSS(SK,SD) AND SK<=0.05 AND (V/MA(V,5)>2 OR C/REF(C,1)>0.035)),H,L,0.5,0),COLORWHITE{XG51};
STICKLINE((CROSS(SK,SD) AND SK<-0.04 AND (C-REF(C,1))/REF(C,1)>=0.03) OR (CROSS(SK,SD) AND SK<=-0.14 )
OR (CROSS(SK,SD) AND SK<=0.05 AND (V/MA(V,5)>2 OR C/REF(C,1)>0.035)),O,C,10,1),LINETHICK3,COLORWHITE{X_G+5_1_C_N_{};