60日均线通道指标半成品（frlin2003）

frlin2003

欢迎优化！
文件存放位置不解释。关于程序问题不解释。

1. 
   
2. //根据某种条件，将 上行/震荡/下行 用不同的颜色分割开
   
3. //编译者:平衡；[url=www.fx3Q.com]www.fx3Q.com[/url] 众汇论坛
   
4. #property indicator_buffers 7
   
5. #property indicator_color1 Red
   
6. #property indicator_color2 Blue
   
7. #property indicator_color3 Green
   
8. #property indicator_color4 Blue
   
9. #property indicator_color5 Red
   
10. #property indicator_color6 Blue
    
11. #property indicator_color7 Green
    
12. 
    
13. #property indicator_chart_window
    
14. 
    
15. extern int 平均振幅周期=60;
    
16. int 均线周期=60;
    
17. 
    
18. double 上行标示缓冲区[];
    
19. double 震荡标示缓冲区[];
    
20. double 下行标示缓冲区[];
    
21. 
    
22. /*
    
23. int 符号代码_上行=225;
    
24. int 符号代码_震荡=224;
    
25. int 符号代码_下行=226;
    
26. */
    
27. 
    
28. int 符号代码_上行=159;
    
29. int 符号代码_震荡=159;
    
30. int 符号代码_下行=159;
    
31. 
    
32. double 上轨缓冲区[];
    
33. double 上中缓冲区[];
    
34. double 下轨缓冲区[];
    
35. double 下中缓冲区[];
    
36. 
    
37. int init()
    
38. {
    
39. //---- indicators
    
40.    IndicatorBuffers(7);
    
41. //----
    
42.   
    
43.    SetIndexStyle(0,DRAW_LINE,EMPTY,2);
    
44.    SetIndexBuffer(0,上轨缓冲区);
    
45.    SetIndexDrawBegin(0,均线周期);
    
46. 
    
47.    SetIndexStyle(1,DRAW_LINE,EMPTY,2);
    
48.    SetIndexBuffer(1,上中缓冲区);
    
49.    SetIndexDrawBegin(1,均线周期);
    
50.    
    
51.    SetIndexStyle(2,DRAW_LINE,EMPTY,2);
    
52.    SetIndexBuffer(2,下轨缓冲区);
    
53.    SetIndexDrawBegin(2,均线周期);
    
54.    
    
55.    SetIndexStyle(3,DRAW_LINE,EMPTY,2);
    
56.    SetIndexBuffer(3,下中缓冲区);
    
57.    SetIndexDrawBegin(3,均线周期);
    
58. 
    
59.    SetIndexStyle(4,DRAW_ARROW,0,0);
    
60.    SetIndexArrow(4,符号代码_上行);
    
61.    SetIndexBuffer(4,上行标示缓冲区);
    
62.    SetIndexEmptyValue(4,0.0);
    
63. 
    
64.    SetIndexStyle(5,DRAW_ARROW,0,0);
    
65.    SetIndexArrow(5,符号代码_震荡);
    
66.    SetIndexBuffer(5,震荡标示缓冲区);
    
67.    SetIndexEmptyValue(5,0.0);
    
68.    
    
69.    SetIndexStyle(6,DRAW_ARROW,0,0);
    
70.    SetIndexArrow(6,符号代码_下行);
    
71.    SetIndexBuffer(6,下行标示缓冲区);
    
72.    SetIndexEmptyValue(6,0.0);
    
73. 
    
74.    return(0);
    
75. }
    
76. 
    
77. int deinit()
    
78. {
    
79. //----
    
80.    
    
81. //----
    
82.    return(0);
    
83. }
    
84. 
    
85. int start()
    
