UnderDamped Free SDOF System
Show older comments
%%%%%%%%%%%%%%%% Equation of Motion: Damped SDOF System %%%%%%%%%%%%%%%%%%%
%%%%%% Example Problem - 2.5 (Dynamics of Structures - Ashok K.Jain) %%%%%%
clc;
clear all;
close all;
%% INPUTs:
m = 5*10^3; % Lumped Mass (kg)
k = 10^5; % Stiffness (N/m)
c = 0.05; % Damping Coefficient
x0 = 0.02; % Initial Displacement (in m)
v0 = 0.05; % Initial Velocity (in m/s)
%% OUTPUTs:
z = c/m;
wn = sqrt(k/m) % Natural Circular Frequency (rad/s)
f = wn/(2*pi()) % Natural Cyclic Frequency (Hertz-Hz)
T = 1/f % Fundamental Time-Period (sec)
Z = c/(2*m*wn) % Damping Ratio
wd = wn*(sqrt(1-Z^2)) % Damped Frequency
A = sqrt((x0^2) + (v0/wn)^2) % Amplitude (m)
vm = A*wn % Maximum Velocity (m/s)
am = vm*wn % Maximum Acceleration (m/s/s)
Phi = atand(x0*wn/v0) % Phase Angle (in degree)
p = [1 z wn^2];
roots(p)
syms X(t)
E = diff(X,t,2) + diff(X,t)*z + (wn^2)*X == 0;
x = dsolve(vpa(E)) % C1 & C2 are constant and can be determined by BCs
dX = diff(X,t);
conds =[X(0)==x0,dX(0)==v0];
x = dsolve(vpa(E),conds)
xD = rad2deg(x)
%% Plots:
fplot(xD,[0 5],'k','LineWidth',1.25);
xlabel('displacment (in m)');
ylabel('time (t)');
title('Displacement Response Curve');
Problem-1: The graph obtained through this code is looks similar to undamped system, while this is a code of undamped system and has to degrad with each cycle?
Accepted Answer
More Answers (0)
Categories
Find more on Vibration Analysis in Help Center and File Exchange
Community Treasure Hunt
Find the treasures in MATLAB Central and discover how the community can help you!
Start Hunting!
