Absolute Strenght Histo

1. //+------------------------------------------------------------------+
   
2. //|                                          AbsoluteStrength_v1.mq4 |
   
3. //|                           Copyright ?2006, TrendLaboratory Ltd. |
   
4. //|            http://finance.groups.yahoo.com/group/TrendLaboratory |
   
5. //|                                       E-mail: igorad2004@list.ru |
   
6. //+------------------------------------------------------------------+
   
7. //| Modifications:                                                   |
   
8. //| - AbsoluteStrengthHisto_v1, 2006/06/26:                          |
   
9. //|   Put in Histogram form with 2 level lines                       |
   
10. //|   ph_bresson@yahoo.com                                           |
    
11. //+------------------------------------------------------------------+
    
12. #property copyright "Copyright ?2006, TrendLaboratory Ltd."
    
13. #property link      "http://finance.groups.yahoo.com/group/TrendLaboratory"
    
14. 
    
15. #property indicator_separate_window
    
16. #property indicator_maximum 0.0001
    
17. #property indicator_minimum 0
    
18. #property indicator_buffers   4
    
19. #property indicator_color1    Lime
    
20. #property indicator_width1    5
    
21. #property indicator_color2    Red
    
22. #property indicator_width2    5
    
23. #property indicator_color3    CLR_NONE
    
24. #property indicator_width3    2
    
25. #property indicator_color4    CLR_NONE
    
26. #property indicator_width4    2
    
27. 
    
28. //---- input parameters
    
29. extern int       Mode   =  0; // 0-RSI method; 1-Stoch method
    
30. extern int       Length =  7; // Period
    
31. extern int       Smooth =  7; // Period of smoothing
    
32. extern int       Signal =  4; // Period of Signal Line
    
33. extern int       Price  =  0; // Price mode : 0-Close,1-Open,2-High,3-Low,4-Median,5-Typical,6-Weighted
    
34. extern int       ModeMA =  1; // Mode of Moving Average
    
35. extern int       Mode_Histo  = 3;
    
36. //---- buffers
    
37. double Bulls[];
    
38. double Bears[];
    
39. double AvgBulls[];
    
40. double AvgBears[];
    
41. double SmthBulls[];
    
42. double SmthBears[];
    
43. double SigBulls[];
    
44. double SigBears[];
    
45. //+------------------------------------------------------------------+
    
46. //| Custom indicator initialization function                         |
    
47. //+------------------------------------------------------------------+
    
48. int init()
    
49.   {
    
50. //---- indicators
    
51.    IndicatorBuffers(8);
    
52.    SetIndexStyle(0,DRAW_HISTOGRAM,EMPTY,2);
    
53.    SetIndexBuffer(0,SmthBulls);
    
54.    SetIndexStyle(1,DRAW_HISTOGRAM,EMPTY,2);
    
55.    SetIndexBuffer(1,SmthBears);
    
56. 
    
57.    SetIndexStyle(2,DRAW_LINE,EMPTY,2);
    
58.    SetIndexBuffer(2,SigBulls);
    
59.    SetIndexStyle(3,DRAW_LINE,EMPTY,2);
    
60.    SetIndexBuffer(3,SigBears);
    
61. 
    
62.    SetIndexBuffer(4,Bulls);
    
63.    SetIndexBuffer(5,Bears);
    
64.    SetIndexBuffer(6,AvgBulls);
    
65.    SetIndexBuffer(7,AvgBears);
    
66. //---- name for DataWindow and indicator subwindow label
    
67.    string short_name="AbsoluteStrengthHistogram("+Mode+","+Length+","+Smooth+","+Signal+",,"+ModeMA+")";
    
68.    IndicatorShortName(short_name);
    
69.    SetIndexLabel(0,"Bulls");
    
70.    SetIndexLabel(1,"Bears");
    
71.    SetIndexLabel(2,"Bulls");
    
72.    SetIndexLabel(3,"Bears");      
    
73. 
    
74. //----
    
75.    SetIndexDrawBegin(0,Length+Smooth+Signal);
    
76.    SetIndexDrawBegin(1,Length+Smooth+Signal);
    
77.    SetIndexDrawBegin(2,Length+Smooth+Signal);
    
78.    SetIndexDrawBegin(3,Length+Smooth+Signal);
    
79. 
    
80.    SetIndexEmptyValue(0,0.0);
    
81.    SetIndexEmptyValue(1,0.0);
    
82.    SetIndexEmptyValue(2,0.0);
    
83.    SetIndexEmptyValue(3,0.0);
    
84.    SetIndexEmptyValue(4,0.0);
    
85.    SetIndexEmptyValue(5,0.0);
    
86.    SetIndexEmptyValue(6,0.0);
    
87.    SetIndexEmptyValue(7,0.0);
    
88. 
    
89. 
    
90. 
    
91.    return(0);
    
92.   }
    
93. 
    
94. //+------------------------------------------------------------------+
    
95. //| Custom indicator iteration function                              |
    
96. //+------------------------------------------------------------------+
    
97. int start()
    
