/*[[
	Name := 2Extreme4U - Sling Shot Histogram
	Author := Copyright © 2005, www.omniscienttrader.com
	Separate Window := Yes
	First Color := Green
	First Draw Type := Histogram
	First Symbol := 217
	Use Second Data := Yes
	Second Color := Red
	Second Draw Type := Histogram
	Second Symbol := 217
]]*/
Input:  MaxBars(2000), MomPeriod(13), MomLowPeriod(7);

Var: shift(0), I(0), mb(0);
Var: MomValue(0), MomValue2(0);

SetLoopCount(0);
mb = min(bars - 1, MaxBars);
// loop from first bar to current bar (with shift=0)
For shift = mb Downto 0
Begin
	MomValue = iMomEx(MomPeriod, PRICE_CLOSE, shift) - 100;
	MomValue2 = iMomEx(MomLowPeriod, PRICE_LOW, shift) - 100;
	SetIndexValue(shift, MomValue);
	SetIndexValue2(shift, MomValue2);
End;