86. {
    
87.    double 振幅之和;
    
88.    double 平均振幅[];
    
89.    double 旧Slope[];
    
90.    double 新Slope[];
    
91.    double 轨道宽度;
    
92.    double 均线值[];。
    
93. 
    
94.    
    
95.    ArrayResize(平均振幅,Bars);   //无法使用如下语句:平均振幅[Bars]，中括号内不可以放入变量，只能使用函数在声明后重新设定数组大小
    
96.    ArrayResize(旧Slope,Bars);    //会导致程序运行较慢?
    
97.    ArrayResize(新Slope,Bars);
    
98.    ArrayResize(均线值,Bars);
    
99.    
    
100.    int i,j,limit,counted_bars=IndicatorCounted();
     
101.    if(counted_bars>0)
     
102.       counted_bars--;
     
103.    limit=Bars;//-counted_bars;
     
104.    
     
105. //----
     
106.    if(Bars<=均线周期) return(0);    //一般碰不到这情况,可删除
     
107. 
     
108. //首次加载指标时,将最久远的60个无法得出数据的柱值清零,有必要加这行吗?也许可以忽略删除
     
109.    if(counted_bars<1){
     
110.       for(i=1;i<=均线周期;i++)
     
111.       {
     
112.          新Slope[Bars-i]=EMPTY_VALUE;
     
113.       }
     
114.    }
     
115. 
     
116. //计算平均振幅
     
117.    for(i=0; i<limit; i++){
     
118.       振幅之和=0.0;
     
119.       for(j=i;j<i+平均振幅周期;j++){
     
120.          振幅之和+=High[j]-Low[j];
     
121.       }
     
122.       平均振幅[i]=振幅之和/平均振幅周期;  //计算10个k的平均高低价差
     
123.       //平均振幅[i]=平均振幅[i]/0.0001;     //换算成"点"
     
124.    }
     
125. 
     
126. //计算旧Slope 和 新Slope
     
127.    for(i=0; i<limit; i++)
     
128.    {
     
129.       均线值[i]=iMA(NULL,0,均线周期,0,0,0,i);
     
130.       旧Slope[i]=(iMA(NULL,0,均线周期,0,0,0,i)-iMA(NULL,0,均线周期,0,0,0,i+1))/0.0001;    //60个周期内，平均每个k的移动距离---换算成"点"
     
131.                                                                                           //不管平台的Point是0.0001还是0.00001，使用0.0001代表按思维小数来算
     
132.       新Slope[i]=旧Slope[i]/(平均振幅[i]/0.0001)*10;      //新slope=旧slope/振幅 //10为凑数     //(平均振幅[i]/0.0001)=换算成"点"
     
133.       //暂时没有乘/除 以系数
     
134.    }
     
135. 
     
136. //反向循环,从过去算到现在
     
137. 
     
138. //7种可能性
     
139. /*
     
140. 只上行
     
141. 1界线-----------
     
142. 上行(之前从1上面下来，之前状态为上行)/震荡(之前从0.2上来，之前状态为震荡)
     
143. 0.2界线---------
     
144. 只震荡
     
145. -0.2界线--------
     
146. 下行/震荡
     
147. -1界线----------
     
148. 只下行
     
149. */
     
150. 
     
151.    //Comment(DoubleToStr(新Slope[10018],10));     //实测:Bars=10078,limit=10078    新Slope[10018]=6518.365错数   新Slope[10017]=正常
     
152.    //Comment(DoubleToStr(新Slope[limit-1-均线周期],10));
     
153. 
     
154.    
     
155.    int 行情标示 = -2; //1为上行；0为震荡；-1为下行
     
156.    int 判断启动开关 = 0;//0为关,1为开
     
157.    
     
158.    int 上行界 = 1;
     
159.    double 上行转震荡界 = 0.2;
     
160.    int 下行界 = -1;
     
161.    double 下行转震荡界 = -0.2;
     
162.    
     
163.    for(i=limit-1-均线周期; i>=0; i--)
     
164.    {      
     
165.    //计算轨道宽度
     
166.       轨道宽度=平均振幅[i]*4;
     
167. 
     
168.       if(新Slope[i]>=1){
     
169.          判断启动开关=1;      //从第一个上行开始启动
     
170.       }
     
171.       if(判断启动开关==0) continue;
     
172.       
     
173.       if(新Slope[i]>=上行界){
     
174.          上行标示缓冲区[i]=iMA(NULL,0,均线周期,0,0,0,i);      //箭头一律画在-3的位置
     
175.          行情标示=1;
     
176.          上轨缓冲区[i]=均线值[i]+轨道宽度;
     
177.          上中缓冲区[i]=均线值[i]+轨道宽度/2;
     
178. 
     
179.          continue;
     
180.       }
     
181.       else if (新Slope[i]<上行界 && 新Slope[i]>上行转震荡界 && 行情标示==1){
     
182.          上行标示缓冲区[i]=iMA(NULL,0,均线周期,0,0,0,i);
     
183.          上轨缓冲区[i]=均线值[i]+轨道宽度;
     
184.          上中缓冲区[i]=均线值[i]+轨道宽度/2;
     
185.          continue;
     
186.       }
     
187.       else if (新Slope[i]<上行界 && 新Slope[i]>上行转震荡界 && 行情标示==0){
     
188.          震荡标示缓冲区[i]=iMA(NULL,0,均线周期,0,0,0,i);
     
189.          上中缓冲区[i]=均线值[i]+轨道宽度/2;
     
190.          下中缓冲区[i]=均线值[i]-轨道宽度/2;
     
191.          continue;
     
192.       }
     
193.       else if (新Slope[i]<=上行转震荡界 && 新Slope[i]>=下行转震荡界){
     
194.          震荡标示缓冲区[i]=iMA(NULL,0,均线周期,0,0,0,i);
     
195.          上中缓冲区[i]=均线值[i]+轨道宽度/2;
     
196.          下中缓冲区[i]=均线值[i]-轨道宽度/2;
     
197.          行情标示=0;
     
198.          continue;
     
199.       }
     
200.       else if (新Slope[i]>下行界 && 新Slope[i]<下行转震荡界 && 行情标示==0){
     
201.          震荡标示缓冲区[i]=iMA(NULL,0,均线周期,0,0,0,i);
     
202.          上中缓冲区[i]=均线值[i]+轨道宽度/2;
     
203.          下中缓冲区[i]=均线值[i]-轨道宽度/2;
     
204.          continue;
     
205.       }
     
206.       else if (新Slope[i]>下行界 && 新Slope[i]<下行转震荡界 && 行情标示==-1){
     
207.          下行标示缓冲区[i]=iMA(NULL,0,均线周期,0,0,0,i);
     
208.          下轨缓冲区[i]=均线值[i]-轨道宽度;
     
209.          下中缓冲区[i]=均线值[i]-轨道宽度/2;
     
210.          continue;
     
211.       }
     
212.       else if(新Slope[i]<=下行界){
     
213.          下行标示缓冲区[i]=iMA(NULL,0,均线周期,0,0,0,i);
     
214.          行情标示=-1;
     
215.          下轨缓冲区[i]=均线值[i]-轨道宽度;
     
216.          下中缓冲区[i]=均线值[i]-轨道宽度/2;
     
217.          continue;
     
218.       }
     
219. 
     
220. //两种大幅度情况:从 X<-0.2的下行，直接进入X>0.2的震荡
     
221.       else if (新Slope[i]<上行界 && 新Slope[i]>上行转震荡界 && 行情标示==-1){
     
222.          震荡标示缓冲区[i]=iMA(NULL,0,均线周期,0,0,0,i);
     
223.          行情标示=0;
     
224.          上中缓冲区[i]=均线值[i]+轨道宽度/2;
     
225.          下中缓冲区[i]=均线值[i]-轨道宽度/2;
     
226.          continue;
     
227.       }
     
228.       else if (新Slope[i]>下行界 && 新Slope[i]<下行转震荡界 && 行情标示==1){
     
229.          震荡标示缓冲区[i]=iMA(NULL,0,均线周期,0,0,0,i);
     
230.          行情标示=0;
     
231.          上中缓冲区[i]=均线值[i]+轨道宽度/2;
     
232.          下中缓冲区[i]=均线值[i]-轨道宽度/2;
     
233.          continue;
     
234.       }
     
235. 
     
236.    }
     
237.    return(0);
     
238.   }
     
239. 
     

复制代码

来源: 60日均线通道指标半成品（frlin2003）

robertlee

消灭零回复