MACD背离飘带,和谐源码解除时限(通达信公式 副图 源码 测试图)

[复制链接]
查看37 | 回复0 | 2022-6-27 16:22:47 | 显示全部楼层 |阅读模式

 和谐源码,并且解除了时间限制了。

SJ:=1;
两种共振信号:0,NODRAW,COLORFFFFFF;
 
画线加背离多空:0,NODRAW,COLORFFFFFF;
画线加多空:0,NODRAW,COLORFFFFFF;
 
 
DIFF8:=(EMA(CLOSE,12)*SJ - EMA(CLOSE,26)*SJ);
DEA8:=EMA(DIFF8,9)*SJ;
MACD28:=(2 * (DIFF8 - DEA8))*SJ,COLORSTICK;
 
DRAWBAND(DIFF8,RGB(200,50,55),DEA8,RGB(50,100,10));
NOTEXTSDIFF:DIFF8,COLORWHITE;
NOTEXTSDEA:DEA8,COLORYELLOW;
 
 
DIFF:(EMA(CLOSE,12)*SJ-EMA(CLOSE,26)*SJ),COLORFFFFFF;
DEA:EMA(DIFF,9)*SJ,COLOR00FFFF;
MACD2:(2 * (DIFF - DEA))*SJ,COLORSTICK;
J:=CROSS(DIFF,DEA);
S:=CROSS(DEA,DIFF);
JC:=COUNT(J,BARSLAST(CROSS(DIFF>0&&DEA>0,0.5)))=1&&J;
SC:=COUNT(S,BARSLAST(CROSS(0.5,DIFF>0&&DEA>0)))=1&&S;
JC2:=COUNT(S,BARSLAST(CROSS(0.5,DIFF>0&&DEA>0)))=2&&S;
SC2:=COUNT(J,BARSLAST(CROSS(DIFF>0&&DEA>0,0.5)))=2&&J;
N1:=SUMBARS(CROSS(DEA,DIFF),1);
N2:=SUMBARS(CROSS(DIFF,DEA),1);
DRAWTEXT(N2=1&&N1>5&&N1<=13*SJ&&EVERY(DIFF>0&&DEA*SJ>0 ,N1)&&JC,DIFF,'多'),COLORRED;
M:=SUMBARS((DIFF<0&&CROSS(0,DEA))||(CROSS(0,DIFF)&&DEA<0),1);
M1:=SUMBARS(CROSS(DIFF,DEA),1);
M2:=SUMBARS(CROSS(DEA,DIFF),1);
DRAWTEXT(M2=1&&M1*SJ>5&&M1<=13*SJ&&EVERY(DIFF<0&&DEA<0,N2) &&SC,DIFF,'空'),COLORGREEN;
NDTJ:=SUMBARS(N2=1&&N1>5&&N1<=13&&EVERY(DIFF>0&&DEA>0,N1),1);
NKTJ:=SUMBARS(M2=1&&M1>5&&M1<=13&&EVERY(DIFF<0&&DEA<0,N2),1);
{DRAWTEXT(NDTJ<=4*SJ&&CROSS(DEA,DIFF) AND JC2,DIFF,'风险'),COLORRED;
DRAWTEXT(NKTJ<=4*SJ&&CROSS(DIFF,DEA) AND SC2,DIFF,'风险'),COLORGREEN;}
 
JC222:=CROSS(DIFF,DEA);
SC222:=CROSS(DEA,DIFF);
N133:=BARSLAST(JC222)+1;
N233:=BARSLAST(SC222)+1;
HH:=REF(HHV(H,N133),N233);
 
HH2:=REF(REF(HH,1),N233);
MHD:=VALUEWHEN(SC222,HHV(DIFF,N133));
MHD2:=VALUEWHEN(SC222,REF(MHD,1));
 
LL:=REF(LLV(L,N233),N133);
LL2:=REF(REF(LL,1),N133);
MLD:=VALUEWHEN(JC222,LLV(DIFF,N233));
MLD2:=VALUEWHEN(JC222,REF(MLD,1));
 
A:=MACD<0&&HH>HH2&&MHD<MHD2;
B:=MACD>0&&LL<LL2&&MLD>MLD2;
 
A1:=BACKSET(CROSS(A,0.5),REF(HHVBARS(DIFF,N133),1)+1+1);
A2:=BACKSET(CROSS(A,0.5),REF(HHVBARS(DIFF,N133),SUMBARS(SC222,2))+SUMBARS(SC222,2)+1);
B1:=BACKSET(CROSS(B,0.5),REF(LLVBARS(DIFF,N233),1)+1+1);
B2:=BACKSET(CROSS(B,0.5),REF(LLVBARS(DIFF,N233),SUMBARS(JC222,2))+SUMBARS(JC222,2)+1);
DRAWLINE(CROSS(A2,0.5),DIFF,CROSS(A1,0.5),DIFF,0),COLORRED,LINETHICK2;
DRAWLINE(CROSS(B2,0.5),DIFF,CROSS(B1,0.5),DIFF,0),COLORGREEN,LINETHICK2;
VAR6:=(2*CLOSE+HIGH+LOW)/4;
VAR8:=LLV(LOW,20);
VARAA:=HHV(HIGH,26);
B8:=EMA((VAR6-VAR8)/(VARAA-VAR8)*100,8);
B18:=EMA(B8,5);
K22:=B8>80 AND CROSS(B18,B8);
K1:=BARSLAST(K22);
K2:=REF(K1,1);
K底:=B8<20 AND CROSS(B8,B18);
K底1:=BARSLAST(K底);
K底2:=REF(K底1,1);
DRAWTEXT(REF(B8,1)*SJ>80 AND CROSS(B18,B8) AND REF(B8,1)<REF(B8,K2+2) AND REF(C,1)>REF(C,K2+2),DEA,'顶背离'),COLORCYAN;
DRAWTEXT(B8<25*SJ AND CROSS(B8,B18) AND B8>REF(B8,K底2) AND C<REF(C,K底2),DEA,'底背离'),COLORFF00FF;
 

202111210471364023.png

202111210471364023.png
 

202111210471910602.png

202111210471910602.png
 

202111210472586345.png

202111210472586345.png
 

202111210473223321.png

202111210473223321.png

20211121047346776.rar

3.79 KB, 下载次数: 0

售价: 4 金钱  [记录]  [购买]

20211121047346776.rar

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则