% deriv = pottopfbahn(t,yac)  Bewegung von
%   Teilchen im parabolischen Potentialtopf
function deriv = pottopfbahn(t,yac)
C = 0.4; g=9.81; r2 = yac(1)^2+yac(3)^2;
deriv = zeros(4,1);
deriv(1) = yac(2); 
deriv(2) =  -g*C*yac(1)/(1+C^2*r2) ;
deriv(3) = yac(4); 
deriv(4) =  -g*C*yac(3)/(1+C^2*r2) ;
