仓位控制

106325

全局资金管理模块（全局公式）
plaintext
// 金字塔专业版全局资金管理系统
// ===== 核心函数定义 =====
// 获取指定策略的持仓市值（使用TACCOUNT(4)函数）
Function GetStrategyPositionValue(StrategyName);
    Return TACCOUNT(4, StrategyName);
End Function;


// 获取指定策略的持仓股票数量（遍历所有持仓）
Function GetStrategyStockCount(StrategyName);
    Var Count = 0;
    For i = 1 To TACCOUNT(0) Do;  // TACCOUNT(0)返回持仓总数
        If (TACCOUNT(3, i) = StrategyName) Then;  // TACCOUNT(3,i)返回第i个持仓的策略名
            Count = Count + 1;
        End If;
    End For;
    Return Count;
End Function;


// ===== 全局变量定义 =====
// 账户总资金(元)
Var Global AccountCapital = 500000;;


// 各策略资金上限(元)
Var Global StrategyACapital = 80000;;
Var Global StrategyBCapital = 100000;;
Var Global StrategyCCapital = 120000;;


// 各策略单股最大持仓限制(元)
Var Global MaxStockPositionA = 8000;;
Var Global MaxStockPositionB = 10000;;
Var Global MaxStockPositionC = 12000;;


// 全局交易锁机制（防止并发交易导致资金计算错误）
Var Global TradeLock = False;;
Var Global LockTimeout = 1000;;  // 锁超时时间(毫秒)
策略 A 交易控制模块（策略 A 公式）
plaintext
// 策略A资金管理函数
Function StrategyAAccountManager();
    // 计算策略A当前持仓市值
    Var PositionValue = GetStrategyPositionValue("StrategyA");;
    // 可用资金 = 策略总资金 - 当前持仓市值
    Var AvailableCapital = StrategyACapital - PositionValue;;
    // 返回可用资金和单股最大持仓的较小值，防止单股过度买入
    Return Min(AvailableCapital, MaxStockPositionA);;
End Function;


// 策略A买入控制逻辑
If (BuySignalA And Not TradeLock) Then ;  // 当买入信号触发且无交易锁时
    // 获取交易锁，防止其他策略同时交易
    TradeLock = True;;
    Sleep(LockTimeout);;  // 等待锁生效
   
    // 计算实际可买入金额
    Var BuyAmount = StrategyAAccountManager();;
   
    // 执行买入操作
    If (BuyAmount > 0) Then;
        Buy BuyAmount / Close * 100, StockPoolA, "StrategyA";  // 买入对应金额的股票
    End If;
   
    // 释放交易锁
    TradeLock = False;;
End If;


// 策略A卖出控制逻辑
If (SellSignalA) Then;  // 当卖出信号触发时
    Sell All, StockPoolA, "StrategyA";  // 卖出所有持仓
End If;
策略 B 交易控制模块（策略 B 公式）
plaintext
// 策略B资金管理函数
Function StrategyBAccountManager();
    // 计算策略B当前持仓市值
    Var PositionValue = GetStrategyPositionValue("StrategyB");;
    // 可用资金 = 策略总资金 - 当前持仓市值
    Var AvailableCapital = StrategyBCapital - PositionValue;;
    // 返回可用资金和单股最大持仓的较小值
    Return Min(AvailableCapital, MaxStockPositionB);;
End Function;


// 策略B买入控制逻辑
If (BuySignalB And Not TradeLock) Then;
    TradeLock = True;;
    Sleep(LockTimeout);;
   
    Var BuyAmount = StrategyBAccountManager();;
   
    If (BuyAmount > 0) Then;
        Buy BuyAmount / Close * 100, StockPoolB, "StrategyB";;
    End If;
   
    TradeLock = False;;
End If;


// 策略B卖出控制逻辑
If (SellSignalB) Then;
    Sell All, StockPoolB, "StrategyB";;
End If;


//策略 C 交易控制模块（策略 C 公式）
plaintext
// 策略C资金管理函数
Function StrategyCAccountManager();
    // 计算策略C当前持仓市值
    Var PositionValue = GetStrategyPositionValue("StrategyC");
    // 可用资金 = 策略总资金 - 当前持仓市值
    Var AvailableCapital = StrategyCCapital - PositionValue;
    // 返回可用资金和单股最大持仓的较小值
    Return Min(AvailableCapital, MaxStockPositionC);;
End Function;


// 策略C买入控制逻辑
If (BuySignalC And Not TradeLock) Then;
    TradeLock = True;
    Sleep(LockTimeout);
   
    Var BuyAmount = StrategyCAccountManager();
   
    If (BuyAmount > 0) Then;
        Buy BuyAmount / Close * 100, StockPoolC, "StrategyC";;
    End If;
   
    TradeLock = False;;
End If;


// 策略C卖出控制逻辑
If (SellSignalC) Then;
    Sell All, StockPoolC, "StrategyC";;
End If;
以上公式是仓位控制，但金字塔就是通不过，请老师帮优化下。并写明优化的地方，以便向老师学习，谢谢






补充内容 (2025-7-31 08:25):
系统提示语句未尾缺少分号

技术008

请给出具体中午描述，ai出来的不能直接用d额，都是错误连篇的

106325

技术008 发表于 2025-7-31 08:55
请给出具体中午描述，ai出来的不能直接用d额，都是错误连篇的

可以帮改一下吗，我的目的就是要用一个账户，控制三个策略，把这个策略给修改一下，或给定一个，好吗？

技术008

必须提供中文策略描述才行，直接代码翻译是不行的