UnderDamped Free SDOF System
Afficher commentaires plus anciens
%%%%%%%%%%%%%%%% 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?
Réponse acceptée
Plus de réponses (0)
Catégories
En savoir plus sur Vibration Analysis dans Centre d'aide et File Exchange
Community Treasure Hunt
Find the treasures in MATLAB Central and discover how the community can help you!
Start Hunting!

