主题：[讨论]同样的策略在后台多账号交易时要根据账号个数写多个公式？

以下内容为程序代码:

1 begintime:=currenttime＞=091500 and currenttime＜=145500;
2 endtime:=currenttime＞=145930;
3
4 buycond:=begintime;
5 sellcond:=begintime;
6
7 if tbuyholdingex('666666',0,0)=0 then begin
8     if buycond then begin
9         buyprice:=close;
10         mycash:=taccount2(19,'666666');
11         lots:=intpart(mycash/(buyprice*multiplier*taccount(41)));
12         tbuy(1,lots,lmt,close,0,'666666',0);
13     end
14 end
15
16 if tsellholdingex('666666',0,0)=0 then begin
17     if sellcond then begin
18         sellprice:=close;
19         mycash:=taccount2(19,'666666');
20         lots:=intpart(mycash/(sellprice*multiplier*taccount(42)));
21         tbuyshort(1,lots,lmt,close,0,'666666',0);
22     end
23 end
24
25 if tbuyholdingex('666666',0,0)＞0 then begin
26     if endtime then
27         tsell(1,tbuyholdingex('666666',0,0),lmt,close,'666666',0);
28 end
29
30 if tsellholdingex('666666',0,0)＜0 then begin
31     if endtime then
32         tsellshort(1,tsellholdingex('666666',0,0),lmt,close,'666666',0);
33 end

以下内容为程序代码:

1 begintime:=currenttime＞=091500 and currenttime＜=145500;
2 endtime:=currenttime＞=145930;
3
4 buycond:=begintime;
5 sellcond:=begintime;
6
7 if tbuyholdingex('888888',0,0)=0 then begin
8     if buycond then begin
9         buyprice:=close;
10         mycash:=taccount2(19,'888888');
11         lots:=intpart(mycash/(buyprice*multiplier*taccount(41)));
12         tbuy(1,lots,lmt,close,0,'888888',0);
13     end
14 end
15
16 if tsellholdingex('888888',0,0)=0 then begin
17     if sellcond then begin
18         sellprice:=close;
19         mycash:=taccount2(19,'888888');
20         lots:=intpart(mycash/(sellprice*multiplier*taccount(42)));
21         tbuyshort(1,lots,lmt,close,0,'888888',0);
22     end
23 end
24
25 if tbuyholdingex('888888',0,0)＞0 then begin
26     if endtime then
27         tsell(1,tbuyholdingex('888888',0,0),lmt,close,'888888',0);
28 end
29
30 if tsellholdingex('888888',0,0)＜0 then begin
31     if endtime then
32         tsellshort(1,tsellholdingex('888888',0,0),lmt,close,'888888',0);
33 end