    function yp=examp(t,y)
% yp=examp(t,y)
% 
% Function to compute derivatives of ode
% y'=v
% v'=-v -sin(ty)
%

    yp=zeros(size(y));
    yp(1)= y(2);
    yp(2)= y(2)-sin(t*y(1));
