function xp = BewDglPendel (t , x)
global pl g                    % ... muessen an anderer Stelle definiert sein.
phi    = x(1) ;                % Input-Werte kommen in
omega  = x(2) ;                % einem Vektor an.
phip   = omega ;               % Die beiden Differenzialgleichungen
omegap = -1.5*g/pl*sin(phi) ;  % werden ausgewertet, ...
xp     = [phip ; omegap] ;     % ... die Ergebnisse werden in einem Vektor abgeliefert.