zh:='';//账户
con:=1;//是否允许下单
//遍历账户栏
for i=1 to tholdcount(zh) do
begin
hlabel:=tholdindexlabel(i,zh);//第I个账户栏持仓品种
C1:CALLSTOCK(hlabel,vtCLOSE,-1,0);//账户栏品种的收盘价
R:=RELATE(C,C1,20);
if r>=0.7 then
begin
con:=0;
BREAK;//和任意一个品种相关达到0.7 直接跳出循环
end
end
result:con;//满足则开仓,否则不开