% Gleitstein_b
% Ableitungsberechnung des Gleitsteines

function xpunkt = xpunkt_Gleitstein(t,x)

% Gegeben
A = 1;             % A = c * a / (m * g)
B = 4;             % B = b / a
C = 9.81;          % C = g / a    in 1/s²

% Berechnung von xpunkt
xpunkt = [x(2); C * (1 - A * (sqrt(1 + x(1)^2) - B) * x(1) / sqrt(1 + x(1)^2))]; 