大神請進，幫忙看看代碼邏輯上是否有問題

作者：開拓者 TB 來源：cxh99.com 發(fā)布時間：2016年11月27日

咨詢內(nèi)容： 本帖最后由 zdyt5683 于 2016-6-7 13:35 編輯

思路：20日均線，均線上買多，下賣空，持倉時碰線平倉，只允許持倉1手
癥狀1：在沒有空頭持倉的情況下（有多頭持倉），會發(fā)出買平指令。。。。。。
癥狀2：有時候會連發(fā)N個開倉單
1. Vars
2. //-----------------------------MACD變量
3. NumericSeries MACDValue;
4. NumericSeries AvgMACD;
5. NumericSeries MACDDiff;
6. Bool macd_dt(False);
7. Bool macd_kt(False);
9. //-----------------------------均線變量
10. NumericSeries MA20;
12. Begin
14. //-----------------------------MACD載入
15. MACDValue = XAverage( Close, 12) - XAverage( Close, 26 ) ;
16. AvgMACD = XAverage(MACDValue,9);
17. MACDDiff = MACDValue - AvgMACD;
19. //-----------------------------MACD判斷
20. macd_dt=MACDDiff[1]>0;
21. macd_kt=MACDDiff[1]<0;
23. //-----------------------------均線載入
24. MA20=Average(Close,20);
25. PlotNumeric("MA20",MA20,0,yellow);
28. //-----------------------------初始化全局變量8（持倉變量），同步為實際持倉
29. If(A_BuyPosition==0 And A_SellPosition==0) SetGlobalVar(8,0);
30. If(A_BuyPosition>0) SetGlobalVar(8,1);
31. If(A_SellPosition>0) SetGlobalVar(8,-1);
34. //----------------------------------------------------------------------------------------開倉
35. If(A_BuyPosition==0 And A_SellPosition==0 And GetGlobalVar(8)==0)
36. {
37. If(Close>MA20 And macd_dt)
38. {
39. A_SendOrder(Enum_Buy,Enum_Entry,1,Q_UpperLimit);
40. SetGlobalVar(8,1);//全局8，持多倉為正
42. }
43. If(Close<MA20 And macd_kt)
44. {
46. A_SendOrder(Enum_Sell,Enum_Entry,1,Q_LowerLimit);
47. SetGlobalVar(8,-1);//全局8，持空倉為負
48. }
49. }
52. //----------------------------------------------------------------------------------------平倉
53. If(A_BuyPosition>0 And GetGlobalVar(8)>0)//持多倉時
54. {
55. If(Close<=MA20)
56. {
57. A_SendOrder(Enum_Sell,Enum_Exit,1,Q_LowerLimit);
58. SetGlobalVar(8,0);
59. }
61. }
63. If(A_SellPosition>0 And GetGlobalVar(8)<0)//持空倉時
64. {
65. If(Close>=MA20)
66. {
68. A_SendOrder(Enum_Buy,Enum_Exit,1,Q_UpperLimit);
69. SetGlobalVar(8,0);
71. }
72. }
74. End