Absolute Strength ProBulider

This topic has 0 replies, 1 voice, and was last updated 8 years ago by Max.

Viewing 1 post (of 1 total)

08/04/2016 at 8:59 AM #11198

Max

<b>Qui di seguito una domanda inviata a ProRealTime :
</b>

1 2	<b>Qui di seguito una domanda inviata a ProRealTime : </b>

AbsoluteStrength_v1.mq4

1

AbsoluteStrength_v1.mq4

#property indicator_separate_window #property indicator_buffers 4 #property indicator_color1 Blue #property indicator_width1 3 #property indicator_color2 Red #property indicator_width2 3 #property indicator_color3 DeepSkyBlue #property indicator_width3 1 #property indicator_color4 Red #property indicator_width4 1 //---- input parameters extern int Mode =0; // 0-RSI method; 1-Stoch method extern int Length= 9; // Period extern int Smooth= 1; // Period of smoothing extern int Signal= 4; // Period of Signal Line extern int Price=0; // Price mode : 0-Close,1-Open,2-High,3-Low,4-Median,5-Typical,6-Weighted extern int ModeMA= 3; // Mode of Moving Average extern int Mode_Histo =3; //---- buffers double Bulls[]; double Bears[]; double AvgBulls[]; double AvgBears[]; double SmthBulls[]; double SmthBears[]; double SigBulls[]; double SigBears[]; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { //---- indicators IndicatorBuffers(8); SetIndexStyle(0,DRAW_HISTOGRAM,EMPTY,3); SetIndexBuffer(0,SmthBulls); SetIndexStyle(1,DRAW_HISTOGRAM,EMPTY,3); SetIndexBuffer(1,SmthBears); // SetIndexStyle(2,DRAW_LINE,EMPTY,1); SetIndexBuffer(2,SigBulls); SetIndexStyle(3,DRAW_LINE,EMPTY,1); SetIndexBuffer(3,SigBears); // SetIndexBuffer(4,Bulls); SetIndexBuffer(5,Bears); SetIndexBuffer(6,AvgBulls); SetIndexBuffer(7,AvgBears); //---- name for DataWindow and indicator subwindow label string short_name="AbsoluteStrengthHistogram("+Mode+","+Length+","+Smooth+","+Signal+",,"+ModeMA+")"; IndicatorShortName(short_name); SetIndexLabel(0,"Bulls"); SetIndexLabel(1,"Bears"); SetIndexLabel(2,"Bulls"); SetIndexLabel(3,"Bears"); // SetIndexDrawBegin(0,Length+Smooth+Signal); SetIndexDrawBegin(1,Length+Smooth+Signal); SetIndexDrawBegin(2,Length+Smooth+Signal); SetIndexDrawBegin(3,Length+Smooth+Signal); // SetIndexEmptyValue(0,0.0); SetIndexEmptyValue(1,0.0); SetIndexEmptyValue(2,0.0); SetIndexEmptyValue(3,0.0); SetIndexEmptyValue(4,0.0); SetIndexEmptyValue(5,0.0); SetIndexEmptyValue(6,0.0); SetIndexEmptyValue(7,0.0); //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { int shift, limit, counted_bars=IndicatorCounted(); double Price1, Price2, smax, smin; //---- if(counted_bars < 0)return(-1); if(counted_bars ==0)limit=Bars-Length+Smooth+Signal-1; if(counted_bars < 1) for(int i=1;i<Length+Smooth+Signal;i++) { Bulls[Bars-i]=0; Bears[Bars-i]=0; AvgBulls[Bars-i]=0; AvgBears[Bars-i]=0; SmthBulls[Bars-i]=0; SmthBears[Bars-i]=0; SigBulls[Bars-i]=0; SigBears[Bars-i]=0; } if(counted_bars>0) limit=Bars-counted_bars; limit--; //---- for( shift=limit; shift>=0; shift--) { Price1=iMA(NULL,0,1,0,0,Price,shift); Price2=iMA(NULL,0,1,0,0,Price,shift+1); //---- if (Mode==0) { Bulls[shift]=0.5*(MathAbs(Price1-Price2)+(Price1-Price2)); Bears[shift]=0.5*(MathAbs(Price1-Price2)-(Price1-Price2)); } if (Mode==1) { smax=High[Highest(NULL,0,MODE_HIGH,Length,shift)]; smin=Low[Lowest(NULL,0,MODE_LOW,Length,shift)]; Bulls[shift]=Price1 - smin; Bears[shift]=smax - Price1; } } for( shift=limit; shift>=0; shift--) { AvgBulls[shift]=iMAOnArray(Bulls,0,Length,0,ModeMA,shift); AvgBears[shift]=iMAOnArray(Bears,0,Length,0,ModeMA,shift); } for( shift=limit; shift>=0; shift--) { SmthBulls[shift]=iMAOnArray(AvgBulls,0,Smooth,0,ModeMA,shift); SmthBears[shift]=iMAOnArray(AvgBears,0,Smooth,0,ModeMA,shift); } if(Mode_Histo==1) { for( shift=limit; shift>=0; shift--) { if(SmthBulls[shift]-SmthBears[shift]>0) { SetIndexStyle(0,DRAW_HISTOGRAM,EMPTY,5); SetIndexStyle(1,DRAW_LINE,EMPTY,2); SmthBears[shift]= SmthBears[shift]/Point; SmthBulls[shift]= SmthBulls[shift]/Point; } else { SetIndexStyle(1,DRAW_HISTOGRAM,EMPTY,5); SetIndexStyle(0,DRAW_LINE,EMPTY,2); SmthBears[shift]= SmthBears[shift]/Point; SmthBulls[shift]= SmthBulls[shift]/Point; } } //end for( shift=limit; shift>=0; shift--) } // end if(Mode_Histo == 1) else if(Mode_Histo==2) { for( shift=limit; shift>=0; shift--) { if(SmthBulls[shift]-SmthBears[shift]>0) { SmthBears[shift]=-SmthBears[shift]/Point; SmthBulls[shift]= SmthBulls[shift]/Point; } else { SmthBulls[shift]=-SmthBulls[shift]/Point; SmthBears[shift]= SmthBears[shift]/Point; } } //end for( shift=limit; shift>=0; shift--) } //end if(Mode_Histo == 2) else if(Mode_Histo==3) { for( shift=limit; shift>=0; shift--) { SigBulls[shift]= SmthBulls[shift]; SigBears[shift]= SmthBears[shift]; if(SmthBulls[shift]-SmthBears[shift]>0) SmthBears[shift]=0; else SmthBulls[shift]=0; } //end for( shift=limit; shift>=0; shift--) } //end if(Mode_Histo == 3) else if(Mode_Histo==4) { for( shift=limit; shift>=0; shift--) { if(SmthBulls[shift]-SmthBears[shift]>0) { SigBears[shift]= SmthBears[shift]; SmthBears[shift]=0; } else { SigBulls[shift]= SmthBulls[shift]; SmthBulls[shift]=0; } } //end for( shift=limit; shift>=0; shift--) } //end if(Mode_Histo == 4) //---- return(0); } //+------------------------------------------------------------------+

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196

