Inputs: haDeltaPeriod(3);

var: 	double haOpen(0),
		double haClose(0),
		double haOldOpen(0),
		double haOldClose(0);

array: haDelta[](0);

Once Cleardebug;
Array_setmaxindex(haDelta, currentbar);
If Currentbar = 1 then 
	begin
		haOpen = (O + C)/2;
		haClose = (O + C + H + L)/4; 
		haOldOpen = haOpen;
		haOldClose= haClose;
		haDelta[currentbar] = haClose-haOpen;
		//Print(haOpen:7:5, "   ", haClose:7:5);
	end	
Else
	Begin
		haOpen = (haOldClose + haOldOpen)/2;
		haClose = (O + C + H + L)/4; 
		haOldOpen = haOpen;
		haOldClose= haClose;
		haDelta[currentbar] = haClose-haOpen;		
	End;
Plot1(haDelta[currentbar]);	
if Currentbar >= haDeltaPeriod then
	Begin
		Value2 = 0;
		//Print("Data = ", ELDateToString(D), "   Time = ", timetostring(Eltimetodatetime(T))); 
		For Value1 = 0 to haDeltaPeriod -1 
			begin	
				//Print(haDelta[Currentbar - Value1]:7:5);
				Value2 = Value2 + haDelta[Currentbar - Value1];
			end;
		//Print();
		Value2 = Value2/haDeltaPeriod;		
		Plot2(Value2, "" , Green);
	end;