{Corrected Average (CA), A.Uhl, Oct. 25, 2005}

vars: 
CA(0),SA(0),n(0),
v1(0),v2(0),v3(0),
e(0),tol(0),Kold(0),K(0);

inputs: 
Price(Close),length(35);

tol=Power(10,-5);

if CurrentBar=1 then
CA=Price
else 
begin

if CurrentBar<length then
n=CurrentBar
else
n=length;

SA=Average(Price,n);
v1=Square(StdDev(Price,n));
v2=Square(CA[1]-SA);
v3=iff(v1=0 OR v2=0,1,v2/(v1+v2));	
	
{calculate current gain factor K}
e=1; 
Kold=1;
while e>tol begin
	K=v3*Kold*(2-Kold);
	e=Kold-K;
	Kold=K;
end;	
CA=CA[1]+K*(SA-CA[1]);
end;

Plot1(CA,"Corrected Average",Red,White,3);
Plot2(SA,"Simple Average",Blue,White,1);