function [xt,vt,at] = SDOF_VL(t,wn,xo,vo)
% Resolucion de la ecuacion para vibracion libre sin amortiguamiento
%   Los datos requeridos son: [xt,vt,at] = SDOF_VL(t,wn,xo,vo)
%   [t] → intervalo de tiempo
%   wn → frecuencia natural del sistema
%   xo → desplazamiento inicial
%   vo → velocidad inicial

xt = (xo)*(cos(wn*t))+(vo/wn)*(sin(wn*t));
vt = (-wn*xo)*(sin(wn*t))+(vo)*(cos(wn*t));
at = (wn^2*xo)*(cos(wn*t))-(vo*wn)*(sin(wn*t));
end