批量加减仓

资深技术07

推荐最好有一点时间间隔，一个账号一个账号，读取账户栏持仓，进行开平仓操作哦。

800190

我不明白，循环不可以读取持仓吗？首先外层循环读取账户，然后第二层内部循环开始就该账户执行批量处理。然后第二个账户，再读取个股批量处理。金字塔不支持双层循环？我表达的意思是，以前我们没有批量处理个股需求。而是多个账户放循环中，只处理单只个股，不稳定。有时多个账户处理正常，有时不正常。而并不是循环不能用。我测试过，循环读取持仓是没有问题的啊，就是不稳定而已。

资深技术07

如何实现循环读取持仓，是可以的，3楼和6楼都给出了示例。

推荐一个账号一个账号，读取账户栏持仓，进行开平仓操作。

800190

n:=taccountcount;  这个不就是循环的函数啊，我们都用了很长时间了。是买卖放循环里面不稳定。不是循环不能用。

资深技术07

好的，再加一层循环，示例代码如下，请您本地试试

[PEL] 复制代码

//只在最后周期有效，防止逐K线模式前面K线刷新进入，可以提高效率。对序列模式不影响。
IF NOT(ISLASTBAR) THEN EXIT;
ZHSL:=TACCOUNTCOUNT;//取得账户数量

FOR I = 1 TO ZHSL do
BEGIN
        ZH1:=TACCOUNTINDEX(I);//取指定序号账号
        IF NOT(TACCOUNT2(53,ZH1)) THEN EXIT;//账户登陆异常直接退出
        HC:=THOLDCOUNT(ZH1);//取得当前活动账户的总持仓品种数量
  
//循环取得持仓
        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
END

800190

我的意思是循环可以用。但好像涉及买卖，比如有三个账户，有时三个同时开仓，有时只开一个或两个。不稳定。后来没办法，只好把买卖的代码单独拿到循环外面。但这样就导致股票没办法循环了。因为股票比较多，不可能把代码单独写。