以下內(nèi)容為程序代碼:

1 variable:maxprofit=0;
2 win:=0;
3 win2:=0;
4
5 if holding=0 then begin
6     //多頭開倉
7     if tradingtime and enlongcond then begin
8         buy(1,1,limitr,close);
9         maxprofit:=0;
10     end
11     
12     //空頭開倉
13     if tradingtime and enshortcond then begin
14         buyshort(1,1,limitr,close);
15         maxprofit:=0;
16     end
17 end
18
19 if holding＞0 then begin
20     //多頭平倉
21     if exlongcond then
22         sell(1,holding,limitr,close);
23
24     //多頭收盤平倉
25     if not(tradingtime) then
26         sell(1,holding,limitr,close);
27
28     //盈虧計算
29     if enterbars＞0 then begin
30         win:=(c-enterprice)/enterprice*100;
31         if win＞maxprofit then
32             maxprofit:=win;
33         win2:=(maxproift-win)/maxprofit*100;
34     end
35
36     //多頭初始止損
37     if win＜-2 then
38         sell(1,holding,limitr,close);
39
40     //多頭利潤止盈
41     if win＞4 then
42         sell(1,holding,limitr,close);
43     
44     //多頭回撤止盈
45     if win2＞60 and openprofit＞0 then
46         sell(1,holding,limitr,close);
47 end
48
49 if holding＜0 then begin
50     //空頭平倉
51     if exshortcond then
52         sellshort(1,holding,limitr,close);
53
54     //空頭收盤平倉
55     if not(tradingtime) then
56         sellshort(1,holding,limitr,close);
57     
58     //盈虧計算
59     if enterbars＞0 then begin
60         win:=(enterprice-c)/enterprice*100;
61         if win＞maxprofit then
62             maxprofit:=win;
63         win2:=(maxprofit-win)/maxprofit*100;
64     end
65
66     //空頭初始止盈
67     if win＜-2 then
68         sellshort(1,holding,limitr,close);
69
70     //空頭利潤止盈
71     if win＞4 then
72         sellshort(1,holding,limitr,close);
73     
74     //空頭回撤止盈
75     if win2＞60 and openprofit＞0 then
76         sellshort(1,holding,limitr,close);
77 end
78
79

公式測試不過去 樓主請看看原因

編譯錯誤：無法判斷該表達式的意圖

箭頭---        sell(1,holding,limitr,close);