改后台程序华策略

100019656

//中间变量
INPUT:X(1,1,100,1),NMIN(50,1,100,1),SS(1,1,100,1);
昨日高点:=REF(HHV(H,X),1);//X是参数，自行调整
昨日低点:=REF(LLV(L,X),1);
手数:=SS;
开仓时间:=TIME>OPENTIME(1) AND TIME<CLOSETIME(0)-NMIN*100;
平仓时间:=TIME>=CLOSETIME(0)-NMIN*100;
{NMIN为参数，CLOSETIME(0)-NMIN*100表示 收盘时间-提前N分钟 N由NMIN控制}

//交易条件:
开多平空条件:=close>=昨日高点 and 开仓时间 and holding<=0;
开空平多条件:=close<=昨日低点 and 开仓时间 and holding>=0;

//交易系统
收盘平多:sell(平仓时间 and holding>0, 0, thisclose);
收盘平空:sellshort(平仓时间 and holding<0,0,thisclose);

平空:sellshort(开多平空条件 and holding<0, 手数,limitr,昨日高点);//市价（market）挂单价（limitr）对手价（thisclose）
平多:sell(开空平多条件 and holding>0,手数,limitr,昨日低点);
开空:buyshort(开空平多条件 and holding=0,手数,limitr,昨日低点);
开多:buy(开多平空条件 and holding=0, 手数,limitr,昨日高点);





技术员帮忙把上面策略改成金字塔后台运行策略，谢谢

技术009

[PEL] 复制代码

?

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

//中间变量 INPUT:X(1,1,100,1),NMIN(50,1,100,1),SS(1,1,100,1); 昨日高点:=REF(HHV(H,X),1);//X是参数，自行调整 昨日低点:=REF(LLV(L,X),1); 手数:=SS; 开仓时间:=TIME>OPENTIME(1) AND TIME<CLOSETIME(0)-NMIN*100; 平仓时间:=TIME>=CLOSETIME(0)-NMIN*100; {NMIN为参数，CLOSETIME(0)-NMIN*100表示 收盘时间-提前N分钟 N由NMIN控制}   //交易条件: 开多平空条件:=close>=昨日高点 and 开仓时间; 开空平多条件:=close<=昨日低点 and 开仓时间;   多持仓:TBUYHOLDINGEX('','',1); 空持仓:TSELLHOLDINGEX('','',1);   //交易系统 收盘平多:tsell(平仓时间 and 多持仓>0, 0,lmt, DYNAINFO( 28)); 收盘平空:tsellshort(平仓时间 and 空持仓>0,0,lmt,DYNAINFO( 34));   平空:tsellshort(开多平空条件 and 空持仓>0, 手数,lmt,昨日高点);//市价（market）挂单价（limitr）对手价（thisclose） 平多:tsell(开空平多条件 and 多持仓>0,手数,lmt,昨日低点); 开空:tbuyshort(开空平多条件 and 空持仓=0,手数,lmt,昨日低点); 开多:tbuy(开多平空条件 and 多持仓=0, 手数,lmt,昨日高点);

100019656

收盘平多:sell(平仓时间 and holding>0, 0, thisclose);
收盘平空:sellshort(平仓时间 and holding<0,0,thisclose);


把这两句改收盘全部平仓，如何改？

技术009

不是已经完整的改写过了吗。参数是0就是全平。

后台函数说明列表：
https://www.weistock.com/docs/PE ... 87%BD%E6%95%B0.html

后台函数说明都在这里，可查阅函数的具体参数说明。

100019656

还是不能全部平仓，还有仓过夜

技术009

收盘前 监控页面的下单记录 截图我看下。

另外我其实怀疑是前面平仓 未成交导致的。

100019656

是的 ，就是前面没有平仓掉，导致的仓位，我想在收盘前，全部平仓

技术009

那得补充一个 未成交撤单 追单的逻辑才行了。

100019656

咋补充？帮帮忙哈

技术009

用代码处理：
//追单撤单
if tisprvremain(2) and  tsubmitex(2,'' ,'')>=10  then
begin
tcancelex(1,2,'',stklabel);
tsell(1,ss,mkt);
end

if tisprvremain(4) and  tsubmitex(4,'' ,'')>=10  then
begin
tcancelex(1,4,'',stklabel);
tsellshort(1,ss,mkt);
end


或者你也可以直接在工具-选项-追单撤单 里面设置系统自带的追撤单功能