公式模型编写问题提交-[讨论]同样的策略在后台多账号交易时要根据账号个数写多个公式？金字塔客服中心 - 专业程序化交易软件提供商

以下内容为程序代码:

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