獨特的思路，開拓者拋物線轉向交易系統源碼分享

作者：開拓者 TB 來源：cxh99.com 發布時間：2012年12月10日

思路內容： 剛才看到群里討論了會SAR,很多人也想寫一個SAR系統,最近比較忙,利用午飯時間寫了個SAR系統,大家拿去擴充吧
原創作品,轉載注明出處作者穿堂風 www.tumamayizhan.com
1. //------------------------------------------------------------------------
2. // 簡稱: SAR_system
3. // 名稱:
4. // 類別: 公式應用
5. // 類型: 用戶應用
6. // 輸出: 穿堂風{程序化交易}
7. //------------------------------------------------------------------------
9. Params
10. Numeric AfStep(0.02);
11. Numeric AfLimit(0.2) ;
12. Numeric malen(120);
13. Numeric stopLoss(1);
14. Numeric BuyLots(1);
15. Numeric offset(0);
16. Vars
17. Numeric oParCl( 0 );
18. Numeric oParOp( 0 );
19. Numeric oPosition( 0 );
20. Numeric oTransition( 0 );
21. NumericSeries oParOp_s;
22. Numeric oParOp_p;
23. Numeric i_offset;
24. Numeric ma;
25. Bool bUpline;
26. string strkey;
27. string strValue;
28. Numeric i_stopLoss;
30. Begin
32. ma = Average(Open,malen);
33. bUpline = Open>= ma;
34. ParabolicSAR( AfStep, AfLimit, oParCl, oParOp, oPosition, oTransition ) ;
35. oParOp_s = oParOp;
36. oParOp_p = oParOp_s[1];
37. i_offset = offset*MinMove*PriceScale;
38. i_stopLoss = stopLoss*(OpenD(0)/100);
40. Commentary("oParOp:"+Text(oParOp));
41. Commentary("oTransition:"+Text(oTransition));
42. Commentary("oPosition:"+Text(oPosition));
43. If(CurrentBar>malen)
44. {
45. PlotNumeric("oParCl",oParCl);
46. If(malen != 0)
47. {
48. PlotNumeric("ma",ma);
49. }
52. If(MarketPosition == 0)
53. {
54. If(malen == 0)
55. {
56. bUpline = True;
57. }
59. If(oTransition == 1 and bUpline)
60. {
61. Buy(BuyLots,Max(Open,oParOp_p)+i_offset);
62. Return;
63. }
65. If(malen == 0)
66. {
67. bUpline = False;
68. }
70. If(oTransition == -1 and bUpline==False)
71. {
72. SellShort(BuyLots,Min(Open,oParOp_p)-i_offset);
73. Return;
74. }
75. }
77. If(MarketPosition == 1)
78. {
79. If(malen == 0)
80. {
81. bUpline = False;
82. }
84. If(LastEntryPrice-Low>=i_stopLoss)
85. {
86. Sell(BuyLots,Min(Open,LastEntryPrice-i_stopLoss)-i_offset);
87. Return;
88. }
89. If(oPosition == -1)
90. {
92. If(oTransition == -1 and bUpline==False)
93. {
94. SellShort(BuyLots,Min(Open,oParOp_p)-i_offset);
95. }
96. Else
97. {
98. Sell(BuyLots,Min(Open,oParOp_p)-i_offset);
99. }
100. }
101. }
103. If(MarketPosition == -1)
104. {
105. If(malen == 0)
106. {
107. bUpline = True;
108. }
110. If(High-LastEntryPrice>=i_stopLoss)
111. {
112. BuyToCover(BuyLots,Max(Open,LastEntryPrice+i_stopLoss)+i_offset);
113. Return;
114. }
115. If(oPosition == 1)
116. {
117. If(oTransition == 1 and bUpline)
118. {
119. Buy(BuyLots,Max(Open,oParOp_p)+i_offset);
120. }
121. Else
122. {
123. BuyToCover(BuyLots,Max(Open,oParOp_p)+i_offset);
124. }
125. }
126. }
127. }
128. End
130. //------------------------------------------------------------------------
131. // 編譯版本 GS2010.12.08{程序化交易}
132. // 用戶版本 2011/09/05 12:21
133. // 版權所有穿堂風
134. // 更改聲明 TradeBlazer Software保留對TradeBlazer平臺
135. // 每一版本的TrabeBlazer公式修改和重寫的權利
136. //------------------------------------------------------------------------
因為時間短促,已盡量考慮邏輯性,如果有質疑的地方,一定要細看代碼,我不希望沒分析清楚就說未來函數,這是對我的不尊重.