Trade Station EL Code for One AMA

[UrmaBlume 10]

Below is the EL Code for an EL user function that will calculate a slightly better AMA but still not as good as the JMA from Jurik.

 

The first bit of code is for the function itself and the second is for a indicator that will plot 2 smoothed lines of the mid point of the price bar.

 

the User Function:

Inputs: Price( NumericSeries ), Length( NumericSimple );

 

CSmoothX = XAverage( 2 * XAverage( Price, Length / 2 ) - XAverage( Price, Length ), SquareRoot( Length ) );

 

The 2 Line indicator, this is the code that calls the function and plots the 2 smoothed lines of the mid point of the bar:

Inputs: FastCSmoothXL(3), SlowCSmoothXL(6);

 

Vars: FastCSmoothX(0), SlowCSmoothX(0), PriceMP(0);

 

PriceMP = (H + L) * .5;

 

FastCSmoothX = CSmoothX(PriceMP, FastCSmoothXL);

 

SlowCSmoothX = CSmoothX(PriceMP, SlowCSmoothXL);

 

If FastCSmoothX >= SlowCSmoothX then

Begin

Plot1(FastCSmoothX, "Fast", Blue);

Plot2(SlowCSmoothX, "Slow", Blue);

End;

 

 

If FastCSmoothX < SlowCSmoothX then

Begin

Plot1(FastCSmoothX, "Fast", Red);

Plot2(SlowCSmoothX, "Slow", Red);

End;