function vtb5_2(k,Y,r,TR)%VTB5_2 Base excitation force transmissibility for a SDOF system. % VTB5_2(k,Y,r,TR) returns the force transmitted through the base% to a SDOF system.  The input variables are:%               %        k:  stiffness (N/m)%        Y:  amplitude of base vibration (m)%        r:  ratio of driving frequency to system frequency%        TR: Transmissibility ratioFt=k*Y*r^2*TR;disp(['The transmitted force is ',num2str(Ft),' newtons.'])