批量加减仓

800190

想实现用pel批量多账户账户按比例加减仓。可以写示范代码吗？

800190

能通过循环的方式获得所有持仓的个股吗？

资深技术07

有账户持仓函数THOLDCOUNT(AC);取得指定账户持仓品种数量（账户栏上看到的持仓品种数量）

单个账户持仓全平示例，供您参考

[PEL] 复制代码

//只在最后周期有效，防止逐K线模式前面K线刷新进入，可以提高效率。对序列模式不影响。
IF NOT(ISLASTBAR) THEN EXIT;
 
//取得当前活动账户的总持仓品种数量
HC:=THOLDCOUNT('');
//MSGOUT(1,NUMTOSTR(HC,0));

//循环取得持仓
FOR I = 1 TO HC do
BEGIN
    //获取第I个序号的账户持仓品种代码
    HLABEL:= THOLDINDEXLABEL(I,'');
    //MSGOUT(1,HLABEL);
    //取该品种多仓数量，然后平仓
    THC:=TBUYHOLDINGEX('' ,HLABEL,1);
    //MSGOUT(1,'buyholdig'&NUMTOSTR(THC,0));
    TSELL(THC>0,THC,MKT,0,0,'',HLABEL),ALLOWREPEAT;
    //取空仓数量，然后平仓
    THC:=TSELLHOLDINGEX('' ,HLABEL,1);
    //MSGOUT(1,'sellholdig'&NUMTOSTR(THC,0));
    TSELLSHORT(THC>0,THC,MKT,0,0,'',HLABEL),ALLOWREPEAT;
END

800190

这些品种的持仓成本呢？这个仅仅是获得数量吧？还能直接平所有品种仓位吗？比如我所以持仓增加一半仓位，怎么处理？

800190

tsell我记得放循环里面，在多账户中好像有问题。时灵时不灵。后面没有办法，只能把账户写死。这个问题还存在吧？

资深技术07

3楼的示例，是获取一个账户的持仓数量，并平掉所有持仓的示例，里面的账户名都是空的，默认会取第一个，多账户的在账户处都写上具体账户名即可
函数TAVGENTERPRICEEX(AC,STOCK)，可获取取指定帐户品种的平均持仓成本

示例代码里，开仓平仓代码均有示例，请加上具体的限制条件，实现加仓减仓。

[PEL] 复制代码

//只在最后周期有效，防止逐K线模式前面K线刷新进入，可以提高效率。对序列模式不影响。
ZH1:='1000';
IF NOT(TACCOUNT2(53,ZH1)) THEN EXIT;//账户登陆异常直接退出
IF NOT(ISLASTBAR) THEN EXIT;
  
//取得当前活动账户的总持仓品种数量
HC:=THOLDCOUNT(ZH1);
//MSGOUT(1,NUMTOSTR(HC,0));
 
//循环取得持仓
FOR I = 1 TO HC DO
BEGIN
    //获取第I个序号的账户持仓品种代码
    HLABEL:= THOLDINDEXLABEL(I,ZH1);
    //MSGOUT(1,HLABEL);
    
    //获取第I个序号的账户持仓品种均价
    TAVGP:= TAVGENTERPRICEEX(I,ZH1);
    //取该品种多仓数量，然后平仓
    THC:=TBUYHOLDINGEX(ZH1 ,HLABEL,1);
    //MSGOUT(1,'BUYHOLDIG'&NUMTOSTR(THC,0));
    TBUY(THC>0,IF(THC*0.5>2,INTPART(THC*0.5),1),MKT,0,0,ZH1,HLABEL);//持仓增加一半,用0.5表示
    
    
    TSELL(THC>0,THC,MKT,0,0,ZH1,HLABEL),ALLOWREPEAT;//全平
    //取空仓数量，然后平仓
    THC:=TSELLHOLDINGEX('' ,HLABEL,1);
    //MSGOUT(1,'SELLHOLDIG'&NUMTOSTR(THC,0));
    TBUYSHORT(THC>0,IF(THC*0.5>2,INTPART(THC*0.5),1),MKT,0,0,ZH1,HLABEL);//持仓增加一半,用0.5表示
    
    TSELLSHORT(THC>0,THC,MKT,0,0,ZH1,HLABEL),ALLOWREPEAT;//全平
END

800190

我的意思是两层循环，第一层是账号，第二层是持仓

资深技术07

账号与账号之间是独立的，建议一个账号一个账号判断。
不建议，您多个账号，总是几乎同时进行开仓平仓的操作，被判定为关联账户的风险太高了。

800190

我明白是独立的啊。循环也是一个账户处理完毕再处理下一个啊。和独立写效果差不多吧。不用循环，账户有几个，复制几份代码，效率低，维护也困难。而且账户是写死在代码中的。增减账户都需要该程序。

800190

改。正常而言，多账户没有这样设计的。代码需要写死在程序中。