请教高手，这个代码有什么错误？

qwas121

这是我写的，根据前根K的高点决定开多仓，盈利30点止盈，亏损10点止损。时间限制是白盘和夜盘都是开盘后五分钟开始执行，收盘前10分钟结束。
但实际执行下来，全部都是在每天第6或第7分钟开仓，到了收盘前9分钟平仓。
我找不出错误，请教各位老师，各位高手，问题在哪？

1. Params
   
2. Numeric D1(5);
   
3. Numeric D2(5);
   
4. Numeric EARNPOINT(30);
   
5. Numeric LOSSPOINT(10);
   
6. 
   
7. Vars
   
8. BoolSeries KDALLOW(False);
   
9. BoolSeries PDALLOW(False);
   
10. NumericSeries BKPRICE;
    
11. Numeric SKPRICE;
    
12. Numeric STOPPRICE;
    
13. Numeric EARNPRICE;
    
14. Bool Time1(False);
    
15. Bool Time2(False);
    
16. 
    
17. Begin
    
18. Time1=(Time>=0.0905) And (Time<=0.1450);
    
19. Time2=(Time>=0.2105 And Time<=0.2320);
    
20. IF(Time1 Or Time2)
    
21. {
    
22. If(High>Highest(High[1],D1))
    
23.   {
    
24.    KDALLOW=True;
    
25.    }
    
26. If(Low<Lowest(Low[1],D2))
    
27.   {
    
28.    PDALLOW=True;
    
29.    }
    
30. If(KDALLOW[1]==True And PDALLOW[1]==True)
    
31.   {
    
32.    KDALLOW=False;
    
33.    PDALLOW=False;
    
34.    }
    
35. If(KDALLOW[1]==True And MarketPosition==0)
    
36.   {
    
37.    SellShort(1,Open);
    
38.    KDALLOW=False;
    
39.    BKPRICE=Open;
    
40.    Commentary("开仓价："+Text(BKPRICE));
    
41.    }
    
42. If(MarketPosition==1)
    
43. {
    
44. EARNPRICE=BKPRICE+EARNPOINT*MinMove*PriceScale;
    
45. STOPPRICE=BKPRICE-LOSSPOINT*MinMove*PriceScale;
    
46. If(LOW<STOPPRICE)
    
47.   {
    
48.    SKPRICE=Min(STOPPRICE,Open);
    
49.    BuyToCover(1,SKPRICE);
    
50.    BKPRICE=0;
    
51.    Commentary("止损："+Text(SKPRICE));
    
52.    }
    
53. Else If(High>EARNPRICE)
    
54.   {
    
55.    SKPRICE=Max(EARNPRICE,Open);
    
56.    BuyToCover(1,SKPRICE);
    
57.    BKPRICE=0;
    
58.    Commentary("止盈："+Text(SKPRICE));
    
59.    }
    
60. }
    
61. }
    
62. Else If(MarketPosition<>0)
    
63. {
    
64. SKPRICE=Open;
    
65. BuyToCover(1,SKPRICE);
    
66. BKPRICE=0;
    
67. Commentary("时间平仓："+Text(SKPRICE));
    
68. KDALLOW=False;
    
69. PDALLOW=False;
    
70. }
    
71. Commentary("BKPRICE"+Text(BKPRICE));
    
72. Commentary("KDALLOW"+IIFString(KDALLOW,"True","False"));
    
73. Commentary("PDALLOW"+IIFString(KDALLOW,"True","False"));
    
74. End

复制代码