以下内容为程序代码:

1 if ref(date,1)＜＞date then begin
2     extgbdataset(\'ex03\',0);    //开盘第一分钟，将做多次数记为0
3     extgbdataset(\'ex04\',0);    //开盘第一分钟，将做空次数记为0
4 end
5
6 if barpos＞30 then begin
7     if 做多条件 then bb:=1;
8     if 做空条件 then ss:=1;
9 end
10
11 sec:=dynainfo(207);
12 secfilter:=mod(sec,100)＞=secEntry;    //如果秒数到达58（即提前2秒下单）
13
14 if secfilter and islastbar then begin
15     if ceiling(sec/100.0)*100=EXTGBDATA(\'ex01\') then begin    //如果当前时间是最后一次进场时间
16         if EXTGBDATA(\'ex02\')=1 then buy(1,1,thisclose);
17         if EXTGBDATA(\'ex02\')=-1 then buyshort(1,1,thisclose);
18     end
19     else if ss=1 and holding=0 and EXTGBDATA(\'ex04\')＜2 then begin    //满足做空条件，且当天做空次数＜2
20         buyshort(1,units,limitr,close-4*mindiff),IGNORECHECKPRICE;
21         extgbdataset(\'ex01\',ceiling(sec/100.0)*100);    //记录（最后一次）进场时间
22         extgbdataset(\'ex02\',-1);    //记录进场方向为做空
23         trades2:=EXTGBDATA(\'ex04\')+1;
24         extgbdataset(\'ex04\',trades2);    //做空次数+1
25     end
26     else if bb=1 and holding=0 and EXTGBDATA(\'ex03\')＜2 then begin    //满足做多条件，且当天做多次数＜2
27         buy(1,units,limitr,close+4*mindiff),IGNORECHECKPRICE;
28         extgbdataset(\'ex01\',ceiling(sec/100.0)*100);    //记录（最后一次）进场时间
29         extgbdataset(\'ex02\',1);        //记录进场方向为做多
30         trades1:=EXTGBDATA(\'ex03\')+1;
31         extgbdataset(\'ex03\',trades1);    //做多次数+1
32     end
33 end
34
35 if (time=EXTGBDATA(\'ex01\') and date=currentdate and not(islastbar)) then begin    //如果不是最后一跟bar，且是最后一次进场时间，显示进场
36     if EXTGBDATA(\'ex02\')=1 then begin
37         buy(1,units,thisclose);
38     end
39     if EXTGBDATA(\'ex02\')=-1 then begin
40         buyshort(1,units,thisclose);
41     end
42 end
43
44 bb:=0;
45 ss:=0;