WR交易系统

spirit

WR交易系统

来自：MACD论坛(bbs.shudaoyoufang.com) 作者：spirit 浏览：8774 回复：8

这是老外写的源码,
里面我略加注释了一下,就应该都能看懂了.
我认为其中为了界定主图K线的上下边界曲线构造的序列数组挺复杂的.
那么下面会给出美股AA的图形,让大家有形像的认识.
在建仓时有这两条曲线的值参与运算得出进场价位.
可以看出它是一种以短周期持仓来抓价格形成背离之后的反弹波幅的策略.

1. var INTRADAYTRADES: boolean;
   
2. var SHORTDAYS, LONGDAYS, LONGPROFITTARGET, SHORTPROFITTARGET, WILLIAMSHIGH, WILLIAMSLOW, EMAPERIOD, ATRPERIOD, START, NLASTVARBAR, MT2, DE, PERIOD, MT, UT, X1, DT, XSERIES, UT2, DT2, BBUPPER, BBLOWER, LOWFACTOR, HIGHFACTOR, P: integer;
   
3. 
   
4. {#OptVar5 Default: 3}
   
5. {#OptVar4 Default: 27}
   
6. {#OptVar3 Default: 115}
   
7. {#OptVar2 Default: 85}
   
8. {#OptVar1 Default: 15}
   
9. {This is where you can adjust most of the
   
10. variables to optimize the script }
    
11. 
    
12. ShortDays := 2;
    
13. LongDays := 2;
    
14. LongProfitTarget := 10;
    
15. ShortProfitTarget := 5;
    
16. WilliamsHigh := 75;
    
17. WilliamsLow  := 25;
    
18. IntradayTrades := false;
    
19. 
    
20. HideVolume;   {Can delete this line if you need volume}
    
21. 
    
22. {------------------}
    
23. 
    
24. 
    
25. 
    
26. EMAPeriod := 9;
    
27. ATRPeriod := 30;
    
28. Start := EMAPeriod + ATRPeriod;
    
29. nLastVarBar := BarCount() - 1;
    
30. 
    
31. {Williams %R}
    
32. 
    
33. var X: float;
    
34. var PCTRPANE, SMOOTHR, BAR: integer;
    
35. PctRPane := CreatePane( 75, true, true );
    
36. PlotSeries( WilliamsRSeries( 14 ), PctRPane, 511, #Thick );
    
37. SmoothR := WilderMASeries( WilliamsRSeries( 14 ), 4 );
    
38. DrawLabel( 'WilliamsR( 14 )', PctRPane );
    
39. PlotSeries( SmoothR, PctRPane, #Black, #Thin );
    
40. 
    
41. //以WR指标窗口内的WR的值做WMA后所得值,以大于80或小于20为条件,将K线背景改变颜色
    
42. for Bar := 20 to BarCount - 1 do
    
43. begin
    
44.   x := GetSeriesValue( Bar, SmoothR );
    
45.   if x < 20 then
    
46.     SetBackgroundColor( Bar, #RedBkg )
    
47.   else if x > 80 then
    
48.     SetBackgroundColor( Bar, #BlueBkg );
    
49. 
    
50. end;
    
51. 
    
52. 
    
53. 
    
54. mt2 := CreateSeries();
    
55. de := #OptVar1 / 10;  {Nr Std Dev's}
    
56. period := #OptVar5;   //3
    
57. 
    
58. 
    
59. mt := EMASeries(#Close, period);//收盘价3周期EMA
    
60. ut := EMASeries(mt, period);//再次EMA
    
61. x1 := ((2 * period) / (period + 1)); // 2*3/4
    
62. dt := MultiplySeriesValue(ut, x1); //以ut的值乘以x1,再取整数部分,形成新的数组
    
63. dt := SubtractSeries(dt, ut);//以每个dt减去ut后,形成新的数组
    
64. dt := DivideSeriesValue(dt, ((period - 1) / (period + 1)) );//以dt的每个值除以一个数,得到新的数组
    
65. 
    
66. xseries := SubtractSeries(#Close, dt);//以收盘价减去dt的值,得新数组
    
67. 
    
68. //用以下循环给mt2数组赋值,应该是没有现成的数组函数
    
69. for Bar := period + 1 to BarCount - 1 do
    
70. begin
    
71. x := abs(GetSeriesValue(Bar, xseries));//取xseries数组元素的绝对值
    
72. SetSeriesValue(Bar, mt2, x);
    
73. end;
    
74. 
    
75. mt2 := EMASeries(mt2, period);//mt2的3周期ema
    
76. ut2 := EMASeries(mt2, period);
    
77. dt2 := MultiplySeriesValue(ut2, x1);
    
78. dt2 := SubtractSeries(dt2, ut2);
    
79. dt2 := DivideSeriesValue(dt2, ((period - 1) / (period + 1)) );
    
80. 
    
81. 
    
82. xseries := MultiplySeriesValue(dt2, de);//相乘得数组
    
83. BBUpper := AddSeries(dt, xseries);//相加得数组
    
84. BBLower := SubtractSeries(dt, xseries);//相减得数组
    
85. 
    
86. 
    
87. PlotSeries(BBUpper, 0, #Blue, 0);//按BBUpper数组,画指标曲线
    
88. PlotSeries(BBLower, 0, #Green, 0);
    
89. 
    
90. PlotSeries(dt, 0, #Red, 0);
    
91. 
    
92. LowFactor := #OptVar2 / 100; // 85/100
    
93. HighFactor := #OptVar3/ 100; // 115/100
    
94. 
    
95. 
    
96. 
    
97. 
    
98. { Implement Trading Rules }
    
99. 
    
100. {BuyLimitPrice := 0.0; }
     
101. 
     
102. InstallStopLoss( 5 );//设定止损为5%
     
103. {InstallProfitTarget ( ProfitTarget );}//可选设定止盈语句
     
104. 
     
105. 
     
106. 
     
107. //因为有两条均线,所以把开台时间定在了star+1,即两条均线都有效的时候.
     
108. for Bar := Start + 1 to nLastVarBar do
     
109. begin
     
110. 
     
111. ApplyAutoStops( Bar );//自动停损设置成有效状态
     
112. 
     
113. 
     
114.     if GetSeriesValue( Bar, WilliamsRSeries( 14 )) < WilliamsLow then
     
115. //如果WR指标值<low
     
116.     if not LastActivePosition >= 0 then
     
117.     ShortAtLimit(Bar + 1, (GetSeriesValue(Bar, BBUpper) * 1.05), '' );
     
118. //下根K线限价做空价位选择主图上边界的值与1.05的乘积
     
119. 
     
120.     if GetSeriesValue( Bar, WilliamsRSeries( 14 )) > WilliamsHigh then
     
121.     if not LastActivePosition >= 0 then
     
122.     BuyAtLimit(Bar + 1, (GetSeriesValue(Bar, BBLower) * 0.95), '' );
     
123. //下根K线限价做多,价位选择主图下边界的值与0.95的乘积
     
124. 
     
125. for P := 0 to PositionCount - 1 do
     
126.    begin
     
127.         if PositionActive( P ) then             //有仓位吗
     
128.         begin
     
129.            if PositionLong( P ) then            //是多仓吗
     
130.            if bar + 1 - positionEntryBar( p ) > 0 then    //持仓周期>0吗
     
131.            if bar + 1 - positionEntryBar( p ) >= LongDays then   //持仓周期>2吗
     
132.            begin
     
133.               SellAtMarket( Bar + 1, P, 'LongDaysExpired' );//下周期平仓,因持仓周期限制
     
134.            end;
     
135.            if PositionLong( P ) then
     
136.            if bar + 1 - positionEntryBar( p ) > 0 then
     
137.            if PositionProfit( P )/PriceClose(Bar) >= LongProfitTarget then  //净利润(美元)与收盘价的比>10
     
138.            begin
     
139.               SellAtMarket( Bar + 1, P, 'LongProfitTarget' );  //平仓卖出因利润达到
     
140.            end;
     
141.            if not PositionLong( P )then         //没有多仓,即有空仓
     
142.            if bar + 1 - positionEntryBar( p ) > 0 then   //持仓周期>0吗
     
143.            if bar + 1 - positionEntryBar( p ) >= ShortDays then    //持仓周期>2吗
     
144.            begin;
     
145.               CoverAtMarket( Bar + 1, P, 'ShortDaysExpired' );  //下周期平仓,因持仓周期限制
     
146.            end;
     
147.            if not PositionLong( P )then
     
148.            if bar + 1 - positionEntryBar( p ) > 0 then
     
149.            if PositionProfit( P )/PriceClose(Bar) >= ShortProfitTarget then   //净利润(美元)与收盘价的比>5
     
150.            begin;
     
151.               CoverAtMarket( Bar + 1, P, 'ShortProfitTarget' );  //下周期平仓,因做空利润
     
152.            end;
     
153.            
     
154.            if PositionLong( P ) then     //如果有多仓
     
155.            if (IntradayTrades) then      //这是开关,前面有赋值语句,默认是false,则下面语句忽略执行
     
156.            if PositionProfit( P )/PriceClose(Bar) >= LongProfitTarget then
     
157.            begin
     
158.               SellAtMarket( Bar + 1, P, 'LongProfitTarget' );
     
159.            end;
     
160. 
     
161.            if not PositionLong( P )then
     
162.            if (IntradayTrades) then
     
163.            if PositionProfit( P )/PriceClose(Bar) >= ShortProfitTarget then
     
164.            begin;
     
165.               CoverAtMarket( Bar + 1, P, 'ShortProfitTarget' );
     
166.            end;
     
167. 
     
168.         end;
     
169.    end;
     
170. 
     
171. end;

复制代码

[ Last edited by spirit on 2005-9-26 at 08:06 ]

ls729

太多了，看不懂了

牧羊

看来的学学,这种编成还没学会

没开刃

学习学习

bockju

谢谢楼主，学习

doublemint

谁能把公式转成飞狐的？

csc101

okokok

hellomsl

#*d1*# 这顶你，这样也可以

x2921

没精力看这么长的源码，纯顶。