开拓者 TB 【震荡+趋势混合策略】恒温器策略【源码】

分析家公式网,提供指标公式,股票软件用户登录 |

当前位置：分析家公式网 → 股票公式 → 开拓者公式 → 一键转帖：开拓者 TB 【震荡+趋势混合策略】恒温器策略【源码】

软件名称：[B]开拓者 TB 【震荡+趋势混合策略】恒温器策略【源码】[/B]
软件类型：国产软件
运行环境：Win2000/WinXP/Win2003/WinVista
软件语言：简体中文
授权方式：共享软件
软件大小：0 Bytes
官方主页：Home Page
更新时间：2013-03-17 01:08:45
软件简介:

本帖最后由 sorakiraa 于 2013-1-14 09:08 编辑

【震荡+趋势混合策略】恒温器策略

by RogarZ

源码：
1. Params
2. Numeric bollinglengths(50);
3. Numeric trendliqlength(50);
4. Numeric numstddevs(2);
5. Numeric swingprcnt1(0.5);
6. Numeric swingprcnt2(0.75);
7. Numeric atrlength(10);
8. Numeric swingtrendswitch(50);
9. Vars
10. BoolSeries swing(False);
11. NumericSeries cmival;
12. NumericSeries buyeasierday(0);
13. NumericSeries selleasierday(0);
14. NumericSeries trendlokbuy;
15. NumericSeries trendloksell;
16. NumericSeries trendbuypt;
17. NumericSeries trendsellpt;
18. NumericSeries keyofday;
19. NumericSeries ma1;
20. NumericSeries midd;
21. Numeric swingprotstop;
22. Numeric atr;
23. Numeric swingbuypt;
24. Numeric swingsellpt;
25. Begin
26. Commentary("BarInterval= "+Text(BarInterval));
27. cmival=Abs(Close[1]-Close[31])/(Highest(High[1],30)-Lowest(Low[1],30));
28. trendloksell=Average(Low[1],3*240/BarInterval);
29. trendlokbuy=Average(High[1],3*240/BarInterval);
30. keyofday=(HighD(0)+LowD(0)+CloseD(0))/3;
31. If(Date<>Date[1]){
32. If(CloseD(1)>keyofday[1])
33. {
34. selleasierday=1;//空头日
35. }Else{
36. buyeasierday=1;//多头日
37. }
38. }
39. Atr=XAverage(TrueRange,atrlength*240/BarInterval);
40. If(buyeasierday==1){
41. swingbuypt=OpenD(0)+swingprcnt1*atr;
42. swingsellpt=OpenD(0)-swingprcnt2*atr;
43. }
44. If(selleasierday==1){
45. swingbuypt=OpenD(0)+swingprcnt2*atr;
46. swingsellpt=OpenD(0)-swingprcnt1*atr;
47. }
48. swingbuypt=Max(swingbuypt,trendlokbuy);
49. swingsellpt=Min(swingsellpt,trendloksell);
51. PlotNumeric("Buy",swingbuypt);
52. PlotNumeric("Sell",swingsellpt);
54. ma1=Average(Close[1],trendliqlength);//趋势均线
55. midd=Average(Close[1],bollinglengths);//布林中线
56. trendbuypt=midd+numstddevs*StandardDev(Close[1],bollinglengths);
57. trendsellpt=midd-numstddevs*StandardDev(Close[1],bollinglengths);
59. If(cmival<swingtrendswitch/100)
60. {
61. If(MarketPosition==0&&High[1]>=swingbuypt)
62. //开多仓
63. {
64. Buy(1,Max(Open,swingbuypt));
65. swing=True;
66. }
67. If(MarketPosition==0&&Low[1]<=swingsellpt)
68. //开空仓
69. {
70. SellShort(1,Min(Open,swingsellpt));
71. swing=True;
72. }
73. If(MarketPosition>0&&Low[1]<=swingsellpt)
74. //多头反手
75. {
76. SellShort(1, Min(Open,swingsellpt));
77. [url=http://www.70822.com/soft/sort013/sort083/down-59364.html]开拓者 TB 【震荡+趋势混合策略】恒温器策略【源码】[/url]