#property indicator_separate_window
#property indicator_buffers   4
#property indicator_color1    Blue
#property indicator_width1    3
#property indicator_color2    Red
#property indicator_width2    3
#property indicator_color3    DeepSkyBlue
#property indicator_width3    1
#property indicator_color4    Red
#property indicator_width4    1
//---- input parameters
extern int       Mode =0;   // 0-RSI method; 1-Stoch method
extern int       Length= 9; // Period
extern int       Smooth= 1; // Period of smoothing
extern int       Signal= 4; // Period of Signal Line
extern int       Price=0;   // Price mode : 0-Close,1-Open,2-High,3-Low,4-Median,5-Typical,6-Weighted
extern int       ModeMA= 3; // Mode of Moving Average
extern int       Mode_Histo =3;
//---- buffers
double Bulls[];
double Bears[];
double AvgBulls[];
double AvgBears[];
double SmthBulls[];
double SmthBears[];
double SigBulls[];
double SigBears[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
   IndicatorBuffers(8);
   SetIndexStyle(0,DRAW_HISTOGRAM,EMPTY,3);
   SetIndexBuffer(0,SmthBulls);
   SetIndexStyle(1,DRAW_HISTOGRAM,EMPTY,3);
   SetIndexBuffer(1,SmthBears);
   //
   SetIndexStyle(2,DRAW_LINE,EMPTY,1);
   SetIndexBuffer(2,SigBulls);
   SetIndexStyle(3,DRAW_LINE,EMPTY,1);
   SetIndexBuffer(3,SigBears);
   //
   SetIndexBuffer(4,Bulls);
   SetIndexBuffer(5,Bears);
   SetIndexBuffer(6,AvgBulls);
   SetIndexBuffer(7,AvgBears);
//---- name for DataWindow and indicator subwindow label
   string short_name="AbsoluteStrengthHistogram("+Mode+","+Length+","+Smooth+","+Signal+",,"+ModeMA+")";
   IndicatorShortName(short_name);
   SetIndexLabel(0,"Bulls");
   SetIndexLabel(1,"Bears");
   SetIndexLabel(2,"Bulls");
   SetIndexLabel(3,"Bears");
   //
   SetIndexDrawBegin(0,Length+Smooth+Signal);
   SetIndexDrawBegin(1,Length+Smooth+Signal);
   SetIndexDrawBegin(2,Length+Smooth+Signal);
   SetIndexDrawBegin(3,Length+Smooth+Signal);
   //
   SetIndexEmptyValue(0,0.0);
   SetIndexEmptyValue(1,0.0);
   SetIndexEmptyValue(2,0.0);
   SetIndexEmptyValue(3,0.0);
   SetIndexEmptyValue(4,0.0);
   SetIndexEmptyValue(5,0.0);
   SetIndexEmptyValue(6,0.0);
   SetIndexEmptyValue(7,0.0);
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   int      shift, limit, counted_bars=IndicatorCounted();
   double   Price1, Price2, smax, smin;
//----
   if(counted_bars < 0)return(-1);
   if(counted_bars ==0)limit=Bars-Length+Smooth+Signal-1;
   if(counted_bars < 1)
      for(int i=1;i<Length+Smooth+Signal;i++)
        {
         Bulls[Bars-i]=0;
         Bears[Bars-i]=0;
         AvgBulls[Bars-i]=0;
         AvgBears[Bars-i]=0;
         SmthBulls[Bars-i]=0;
         SmthBears[Bars-i]=0;
         SigBulls[Bars-i]=0;
         SigBears[Bars-i]=0;
        }
   if(counted_bars>0) limit=Bars-counted_bars;
   limit--;
//----
   for( shift=limit; shift>=0; shift--)
     {
      Price1=iMA(NULL,0,1,0,0,Price,shift);
      Price2=iMA(NULL,0,1,0,0,Price,shift+1);
//----
      if (Mode==0)
        {
         Bulls[shift]=0.5*(MathAbs(Price1-Price2)+(Price1-Price2));
         Bears[shift]=0.5*(MathAbs(Price1-Price2)-(Price1-Price2));
        }
      if (Mode==1)
        {
         smax=High[Highest(NULL,0,MODE_HIGH,Length,shift)];
         smin=Low[Lowest(NULL,0,MODE_LOW,Length,shift)];
         Bulls[shift]=Price1 - smin;
         Bears[shift]=smax - Price1;
        }
     }
   for( shift=limit; shift>=0; shift--)
     {
      AvgBulls[shift]=iMAOnArray(Bulls,0,Length,0,ModeMA,shift);
      AvgBears[shift]=iMAOnArray(Bears,0,Length,0,ModeMA,shift);
     }
   for( shift=limit; shift>=0; shift--)
     {
      SmthBulls[shift]=iMAOnArray(AvgBulls,0,Smooth,0,ModeMA,shift);
      SmthBears[shift]=iMAOnArray(AvgBears,0,Smooth,0,ModeMA,shift);
     }
   if(Mode_Histo==1)
     {
      for( shift=limit; shift>=0; shift--)
        {
         if(SmthBulls[shift]-SmthBears[shift]>0)
           {
            SetIndexStyle(0,DRAW_HISTOGRAM,EMPTY,5);
            SetIndexStyle(1,DRAW_LINE,EMPTY,2);
            SmthBears[shift]= SmthBears[shift]/Point;
            SmthBulls[shift]= SmthBulls[shift]/Point;
           }
         else
           {
            SetIndexStyle(1,DRAW_HISTOGRAM,EMPTY,5);
            SetIndexStyle(0,DRAW_LINE,EMPTY,2);
            SmthBears[shift]= SmthBears[shift]/Point;
            SmthBulls[shift]= SmthBulls[shift]/Point;
           }
        }  //end for( shift=limit; shift>=0; shift--)
     }     // end if(Mode_Histo == 1)
   else
      if(Mode_Histo==2)
        {
         for( shift=limit; shift>=0; shift--)
           {
            if(SmthBulls[shift]-SmthBears[shift]>0)
              {
               SmthBears[shift]=-SmthBears[shift]/Point;
               SmthBulls[shift]= SmthBulls[shift]/Point;
              }
            else
              {
               SmthBulls[shift]=-SmthBulls[shift]/Point;
               SmthBears[shift]= SmthBears[shift]/Point;
              }
           }  //end for( shift=limit; shift>=0; shift--)
        }     //end if(Mode_Histo == 2)
      else
         if(Mode_Histo==3)
           {
            for( shift=limit; shift>=0; shift--)
              {
               SigBulls[shift]=  SmthBulls[shift];
               SigBears[shift]=  SmthBears[shift];
               if(SmthBulls[shift]-SmthBears[shift]>0)
                  SmthBears[shift]=0;
               else
                  SmthBulls[shift]=0;
              }  //end for( shift=limit; shift>=0; shift--)
           }     //end if(Mode_Histo == 3)
         else
            if(Mode_Histo==4)
              {
               for( shift=limit; shift>=0; shift--)
                 {
                  if(SmthBulls[shift]-SmthBears[shift]>0)
                    {
                     SigBears[shift]=  SmthBears[shift];
                     SmthBears[shift]=0;
                    }
                  else
                    {
                     SigBulls[shift]=  SmthBulls[shift];
                     SmthBulls[shift]=0;
                    }
                 }  //end for( shift=limit; shift>=0; shift--)
              }     //end if(Mode_Histo == 4)
//----
   return(0);
  }
