MACD零上首次水上漂“苏北偏北版” 通达信主图/幅图/选股指标 源码 贴图

MACD零上首次水上漂“苏北偏北版” 通达信主图/幅图/选股指标 源码 贴图

收到“苏北偏北”同学的求助：

请哪位老师编写个Macd金叉20日内后回调不死叉的选股指标！思路如下：
1.前期MACD死叉后DIF或DEA小于0；
1.MACD金叉后20日以内，MACD一直大于0；
2.DIE大于0，DEA大于0；
3.回调不死叉的定义我是这么理解的：金叉后MACD红柱不断扩大后，回调时不断的缩小，直到哪一天红柱不再缩小大于前一日的红柱（附图以神州高铁为例），可能理解会有片面，老师如果有好的方法欢迎修改

{主图}
A:=MACD.DIF;
A1:=MACD.DEA;
A2:=MACD.MACD;
T:=BARSLAST(A<0 AND A1<0 AND CROSS(A,A1));
TJ:=EVERY(A2>0,3) AND A2>REF(A2,1) AND REF(A2,1)<REF(A2,2) AND A>0 AND A1>0 and a2>0;
XG:=COUNT(TJ,T)=1 AND TJ;
DRAWICON(XG,L*0.95,1);
STICKLINE(XG,C,O,2,0),COLORYELLOW;
STICKLINE(XG,H,L,0,0),COLORYELLOW;

{幅图}

A:=MACD.DIF;
A1:=MACD.DEA;
A2:=MACD.MACD;
T:=BARSLAST(A<0 AND A1<0 AND CROSS(A,A1));
TJ:=EVERY(A2>0,3) AND A2>REF(A2,1) AND REF(A2,1)<REF(A2,2) AND A>0 AND A1>0 and a2>0;
XG:=COUNT(TJ,T)=1 AND TJ;
DRAWICON(XG,L*0.95,1);
STICKLINE(XG,0,8,2,0),COLORYELLOW;

{选股}

A:=MACD.DIF;
A1:=MACD.DEA;
A2:=MACD.MACD;
T:=BARSLAST(A<0 AND A1<0 AND CROSS(A,A1));
TJ:=EVERY(A2>0,3) AND A2>REF(A2,1) AND REF(A2,1)<REF(A2,2) AND A>0 AND A1>0 and a2>0;
XG:COUNT(TJ,T)=1 AND TJ;