主题：请教单品种多策略后台模型

以下内容为程序代码:

1 runmode:1;
2
3 myaccount:='888888';
4 strategyname:='s1';
5
6 mybuyholding:=strategyname+'_bh';
7 mysellholding:=strategyname+'_sh';
8
9 if extgbdata(mybuyholding)=0 then begin
10     tbuy(1,1,lmt,0,close,myaccount,stklabel);
11     extgbdataset(mybuyholding,1);
12 end
13
14 if extgbdata(mysellholding)=0 then begin
15     tbuyshort(1,1,lmt,0,close,myaccount,stklabel);
16     extgbdataset(mysellholding,1);
17 end
18
19 if extgbdata(mybuyholding)＞0 then begin
20     tsell(1,mybuyholding,lmt,0,close,myaccount,stklabel);
21     extgbdataset(mybuyholding,0);
22 end
23
24 if extgbdata(mysellholding)＞0 then begin
25     tsellshort(1,mysellholding,lmt,0,close,myaccount,stklabel);
26     extgbdataset(mysellholding,0);
27 end