function [xt] = SDOF_IncreF(t,m,k,Po,tr)
% Resolucion de la ecuacion para vibracion forzada para una carga
% incrementales sin amortiguamiento
%   Los datos requeridos son: xt] = SDOF_IncreF(t,m,k,Po,tr)
%   [t] → intervalo de tiempo
%   m → masa del sistema
%   k → rigidez del sistema
%   xt → respuesta de desplazamiento en el tiempo sin amortiguamiento
%   tr → tiempo de aplicacion de la carga

wn = (k/m)^0.5;

xt = (Po/k)*((t/tr)-((sin(wn*t))/(wn*tr)));

end