% rundmposcpar.m Skript zur Berechnung und zum
% Display eines gedaempften Oszillators
% mit globalen Parametern EFREQ und OSCDAMP
yin = [10 0]';  global EFREQ;  global OSCDAMP
%EFREQ = 1.2;   %OSCDAMP = 0.05;
[tsol, ysol] = ode45('dmposcpar', 50 , yin);
clf;  plot(tsol,ysol(:,1))
