function xdot= tennisip(t,x,flag)
global g
xdot = [ x(3)
         x(4)
         0
         -g   ];

