请老师帮写成策略

销售666

双均线，金叉平空开多，死叉平多开空，如果上一次平仓亏损，那么下一次双倍单量开仓，默认开仓手数为1，如果平仓盈利，则返回到默认开仓手数1，以此类推。平仓亏损后就双倍开仓

技术008

//@Version=5
// 双均线动态仓位策略
// 参数设置

    FastLength:=5;
    SlowLength:=20;
    DefaultLots:=1;


    variable:CurrentLots:=DefaultLots;

// 计算双均线
MA_Fast := MA(CLOSE, FastLength);
MA_Slow := MA(CLOSE, SlowLength);

// 生成交易信号
CrossOver := CROSS(MA_Fast, MA_Slow); // 金叉
CrossUnder := CROSS(MA_Slow,MA_Fast ); // 死叉


    IF CrossOver THEN BEGIN
        SELLSHORT(HOLDING < 0, holding, MARKETr); // 平空
        if numprofit(1)>0 then CurrentLots:=1;
        if numprofit(1)<0 then CurrentLots:=CurrentLots*2;
        BUY(HOLDING = 0, CurrentLots, MARKETr); // 开多
    END
   
    IF CrossUnder THEN BEGIN
        SELL(HOLDING > 0, 0, MARKETr); // 平多
        if numprofit(1)>0 then CurrentLots:=1;
        if numprofit(1)<0 then CurrentLots:=CurrentLots*2;
        BUYSHORT(HOLDING = 0, CurrentLots, MARKETr); // 开空
    END
   

技术008

//@Version=5
// 双均线动态仓位策略
// 参数设置

    FastLength:=5;
    SlowLength:=20;
    DefaultLots:=1;


    variable:CurrentLots:=DefaultLots;

// 计算双均线
MA_Fast := MA(CLOSE, FastLength);
MA_Slow := MA(CLOSE, SlowLength);

// 生成交易信号
CrossOver := CROSS(MA_Fast, MA_Slow); // 金叉
CrossUnder := CROSS(MA_Slow,MA_Fast ); // 死叉


    IF CrossOver THEN BEGIN
        SELLSHORT(HOLDING < 0, holding, MARKETr); // 平空
        if numprofit(1)>0 then CurrentLots:=1;
        if numprofit(1)<0 then CurrentLots:=CurrentLots*2;
        BUY(HOLDING = 0, CurrentLots, MARKETr); // 开多
    END
   
    IF CrossUnder THEN BEGIN
        SELL(HOLDING > 0, 0, MARKETr); // 平多
        if numprofit(1)>0 then CurrentLots:=1;
        if numprofit(1)<0 then CurrentLots:=CurrentLots*2;
        BUYSHORT(HOLDING = 0, CurrentLots, MARKETr); // 开空
    END
   

中炽供应链

老师您好，编译不通过，

技术008

检查自己是否复制出错，本地正常

中炽供应链

从新复制后，还是不行，编译不通过，是不是软件要升级的问题？


补充内容 (2025-5-23 12:24):
MARKETR  是个单词   应该不是复制的问题，请问老师是不是亚从新下载最新版本的软件才行，我电脑上的软件是几年前安装的。

技术008

官网安装最新的试试吧，
这个代码我从论坛复制过去都是编译没错的

中炽供应链

技术008 发表于 2025-5-23 12:59
官网安装最新的试试吧，
这个代码我从论坛复制过去都是编译没错的

好的，谢谢！

中炽供应链

中炽供应链 发表于 2025-5-23 14:15
好的，谢谢！

老师您好！还是麻烦老师帮我改一下前面的代码：就是把双均线改成MACD金叉和死叉交易，后面的不动，谢谢啦！

技术008

前面macd的公式自己重新定义下就好
这个建议用户自己尝试编写，基本的指标编写如果都不能胜任那么后期量化是很难走下去的

// 生成交易信号
CrossOver := CROSS(macd, 0); // 金叉
CrossUnder := CROSS(0,macd); // 死叉