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″);
