【示范策略】换月只平旧合约范例

技术008

很多用后台使用净持仓下单模式的客户，在进行换月移仓的时候只需要平旧合约仓位就行，新合约仓位净持仓下单策略会自动执行。
如下为平旧合约后台代码范例


//本策略是后台策略，运行时候选择监控连续合约，会把所监控的合约中非当前主力合约则会在开盘第一根k的时候平仓
//用户可以根据这个模板自己改进，来实现类似换月移仓的功能

if TODAYBAR()=1 then begin
//获取当前主力合约代码
code:=DYNAINFO(210);
//原油要减去最后4位字符，其他品种减去2位字符，用来和当前连续合约的品种做判断
LenMon:IF(STRCMP(STKLABEL,'SC0000')=0,4,2);
HC:=THOLDCOUNT('');
FOR I = 1 TO HC do BEGIN  //循环取得当前活动账户品种持仓
  HLABEL:= THOLDINDEXLABEL(I,'');
  if STRICMP(HLABEL,code)<>0 And stricmp(STRLEFT(code,STRLEN(code)-LenMon),STRLEFT(HLABEL,STRLEN(HLABEL)-LenMon))=0 Then begin
   THC:=TBUYHOLDINGEX('' ,HLABEL,1);
   TSELL(THC>0,THC,MKT,0,'',HLABEL),ALLOWREPEAT;
   THC:=TSELLHOLDINGEX('' ,HLABEL,1);
   TSELLSHORT(THC>0,THC,MKT,0,'',HLABEL),ALLOWREPEAT;
  end
END
END