全局變量控制重復開倉問題

作者：開拓者 TB 來源：cxh99.com 發布時間：2016年08月21日

咨詢內容： 用數據庫控制重復開倉總是失敗，現在換成用全局變量來控制，在本地和阿里云上測試，都出現重復開倉的現象。請幫我看一下其中的邏輯有什么問題。謝謝！
1. Params
2. Numeric L1(3);
3. Numeric L2(6);
4. Numeric Stoploss(2);
5. Vars
6. NumericSeries shortline;
7. NumericSeries longline;
8. Numeric protectprice;
9. Bool SonL;
10. Bool SunderL;
11. Begin
12. If(!CallAuctionFilter()) Return;
14. shortline=XAverage(Close,L1);
15. longline=XAverage(Close,L2);
16. PlotNumeric("短期均線",shortline);
17. PlotNumeric("長期均線",longline);
19. SonL=shortline[1]>longline[1];
20. SunderL=shortline[1]<longline[1];
22. If(BarStatus==2)
23. {
24. Commentary("全局變量："+Text(GetGlobalVar(0)));
25. If(GetGlobalVar(0)==0 Or GetGlobalVar(0)==InvalidNumeric)
26. {
27. If(SonL)
28. {
29. A_SendOrder(Enum_Buy,Enum_Entry,1,Q_AskPrice);
30. SetGlobalVar(0,1);
31. }
32. If(SunderL)
33. {
34. A_SendOrder(Enum_Sell,Enum_Entry,1,Q_BidPrice);
35. SetGlobalVar(0,-1);
36. }
37. }
39. If(GetGlobalVar(0)==1)
40. {
41. protectprice=A_BuyAvgPrice-Stoploss;
42. If(Q_Last<protectprice)
43. {
44. A_SendOrder(Enum_Sell,Enum_Exit,1,Q_BidPrice);
45. SetGlobalVar(0,0);
46. }
47. }
48. If(GetGlobalVar(0)==-1)
49. {
50. protectprice=A_SellAvgPrice+Stoploss;
51. If(Q_Last>protectprice)
52. {
53. A_SendOrder(Enum_Buy,Enum_Exit,1,Q_AskPrice);
54. SetGlobalVar(0,0);
55. }
56. }
57. }
58. End
TB技術人員： 仍然是是短期均線在長期均線上就開多一手，短期均線在長期均線下就開空一手。開倉后反向波動兩點就平倉。
TB客服： 這是交易記錄