//+------------------------------------------------------------------+

<b>E un esempio di risposta : 

</b>

<b>E un esempio di risposta :

</b>

// Bulls and Bears lines need to be set as histograms

Once period = 9
Once smoothing = 1
Once signalPeriod = 4
Once length = period + smoothing + signalPeriod

avg = Average[length](CustomClose)
previousAvg = avg[1]

bulls = (Abs(avg - previousAvg) + (avg - previousAvg))/2
bears = (Abs(avg - previousAvg) - (avg - previousAvg))/2

avgBulls = Average[period](bulls)
avgBears = Average[period](bears)

smoothBulls = Average[smoothing](avgBulls)
smoothBears = Average[smoothing](avgBears)

sigBulls = smoothBulls
sigBears = smoothBears

If (smoothBulls - smoothBears) > 0 then
   smoothBears = 0
Else
   smoothBulls = 0
Endif

Return smoothBulls coloured (0,200,0) as "Bulls", smoothBears coloured (200,0,0) as "Bears", sigBulls coloured (0,200,0) as "Bulls sig", sigBears coloured (200,0,0) as "Bears sig"

// Bulls and Bears lines need to be set as histograms

Once period = 9

Once smoothing = 1

Once signalPeriod = 4

Once length = period + smoothing + signalPeriod

avg = Average[length](CustomClose)

previousAvg = avg[1]

bulls = (Abs(avg - previousAvg) + (avg - previousAvg))/2

bears = (Abs(avg - previousAvg) - (avg - previousAvg))/2

avgBulls = Average[period](bulls)

avgBears = Average[period](bears)

smoothBulls = Average[smoothing](avgBulls)

smoothBears = Average[smoothing](avgBears)

sigBulls = smoothBulls

sigBears = smoothBears

If (smoothBulls - smoothBears) > 0 then

smoothBears = 0

Else

smoothBulls = 0

Endif

Return smoothBulls coloured (0,200,0) as "Bulls", smoothBears coloured (200,0,0) as "Bears", sigBulls coloured (0,200,0) as "Bulls sig", sigBears coloured (200,0,0) as "Bears sig"

Max

Participant

Topics: 37

Replies: 5

Been thanked: 2 times

Author

Posts

Viewing 1 post (of 1 total)

Find exclusive trading pro-tools on