Type : Indicator, Name : Kaufman Smoothing Constant Part of the Graile
inputs:Period(10),Price(C),Z1(.10),Z2(.20),Z3(.30);
vars: noise(0),signal(0),difference(0),efratio(0),
smooth(1),fastend(.666),slowend(.0645),AMA(0);
{CALCULATE EFFICIENCY RATIO}
difference = @AbsValue(price – price[1]);
if(currentbar <= period) then AMA = price;
if(currentbar > period)then begin
signal = @AbsValue(price – price[period]);
noise = @summation(difference,period);
efratio = signal/noise;
smooth = @Power(efratio*(fastend – slowend) + slowend,2);
plot1(smooth,”AMAsmooth”);
end;
plot2(Z1,”Z1″);
plot3(Z2,”Z2″);
plot4(Z3,”Z3″);
