function M = IAN_bouncer(y0,v0,a0,delt,max_time,p)
%

y = y0;
a = a0;
v = v0;
clf
plot(0,0,'.k',20,20,'k.',10,y,'ro');
count = 0;

for t = 0:delt:max_time
    count = count + 1;
    v = v + a*delt;
    y = max(0,y + v*delt);
    if y==0
        v = -v*(p);
    end
    plot(0,0,'k.',10,y,'ro',20,20,'k.');
    M(count) = getframe;
end
