Dear Guru,
Can some pls convert the below trade station code to MQL4 for meta trader. Thank.
Ergodic Indicator by William Blau
ergodic indicator - text version
* To: "Joel" <traderjoes@xxxxxxxxxxxxx>
* Subject: ergodic indicator - text version
* From: "Barry Silberman" <Barry@xxxxxxxxxxxxxxxxx>
* Date: Tue, 2 Dec 2003 07:07:30 -0800
* In-reply-to: <xBAY2-F154S68qIiMnwV0001edf2@xxxxxxxxxxx>
Here is the code for the ergodic that is very similar to the one used in Woodie's room.
The fellow with the identification of R7 uses a value of 7, 27, 7. That should be equivalent to the values in my indicator of 7, 27, 1, 7.
Here is the text version for the indicator and three functions that can be cut and pasted:
Regards,
Barry Silberman
Type: Function, Name: TXAverage
{TXAverage function
FORMAT: TXAverage(Price,r,s,u) }
Inputs: Price(NumericSeries), r(NumericSimple),s(NumericSimple),
u(NumericSimple);
TXAverage = XAverage(XAverage(XAverage(Price,r),s),u) ;
Type: Function, Name: TSI
{TSI function = True Strength Index by Bill Blau}
{FORMAT: TSI(Price,r,s,u)
Where: r = length of first EMA smoothing of 1 day momentum,
s = length of second EMA smoothing of 1 day smooting,
u = length of third EMA smooting of 1 daymomentum.}
Inputs:
Price(NumericSeries), r(NumericSimple), s(NumericSimple),
u(NumericSimple);
Value1= 100*TXAverage(Price-Price[1],r,s,u) ; { Numerator }
Value2=TXAverage(AbsValue(Price-Price[1]),r,s,u) ; { Denominator }
If Value2 <> 0 then TSI = Value1 / Value2
Else TSI = 0;
Type: Indicator, Name: Ergodic Indicator
{Ergodic Indicator:}
{from William Blau's book --- "Momentum, Direction and Divergence"
FORMAT: Ergodic_TSI(Price, r, s, u,, SmthLen)
where r = length of first EMA smoothing of 1 day momentum,
s = length of second EMA smoothing of 1 day smooting,
u = length of third EMA smooting of 1 daymomentum,
SmthLen = length of ema signal line.
This is plotting the Average only (value2)}
Inputs: Price(c), r(7), s(27), u(1), Zeroline(0), SmthLen(7),
upcolor_1(green), downcolor_1(red), dotsize(2);
Value1= TSI(Price, r, s, u);
Value2= XAverage(TSI(Price, r, s, u), SmthLen);
If value2 > value2[1] then
Plot3(Value2, "SigLin", upcolor_1, default, dotsize);
If value2 < value2[1] then
Plot3(Value2, "SigLin", downcolor_1, default, dotsize);
