通达信日趋完善的MACD未加密选股指标公式源码

通达信日趋完善的MACD未加密选股指标公式源码

源码正文：

M:=7;N:=11{XG51};
VAR1:=ema(SLOPE(C,21)+C,34){XG51};
VAR5:=Ema(C,2){XG51};
VAR9:=VAR5-VAR1{XG51};
ZJC:=VAR9{XG51};
ZJH:=IF(C>O,(H-C)/(C-L)*(C-L)+ZJC,(H-C)/(O-L)*(O-L)+ZJC){XG51};
ZJO:=IF(C>O,ZJH-(H-O)/(C-L)*(C-L),ZJH-(H-O)/(O-L)*(O-L)){XG51};
ZJL:=IF(C>O,ZJH-(H-L)/(H-O)*(H-O),ZJH-(H-L)/(H-C)*(H-C)){XG51};
WDdif:EMA(ZJC*5,10)-EMA(ZJC*5,20){XG51};
WddeA:EMA(WddiF,8){XG51};
WDmacd:(WDDIF-WDDEA)*2,COLORstICK{XG51};
收盘值:ZJC,COLORLIGREEN,NODRAW{XG51};
AA:=REF(ZJC,M)=HHV(ZJC,2*M+1){XG51};
BB:=BacKSET(AA,M+1){XG51};
CC:=FILTER(BB,M) AND ZJC=HHV(ZJC,M+1){XG51};
A:=BArslAST(REF(CC,1)){XG51};
AA1:=REF(ZJC,2)=HHV(ZJC,2*2+1){XG51};
BB1:=BACKSET(AA1,2+1){XG51};
CC1:=FILTER(BB1,2) AND ZJC=HHV(ZJC,2+1){XG51};
A1:=BARSLAST(REF(CC1,1)){XG51};
TJ:=REF(C,A1+1)<C AND REF(ZJC,A1+1)>ZJC AND CC1{XG51};
DBL:=IF((REF(C,A+1)<C AND REF(ZJC,A+1)>ZJC AND CC) OR TJ,8,DRAWNULL)COLORCYAN,NODRAW{XG51};
顶背离:DRAWLINE(CC,ZJC,FILTER(DBL>0,5),ZJC,0)LINETHICK2,COLORCYAN{XG51};
DRAWTEXT(DBL=8,ZJH*1.1,'顶背离')COLORCYAN{XG51};
AA2:=REF(ZJC,N)=LLV(ZJC,2*N+1){XG51};
BB2:=BACKSET(AA2,N+1){XG51};
CC2:=FILTER(BB2,N) AND ZJC=LLV(ZJC,N+1){XG51};
A2:=BARSLAST(REF(CC2,1)){XG51};
AA3:=REF(ZJC,2)=LLV(ZJC,2*2+1){XG51};
BB3:=BACKSET(AA3,2+1){XG51};
CC3:=FILTER(BB3,2) AND ZJC=LLV(ZJC,2+1){XG51};
A3:=BARSLAST(REF(CC3,1)){XG51};
TJ1:=REF(C,A3+1)>C AND REF(ZJC,A3+1)<ZJC AND CC3{XG51};
XG:=IF((REF(C,A2+1)>C AND REF(ZJC,A2+1)<ZJC AND CC2) OR TJ1,8,DRAWNULL)COLORWHITE,NODRAW{XG51};
选股:DRAWLINE(CC2,ZJC,FILTER(XG>0,5),ZJC,0)LINETHICK2,COLORWHITE{XG51};
DRAWTEXT(XG=8,ZJL*1.1,'底背离')COLORWHITE{XG51};
STICKLINE(WdmaCD>REF(WDMACD,1) AND WDMACD>0,0,WDMACD,0,0),COLORWHITE{XG51};
STICKLINE(WDMACD<REF(WDMACD,1) AND WDMACD>0,0,WDMACD,0,0),COLORLICYAN{XG51};
STICKLINE(WDMACD>REF(WDMACD,1) AND WDMACD<0,0,WDMACD,0,0),COLORBLUE{XG51};
STICKLINE(WDMACD<REF(WDMACD,1) AND WDMACD<0,0,WDMACD,0,0),COLORLIGREEN{XG51};
STICKLINE(C> O,ZJH,ZJL,0.01,0),COLORFF66FF;
STICKLINE(C> O,ZJC,ZJO,2.1,0),COLORAA00AA;
STICKLINE(C> O,ZJC,ZJO,1.9,0),COLORCC11CC{XG51};
STICKLINE(C> O,ZJC,ZJO,1.6,0),COLORFF22FF{XG51};
STICKLINE(C> O,ZJC,ZJO,1.2,0),COLORFF44FF{XG51};
STICKLINE(C> O,ZJC,ZJO,0.7,0),COLORFF66FF{XG51};
STICKLINE(C> O,ZJC,ZJO,0.2,0),COLORFF99FF{XG51};
STICKLINE(C<=O OR C<REF(C,1),ZJH,ZJL,0.01,0),COLORCYAN{XG51};
STICKLINE(C<=O OR C<REF(C,1),ZJO,ZJC,2.1,0),COLOR005500{XG51};
STICKLINE(C<=O OR C<REF(C,1),ZJO,ZJC,1.9,0),COLOR007700{XG51};
STICKLINE(C<=O OR C<REF(C,1),ZJO,ZJC,1.6,0),COLOR009900{XG51};
STICKLINE(C<=O OR C<REF(C,1),ZJO,ZJC,1.2,0),COLOR00BB00{XG51};
STICKLINE(C<=O OR C<REF(C,1),ZJO,ZJC,0.7,0),COLOR00DD00{XG51};
STICKLINE(C<=O OR C<REF(C,1),ZJO,ZJC,0.2,0),COLOR44FF00{XG51};
ZTB:=(C-REF(C,1))/REF(C,1)*100>9.91&&(C-REF(C,1))/REF(C,1)*100<10.6{XG51};
DRAWTEXT(ZTB,IF(ZJC<0,ZJC*0.9,ZJC*1.1),'涨停板')COLORBLUE{XG51};
STICKLINE(C=H,ZJH,ZJL,0.0,0),COLORBLUE{XG51};
STICKLINE(ZTB,ZJC,ZJO,2.1,0),COLOR006666{XG51};
STICKLINE(ZTB,ZJC,ZJO,1.9,0),COLOR008888{XG51};
STICKLINE(ZTB,ZJC,ZJO,1.6,0),COLOR00AAAA{XG51};
STICKLINE(ZTB,ZJC,ZJO,1.2,0),COLOR00CCCC{XG51};
STICKLINE(ZTB,ZJC,ZJO,0.7,0),COLOR00EEEE{XG51};
STICKLINE(ZTB,ZJC,ZJO,0.2,0),COLOR33FFFF{XG51};
DTB:=(C-REF(C,1))/REF(C,1)*100<-9.9&&(C-REF(C,1))/REF(C,1)*100>-10.6{XG51};
DRAWTEXT(DTB,IF(ZJC>0,ZJC*0.9,ZJC*1.1),'跌停板')COLORFF8800{XG51};
STICKLINE(DTB,ZJO,ZJC,2.1,0),COLORFF0000{XG51};
STICKLINE(DTB,ZJO,ZJC,1.9,0),COLORFF2200{XG51};
STICKLINE(DTB,ZJO,ZJC,1.6,0),COLORFF4400{XG51};
STICKLINE(DTB,ZJO,ZJC,1.2,0),COLORFF6600{XG51};
STICKLINE(DTB,ZJO,ZJC,0.7,0),COLORFF8800{XG51};
STICKLINE(DTB,ZJO,ZJC,0.2,0),COLORFFAA00{XG51};
WZ:=HHV(WDDIF*2,200){XG51};
DRAWTEXT(CURRBARSCOUNT=40+1,WZ*1.25,'-'),COLORBLUE{XG51};
DRAWTEXT(CURRBARSCOUNT=40+1,WZ*1.20,'【操作要领】'),COLORBLUE{XG51};
DRAWTEXT(CURRBARSCOUNT=40,WZ*1.10,'0轴以上，与主图相比，阴k线若高收，后市下跌。')COLOR44FF00{XG51};
DRAWTEXT(CURRBARSCOUNT=40,WZ*1.00,'0轴以上，与主图相比，阳K线若下挫，后市下跌。')COLOR44FF00{XG51};
DRAWTEXT(CURRBARSCOUNT=40,WZ*0.90,'0轴以上，股价创新高但MACD柱状线缩短，后市下调或下跌。')COLOR44FF00{XG51};
DRAWTEXT(CURRBARSCOUNT=40,WZ*0.80,'0轴以下，与主图相比，阴K线若上移，后市上涨。'),COLORFF66FF{XG51};
DRAWTEXT(CURRBARSCOUNT=40,WZ*0.70,'0轴以下，与主图相比，阳K线若下挫，后市上涨。'),COLORFF66FF{XG51};
DRAWTEXT(CURRBARSCOUNT=40,WZ*0.60,'0轴以下，股价创新低但MACD柱状线缩短或翻红，后市上涨。'),COLORFF66FF{X=G^5_1=C=N={};

通达信牛叉主图未加密选股指标公式源码

源码正文：

N:=3{XG51};
DRAWBAND(ma(C,2),RGB(150,10,10),MA(C,5),RGB(0,100,100)){XG51};
DRAWKLINE(H,O,L,C){XG51};
Q5:MA(C,5),COLORBLUE{XG51};
X:=C=HHV(C,20){XG51};
D:=BArslAst(X){XG51};
XD:=IF(D>0,REF(C,D),REF(C,D)){XG51};
JC:=crOSS(C,REF(XD,1)){XG51};
突破1:=JC AND COUNT(JC,5)=1,COLORBLUE{XG51};
强势股:=H/REF(L,1)>1.15 OR H/REF(L,2)>1.18{XG51};
回调:=L/REF(H,1)<0.96 AND C<REF(C,1){XG51};
买入:=REF(强势股,1) AND 回调{XG51};
TY:=H{XG51};
AA1:=REF(TY,N)=HHV(TY,2*N+1); BA1:=FILTER(AA1,N); CA1:=BacKSET(BA1,N+1); HD1:=FILTER(CA1,N){XG51};
AA2:=REF(TY,N)=LLV(TY,2*N+1); BA2:=FILTER(AA2,N); CA2:=BACKSET(BA2,N+1); LD1:=FILTER(CA2,N){XG51};
前高1:=REF(H,BARSLAST(HD1)),COLORWHITE,NODRAW{XG51};
突破:突破1 AND C>前高1,COLORWHITE,NODRAW{XG51};
突破回调买:IF(COUNT(突破,5)=1 AND 突破=0
AND 买入 AND C>前高1,-2,0),NODRAW{XG51};
DRAWICON(突破,REF(H,1)*1.02,24){XG51};
DRAWICON(突破回调买=-2,REF(H,1)*1.02,12){XG51};
高:=REF(HHV(H,80),3){XG51};
低:=REF(LLV(L,80),3){XG51};
H18:=高-(高-低)*0.181{XG51};
L19:=低+(高-低)*0.181{XG51};
H中:=高-(高-低)*0.5{XG51};
顶点:REFDATE(高,DATE),COLORRED{XG51};
%18:REFDATE(H18,DATE),COLORBLUE{XG51};
%50:REFDATE(H中,DATE),COLORWHITE{XG51};
%19:REFDATE(L19,DATE),COLORBLUE{XG51};
低点:REFDATE(低,DATE),COLORRED{XG51};
DRAWTEXT(ISLASTBAR,顶点,' ％顶点'),COLORRED{XG51};
DRAWTEXT(ISLASTBAR,%18,'％18'),COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,%50,'％50'),COLORWHITE{XG51};
DRAWTEXT(ISLASTBAR,%19,'％19'),COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,低点,' ％低点'),COLORRED{XG51};
Z1:=STRCAT(HYBLOCK,' '){XG51};
Z2:=STRCAT(Z1,DYBLOCK){XG51};
Z3:=STRCAT(Z2,' '){XG51};
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLOR00C0C0{XG51};
A1:=REF(H,N)=HHV(H,2*N+1){XG51};
B1:=FILTER(A1,N){XG51};
C1:=BACKSET(B1,N+1){XG51};
D1:=FILTER(C1,N){XG51};
A2:=REF(L,N)=LLV(L,2*N+1){XG51};
B2:=FILTER(A2,N){XG51};
C2:=BACKSET(B2,N+1){XG51};
D2:=FILTER(C2,N){XG51};
E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2{XG51};
E2:=(H+L)/2{XG51};
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(C)=1{XG51};
L1:=(D2 AND NOT(D1 AND E1<E2)){XG51};
H2:=D1 AND NOT(D2 AND E1>=E2){XG51};
X1:=REF(BARSLAST(H1),1)+1{XG51};
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1)){XG51};
G1:=F1>REF(F1,1){XG51};
I1:=BACKSET(G1,2){XG51};
LD:=I1>REF(I1,1){XG51};
L2:=LD OR ISLASTBAR OR BARSCOUNT(C)=1{XG51};
X2:=REF(BARSLAST(L2),1)+1{XG51};
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2)){XG51};
G2:=F2>REF(F2,1){XG51};
I2:=BACKSET(G2,2){XG51};
HD:=I2>REF(I2,1){XG51};
R1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1){XG51};
S1:=R1>REF(R1,1),COLORWHITE,NODRAW;
T1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1){XG51};
U1:=T1>REF(T1,1),COLORWHITE,NODRAW;
R2:=BACKSET(S1,REF(BARSLAST(HD),1)+2){XG51};
S2:=R2>REF(R2,1),COLORWHITE,NODRAW;
T2:=BACKSET(U1,REF(BARSLAST(LD),1)+2){XG51};
U2:=T2>REF(T2,1),COLORWHITE,NODRAW;
DRAWICON(U1,L*0.98,11){XG51};
DRAWICON(S1,H*1.01,25){XG51};
DRAWICON(U2,L*0.98,13){XG51};
DRAWICON(S2,H*1.01,25){XG51};
NOTEXT1:=DRAWLINE(S2,H,S1,H,1),LINETHICK2,COLORWHITE{XG51};
NOTEXT2:=DRAWLINE(U2,L,U1,L,1),LINETHICK2,COLORCYAN{XG51};
前二高:=REF(H,BARSLAST(S2)),COLOR99FF66,LINETHICK1,DOTLINE{XG51};
前高:=REF(H,BARSLAST(S1)),COLOR99FF66,LINETHICK2,DOTLINE{XG51};
前二低:=REF(L,BARSLAST(U2)),COLORBLUE,LINETHICK1,DOTLINE{XG51};
下降压力:=DRAWLINE(HIGH>=HHV(HIGH,10),HIGH,LOW<=LLV(LOW,3)
,HHV(HIGH,3),1),COLORBLUE,LINETHICK2{X!G.5_1!C!N!{};