98.   {
    
99.    int      shift, limit, counted_bars=IndicatorCounted();
    
100.    double   Price1, Price2, smax, smin;
     
101. //----
     
102.    if ( counted_bars < 0 ) return(-1);
     
103.    if ( counted_bars ==0 ) limit=Bars-Length+Smooth+Signal-1;
     
104.    if ( counted_bars < 1 )
     
105.    for(int i=1;i<Length+Smooth+Signal;i++)
     
106.    {
     
107.    Bulls[Bars-i]=0;   
     
108.    Bears[Bars-i]=0;  
     
109.    AvgBulls[Bars-i]=0;   
     
110.    AvgBears[Bars-i]=0;  
     
111.    SmthBulls[Bars-i]=0;   
     
112.    SmthBears[Bars-i]=0;  
     
113.    SigBulls[Bars-i]=0;   
     
114.    SigBears[Bars-i]=0;  
     
115.    }
     
116.    
     
117.    
     
118.    
     
119.    if(counted_bars>0) limit=Bars-counted_bars;
     
120.    limit--;
     
121.    
     
122.    for( shift=limit; shift>=0; shift--)
     
123.       {
     
124.       Price1 = iMA(NULL,0,1,0,0,Price,shift);
     
125.       Price2 = iMA(NULL,0,1,0,0,Price,shift+1);
     
126.       
     
127.          if (Mode==0)
     
128.          {
     
129.          Bulls[shift] = 0.5*(MathAbs(Price1-Price2)+(Price1-Price2));
     
130.          Bears[shift] = 0.5*(MathAbs(Price1-Price2)-(Price1-Price2));
     
131.          }
     
132.         
     
133.          if (Mode==1)
     
134.          {
     
135.          smax=High[Highest(NULL,0,MODE_HIGH,Length,shift)];
     
136.          smin=Low[Lowest(NULL,0,MODE_LOW,Length,shift)];
     
137.          
     
138.          Bulls[shift] = Price1 - smin;
     
139.          Bears[shift] = smax - Price1;
     
140.          }
     
141.       }
     
142.       
     
143.       for( shift=limit; shift>=0; shift--)
     
144.       {
     
145.       AvgBulls[shift]=iMAOnArray(Bulls,0,Length,0,ModeMA,shift);     
     
146.       AvgBears[shift]=iMAOnArray(Bears,0,Length,0,ModeMA,shift);
     
147.       }
     
148.       
     
149.       for( shift=limit; shift>=0; shift--)
     
150.       {
     
151.       SmthBulls[shift]=iMAOnArray(AvgBulls,0,Smooth,0,ModeMA,shift);     
     
152.       SmthBears[shift]=iMAOnArray(AvgBears,0,Smooth,0,ModeMA,shift);
     
153.       }
     
154. 
     
155.       if(Mode_Histo == 1)
     
156.       {
     
157.          for( shift=limit; shift>=0; shift--)
     
158.          {
     
159.             if(SmthBulls[shift]-SmthBears[shift]>0)
     
160.             {
     
161.                SetIndexStyle(0,DRAW_HISTOGRAM,EMPTY,5);
     
162.                SetIndexStyle(1,DRAW_LINE,EMPTY,2);
     
163.                SmthBears[shift]= SmthBears[shift]/Point;
     
164.                SmthBulls[shift]= SmthBulls[shift]/Point;
     
165.             }
     
166.             else
     
167.             {
     
168.                SetIndexStyle(1,DRAW_HISTOGRAM,EMPTY,5);
     
169.                SetIndexStyle(0,DRAW_LINE,EMPTY,2);
     
170.                SmthBears[shift]= SmthBears[shift]/Point;
     
171.                SmthBulls[shift]= SmthBulls[shift]/Point;
     
172.             }
     
173.          }  //end for( shift=limit; shift>=0; shift--)
     
174.       }     // end if(Mode_Histo == 1)
     
175.       else
     
176.       if(Mode_Histo == 2)
     
177.       {
     
178.          for( shift=limit; shift>=0; shift--)
     
179.          {
     
180.             if(SmthBulls[shift]-SmthBears[shift]>0)
     
181.             {
     
182.                SmthBears[shift]=-SmthBears[shift]/Point;
     
183.                SmthBulls[shift]= SmthBulls[shift]/Point;
     
184.             }
     
185.             else
     
186.             {
     
187.                SmthBulls[shift]=-SmthBulls[shift]/Point;
     
188.                SmthBears[shift]= SmthBears[shift]/Point;
     
189.             }
     
190.          }  //end for( shift=limit; shift>=0; shift--)      
     
191.       }     //end if(Mode_Histo == 2)
     
192.       else
     
193.       if(Mode_Histo == 3)
     
194.       {
     
195.          for( shift=limit; shift>=0; shift--)
     
196.          {
     
197.             SigBulls[shift]=  SmthBulls[shift];
     
198.             SigBears[shift]=  SmthBears[shift];            
     
199.             if(SmthBulls[shift]-SmthBears[shift]>0)
     
200.                SmthBears[shift]=0;
     
201.             else
     
202.                SmthBulls[shift]=0;  
     
203.          }  //end for( shift=limit; shift>=0; shift--)      
     
204.       }     //end if(Mode_Histo == 3)
     
205.       else
     
206.       if(Mode_Histo == 4)
     
207.       {
     
208.          for( shift=limit; shift>=0; shift--)
     
209.          {
     
210.             if(SmthBulls[shift]-SmthBears[shift]>0)
     
211.             {
     
212.                SigBears[shift]=  SmthBears[shift];
     
213.                SmthBears[shift]=0;
     
214.             }
     
215.             else
     
216.             {
     
217.                SigBulls[shift]=  SmthBulls[shift];
     
218.                SmthBulls[shift]=0;         
     
219.             }
     
220.          }  //end for( shift=limit; shift>=0; shift--)      
     
221.       }     //end if(Mode_Histo == 4)
     
222.       
     
223.    return(0);
     
224.   }
     
225. //+------------------------------------------------------------------+

复制代码

AbsoluteStrenghtHisto.mq4

2018-3-20 16:25

点击文件名下载附件

晚舟获保释后发出的第一条朋友圈

难得一见的好帖

谢谢楼主分享

谢谢楼主分享

顶下