runmode:0;
input:p(26,20,100,8);
input:s(12,5,40,4);
input:m(9,2,60,6);
variable:myasset=300000;
diff:=ema(close,s)-ema(close,p);
dea:=ema(diff,m);
macd:=2*(diff-dea);
entertime:=time>=091000 and time<=145500;
exittime:=time>=150000;
buycond:=ref(cross(macd,0),1);
sellcond:=ref(cross(0,macd),1);
if holding=0 then begin
if buycond then
buy(1,1,limitr,open);
end
if holding=0 then begin
if sellcond then
buyshort(1,1,limitr,open);
end
if holding>0 then begin
if exittime then
sell(1,holding,limitr,close);
if sellcond then begin
sell(1,holding,limitr,open),orderqueue;
buyshort(1,1,limitr,open),orderqueue;
end
end
if holding<0 then begin
if exittime then
sellshort(1,holding,limitr,close);
if buycond then begin
sellshort(1,holding,limitr,open),orderqueue;
buy(1,1,limitr,open),orderqueue;
end
end
if exittime then
myasset:=asset;
金字塔MACD动量突破主图源码
很多都是以前写的指标 现在没事拿来分享的,就没精力去做太多说明啦!我大概就在软件上运行下截图给大家吧!
有兴趣的自己拿去优化
runmode:0;
input:p(26,20,100,8);
input:s(12,5,40,4);
input:m(9,2,60,6);
variable:myasset=300000;
diff:=ema(close,s)-ema(close,p);
dea:=ema(diff,m);
macd:=2*(diff-dea);
entertime:=time>=091000 and time<=145500;
exittime:=time>=150000;
buycond:=ref(cross(macd,0),1);
sellcond:=ref(cross(0,macd),1);
if holding=0 then begin
if buycond then
buy(1,1,limitr,open);
end
if holding=0 then begin
if sellcond then
buyshort(1,1,limitr,open);
end
if holding>0 then begin
if exittime then
sell(1,holding,limitr,close);
if sellcond then begin
sell(1,holding,limitr,open),orderqueue;
buyshort(1,1,limitr,open),orderqueue;
end
end
if holding<0 then begin
if exittime then
sellshort(1,holding,limitr,close);
if buycond then begin
sellshort(1,holding,limitr,open),orderqueue;
buy(1,1,limitr,open),orderqueue;
end
end
if exittime then
myasset:=asset;
收益:myasset,noaxis,colormagenta;
次数:totaltrade,linethick0;
胜率:percentwin,linethick0;
连亏:maxseqloss,linethick0;
连赢:maxseqwin,linethick0;