 
等级: 超级版主
- 注册:
- 2021-5-18
- 曾用名:
|
//==================== 资金计算 ====================
浮动盈亏 := (CLOSE - 基准价格) * 手数 * MULTIPLIER;
当前保证金 := TACCOUNT(28);
浮动盈亏比例 := 浮动盈亏 / 当前保证金 * 100;
//==================== 交易执行 ====================
// 多头开仓
IF 开仓模式 = 0 AND 模式1条件 AND NOT(TISREMAIN(1)) THEN BEGIN
TBUY(1,手数,LMT,CLOSE);
开仓模式 := 1;
基准价格 := CLOSE;
开仓时间 := TIME;
DEBUGFILE('D:\TEST.TXT','当前资产为%.2f',1234);
DEBUGFILE('D:\TEST.TXT','持仓时间%.2f',(TIME-开仓时间)/100);
DEBUGFILE('D:\TEST.TXT','浮动盈亏比例%.2f',浮动盈亏比例);
END
IF 开仓模式 = 0 AND 模式2条件 AND NOT(TISREMAIN(1)) THEN BEGIN
TBUY(1,手数,LMT,CLOSE);
开仓模式 := 2;
基准价格 := CLOSE;
开仓时间 := TIME;
DEBUGFILE('D:\TEST.TXT','当前资产为%.2f',1234);
DEBUGFILE('D:\TEST.TXT','持仓时间%.2f',(TIME-开仓时间)/100);
DEBUGFILE('D:\TEST.TXT','浮动盈亏比例%.2f',浮动盈亏比例);
END
IF 开仓模式 = 0 AND 模式3条件 AND NOT(TISREMAIN(1)) THEN BEGIN
TBUY(1,手数,LMT,CLOSE);
开仓模式 := 3;
基准价格 := CLOSE;
开仓时间 := TIME;
DEBUGFILE('D:\TEST.TXT','当前资产为%.2f',1234);
DEBUGFILE('D:\TEST.TXT','持仓时间%.2f',(TIME-开仓时间)/100);
DEBUGFILE('D:\TEST.TXT','浮动盈亏比例%.2f',浮动盈亏比例);
END
// 空头开仓
IF 开仓模式 = 0 AND 空头_模式1条件 AND NOT(TISREMAIN(3)) THEN BEGIN
TBUYSHORT(1,手数,LMT,CLOSE);
开仓模式 := -1; // 用负值表示空头仓位
基准价格 := CLOSE;
开仓时间 := TIME;
DEBUGFILE('D:\TEST.TXT','当前资产为%.2f',1234);
DEBUGFILE('D:\TEST.TXT','持仓时间%.2f',(TIME-开仓时间)/100);
DEBUGFILE('D:\TEST.TXT','浮动盈亏比例%.2f',浮动盈亏比例);
END
IF 开仓模式 = 0 AND 空头_模式2条件 AND NOT(TISREMAIN(3)) THEN BEGIN
TBUYSHORT(1,手数,LMT,CLOSE);
开仓模式 := -2;
基准价格 := CLOSE;
开仓时间 := TIME;
DEBUGFILE('D:\TEST.TXT','当前资产为%.2f',1234);
DEBUGFILE('D:\TEST.TXT','持仓时间%.2f',(TIME-开仓时间)/100);
DEBUGFILE('D:\TEST.TXT','浮动盈亏比例%.2f',浮动盈亏比例);
END
IF 开仓模式 = 0 AND 空头_模式3条件 AND NOT(TISREMAIN(3)) THEN BEGIN
TBUYSHORT(1,手数,LMT,CLOSE);
开仓模式 := -3;
基准价格 := CLOSE;
开仓时间 := TIME;
DEBUGFILE('D:\TEST.TXT','当前资产为%.2f',1234);
DEBUGFILE('D:\TEST.TXT','持仓时间%.2f',(TIME-开仓时间)/100);
DEBUGFILE('D:\TEST.TXT','浮动盈亏比例%.2f',浮动盈亏比例);
END
// 多头平仓
IF 开仓模式 > 0 AND TBUYHOLDINGEX('','',1) > 0 THEN BEGIN
IF 浮动盈亏比例 >= 止盈比例 OR 浮动盈亏比例 <= -止损比例 THEN BEGIN
TSELL(1,手数,MKT);
DEBUGFILE('D:\TEST.TXT','当前资产为%.2f',1234);
DEBUGFILE('D:\TEST.TXT','持仓时间%.2f',(TIME-开仓时间)/100);
DEBUGFILE('D:\TEST.TXT','浮动盈亏比例%.2f',浮动盈亏比例);
开仓模式 := 0;
END
END
// 空头平仓
IF 开仓模式 < 0 AND TSELLHOLDINGEX('','',1) > 0 THEN BEGIN
IF 浮动盈亏比例 >= 止盈比例 OR 浮动盈亏比例 <= -止损比例 THEN BEGIN
TSELLSHORT(1,手数,MKT);
DEBUGFILE('D:\TEST.TXT','当前资产为%.2f',1234);
DEBUGFILE('D:\TEST.TXT','持仓时间%.2f',(TIME-开仓时间)/100);
DEBUGFILE('D:\TEST.TXT','浮动盈亏比例%.2f',浮动盈亏比例);
开仓模式 := 0;
END
END
//==================== 监控输出 ====================
IF ISLASTBAR THEN BEGIN
DEBUGFILE('D:\TEST.TXT','当前资产为%.2f',1234);
DEBUGFILE('D:\TEST.TXT','持仓时间%.2f',(TIME-开仓时间)/100);
DEBUGFILE('D:\TEST.TXT','浮动盈亏比例%.2f',浮动盈亏比例);
END |
|