主题：[原创]公布一个可以实用的自动交易程序

 

 

//程序名称

//版本v1.0

//编制：

//修改日期：

//上一版本已存入目录------文件名----------

input:n(6,5,30,1);

{

1、进场条件：

A、MACD 穿越 0 轴时，且在 5 根柱线之内，MACD 参数（12，26，9）；

B、EMA 20 天指数均线与 K 线交叉后，价格超过 4 个点后，开仓，

}

{???你是使用日k线吗？看你的出场条件好像不是，算了搞一个通用的吧。先写一个技术指标mnw

   r1:=ema(o,20);}

r1:stkindi('','mnw.r1',0,6);//注意在技术指标中使用的是开盘价o，如果使用收盘价c,这里就要调用前一周期的ema（c,20)的值,否则就使用了未来数据。

//macd的计算

DIFF :=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA), COLORSTICK;//你也可以用stkindi来调用macd的值，怎么用效率更好这只有金字塔的系统设计工程师可以告诉你。

r2:=barslast(cross(macd,0));

//开仓

if r2<=5 and h>=r1+4 then

begin

buy(1,1,limitr,r1+4+0.6);//0.6是作为你测试考虑滑点用的，实际使用时要去了。

end

//你的出场条件，其实就是一个移动止损，使用金字塔系统自带的移动止损可能效率更好。

//不过为了测试我还是帮你写一下。为了简便把5和6都改为一个值n

r3:=enterbars;

r4:=enterprice;

r5:=hhv(h,r3+1);

if r3>0 and r4-l>n then

begin

sell(1,0,limitr,r4-n-0.6);

end

if r3>0 and r5-c>n then

begin

sell(1,0,limitr,c-0.6);

end

 

持仓:holding,colorwhite,linethick0;
交易总数:totaltrade,colorwhite,linethick0;
盈亏:asset-1000000,noaxis,colorred,linethick1；

 

//这里应该使用l而不是c,那样的话就要加几个判断，你使用小一点的周期比如1分钟，测试结果是可信的,并且不会出现一个周期之内来回震荡的问题。

 

 

我没有测试，你测试一下，看看有没有错误，我的直觉是你的止损点有点小，使用N后你可以调整看看。还有你怎么不开空仓？