
等级: 新手上路
- 注册:
- 2023-10-25
- 曾用名:
|

楼主 |
发表于 2023-10-26 12:06
|
显示全部楼层
请老师,指正和修改, 谢谢!
ma1:ma(c,n1);
ma2:ma(c,n2);
ma3:ma(c,n3);
ma4:ma(c,n4);
DIFF : EMA(CLOSE,S) - EMA(CLOSE,P);
DEA : EMA(DIFF,M);
MACD1 : 2*(DIFF-DEA), COLORSTICK;
c_60min:callstock('',vtclose,4,0);
c_15min:callstock('',vtclose,2,0);
A:=CROSS(DEA,DIFF);
B:=CROSS(DIFF,DEA);
macd15:"A.macd15#MIN15";//15分钟
macd60:"B.macd60#MIN60";//60分钟
macdDAY:"B.macdDAY#DAY";//60分钟
k:=macd15>0 AND macd60>0 AND CROSS(DIFF,DEA)AND macdDAY>0 AND c_60min>ma4 AND CROSS(c_15min,ma4);
u:=macd15<0 AND macd60<0 AND CROSS(DEA,DIFF)AND macdDAY<0 AND c_60min<ma4 AND CROSS(ma4,c_15min);
if k then BEGIN
DRAWICON(k,h,1);//满足条件位置笑脸;
END
if u then
begin
DRAWICON(u,h,1);//满足条件位置笑脸;
end
补充内容 (2023-10-26 12:37):
ma1:ma(c,n1);
ma2:ma(c,n2);
ma3:ma(c,n3);
ma4:ma(c,n4);
DIFF : EMA(CLOSE,S) - EMA(CLOSE,P);
DEA : EMA(DIFF,M);
MACD1 : 2*(DIFF-DEA), COLORSTICK;
c_60min:callstock('',vtclose,4,0);//60分钟K线
c_15min:callstock('',vtclose,2,0);//15分钟K线
A:=CROSS(DEA,DIFF);// MACD金叉
B:=CROSS(DIFF,DEA);// MACD死叉
macd15j:"A.macd15j#MIN15";//15分钟金叉
macd15s:"B.macd15s#MIN15";//15分钟死叉
macd60j:"A.macd60#MIN60";//60分钟金叉
macd60s:"B.macd60#MIN60";//60分钟金叉
macdDAYJ:"A.macdDAY#DAY";//日线金叉
macdDAYS:"B.macdDAY#DAY";//60分钟死叉
k:=macd15j>0 AND macd60j>0 AND CROSS(DIFF,DEA)AND macdDAYj>0 AND c_60min>ma4 AND CROSS(c_15min,ma4);
u:=macd15s>0 AND macd60s>0 AND CROSS(DEA,DIFF)AND macdDAYs<0 AND c_60min<ma4 AND CROSS(ma4,c_15min);
if k then BEGIN
DRAWICON(k,h,1);//满足条件位置笑脸;
END
if u then
begin
DRAWICON(u,h,1);//满足条件位置笑脸;
end |
|