% deriv = dmposcpar(t,yac) Ableitung gedaempfter Oszillator
% EFREQ  und OSCDAMP ausserhalb vordefinieren   
function deriv = dmposcpar(t,yac)
global EFREQ ; global OSCDAMP
w = EFREQ;  d = OSCDAMP;
deriv = zeros(2,1);
deriv(1) = yac(2);
deriv(2) = -d*yac(2) -w*w*yac(1) ;
