以下内容为程序代码:

1 ZH1:\'\';
2 PZ1:\'\';
3 VARIABLE:A=0;
4 //条件判断
5 MA5:MA(CLOSE,5);
6 MA10:MA(CLOSE,10);
7 CONDBUY:=CROSS(MA5,MA10);
8 CONDSELL:=CROSS(MA10,MA5);
9 //控制日内交易次数
10 IF TTOTALDAYTRADE＞=300 THEN EXIT;
11 //开仓和平仓
12 TBUY(CONDBUY AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )＜10,1,MKT,0,ZH1,PZ1 );
13 TSELL(CONDSELL,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0，ZH1,PZ1);
14 //加仓
15 IF TBUYHOLDINGEX( ZH1,PZ1 ,0 )＜10 THEN BEGIN
16 阳线加仓:TBUY(CLOSE＞OPEN,2,LMT,CLOSE,ZH1,PZ1);
17 阴线加仓:TBUY(CLOSE＜OPEN,1,LMT,CLOSE,ZH1,PZ1);
18 END
19 //固定止损止盈
20 IF DYNAINFO( 7)-TAVGENTERPRICEEX2(ZH1 ,PZ1 ,0 )＞20*MINDIFF THEN BEGIN
21 TSELL(1,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0，ZH1，PZ1);
22 END
23 //止损
24 IF TAVGENTERPRICEEX2(ZH1 ,PZ1 ,0 )-C＞10*MINDIFF THEN BEGIN
25 TSELL(1,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0，ZH1，PZ1);
26 END
27 //监控未成交单
28 WCJ:=TREMAINQTY( 1, ZH1,PZ1);
29 IF WCJ＜＞0 THEN BEGIN
30 A:=WCJ;
31 END
32 //对为成交单撤单，并追单
33 IF WCJ＞0 THEN BEGIN
34 TCANCELEX(1,1,ZH1,PZ1 );
35 TBUY(WCJ=0，A,MKT,0，ZH1，PZ1);
36 END
37 //监控持仓和资金状况
38 当前持仓量:=TBUYHOLDINGEX( ZH1,PZ1 ,0 );
39 当前可用资金:=TACCOUNT(19);
40 DEBUGOUT(\'当前持仓量%.2f\',当前持仓量 );
41 DEBUGOUT(\'当前可用资金%.2f\',当前可用资金 );
42 //收盘前强平
43 IF CURRENTTIME＞=150000 THEN BEGIN
44 TSELL(1,0,MKT,0，ZH1，PZ1);
45 END