请帮忙写出代码

YQ1314

技术008 发表于 2025-9-29 14:38
你具体是怎么认为错呢，是开仓错还是平仓错

最好自己能输出条件坐下分析把，这个和之前的都是一样的，只 ...

是平仓错的，老师

YQ1314

YQ1314 发表于 2025-9-29 14:10
老师您好，我想把初始止损改成按照开多的逻辑，然后把第一阶段浮盈一倍ATR后去掉

老师麻烦您把做空的代码帮忙写一下，我自己慢慢学习研究，谢谢

技术008

做空不就是24楼这里的，价格小于均线然后-atr，只是这里有一个死叉到金叉过程。开多里平仓这里没有把这个过程放进来
直接就用一个价格比较和diff小于0作为平仓条件

技术008

看下止损价格，看平仓是不是这个止损价格触发的




{ 多头策略：K线收盘价大于均线且MACD快线高于零轴时开多
  止损规则：
  1. 初始止损：1倍ATR
  2. 浮盈1倍ATR后：止损移到保本点
  3. 浮盈3倍ATR后：2倍ATR跟踪止损
  4. 浮盈5倍ATR后：3倍ATR跟踪止损
}
   
// 参数设置
INPUT:MA_PERIOD(20,1,100,1);  // 均线周期
INPUT:ATR_PERIOD(14,1,100,1); // ATR周期
INPUT:LOTS(1,1,10,1);         // 开仓手数
   
// 指标计算
MA_LINE : MA(CLOSE,MA_PERIOD);
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);  // MACD快线
DEA := EMA(DIFF,9);
MACD := (DIFF-DEA)*2;
ATR_VALUE := MA(TR,ATR_PERIOD);  // ATR值
   
  
   
// 全局变量记录止损位
VARIABLE:STOP_LOSS_PRICE := 0;
VARIABLE:MAX_PROFIT := 0;  // 记录最大浮动盈利(ATR倍数)
  
// 全局变量记录DIFF状态
VARIABLE:DIFF_CROSS_FLAG := 0;  // 0:初始状态 1:已小于0
  
// 更新DIFF状态标志
IF DIFF < 0 THEN DIFF_CROSS_FLAG := 1;  // 记录DIFF已小于0
// 开仓条件
// K线脱离均线(收盘价大于均线+1倍ATR)且MACD快线高于零轴
BUY_COND := CLOSE > MA_LINE + ATR_VALUE AND DIFF > 0 AND DIFF_CROSS_FLAG = 1;
  
// 开多仓
IF BUY_COND AND HOLDING = 0 THEN BEGIN
    BUY(1, LOTS, MARKET);
    STOP_LOSS_PRICE := ENTERPRICE - ATR_VALUE;  // 初始止损位
    MAX_PROFIT := 0;
END;
   
if CLOSE < MA_LINE - ATR_VALUE AND DIFF < 0 then  
begin
    SELL(1, HOLDING, MARKET);
        DIFF_CROSS_FLAG := 0;
    end
   


止损价格:STOP_LOSS_PRICE;
// 移动止损逻辑
IF HOLDING > 0 THEN BEGIN
    // 计算当前浮动盈利(ATR倍数)
    CURRENT_PROFIT := (CLOSE - ENTERPRICE) / ATR_VALUE;
      
    // 更新最大浮动盈利
    IF CURRENT_PROFIT > MAX_PROFIT THEN
        MAX_PROFIT := CURRENT_PROFIT;
      
    // 第一阶段：浮盈1倍ATR后，止损移到保本点
    IF MAX_PROFIT >= 1 AND STOP_LOSS_PRICE < ENTERPRICE THEN
        STOP_LOSS_PRICE := ENTERPRICE;  
        
    // 第二阶段：浮盈3倍ATR后，2倍ATR跟踪止损
    IF MAX_PROFIT >= 3 THEN
        STOP_LOSS_PRICE := MAX(STOP_LOSS_PRICE, CLOSE - 2*ATR_VALUE);
      
    // 第三阶段：浮盈5倍ATR后，3倍ATR跟踪止损
    IF MAX_PROFIT >= 5 THEN
        STOP_LOSS_PRICE := MAX(STOP_LOSS_PRICE, CLOSE - 3*ATR_VALUE);
      
    // 止损执行
    IF CLOSE <= STOP_LOSS_PRICE THEN
        SELL(1, HOLDING, MARKET);
        DIFF_CROSS_FLAG := 0;
END;