% Seite 500: Nichtlineares Anfangswertproblem

function xPunkt = S500_Dgl (t , x)

% Parameter:
R  = 1    ; 
mu = 0.05 ;
g  = 9.81 ;

% Berechnung der Ableitungen 
%(als Matrix xPunkt = [x(1)Punkt ; x(2)Punkt] mit x(1)=phi und x(2)=omega):
xPunkt = [x(2) ; g/R * cos(x(1)) - mu * (x(2)^2 + g/R * sin(x(1))) * sign(x(2))] ;

