summaryrefslogtreecommitdiff
path: root/2708/CH6/EX6.8/ex_6_8.sce
blob: 97d243dcabd352c1a983225ecfc494b4bcb4eb2e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Example 6.8 
clc;
clear;
//part a :
Ao=.1;// amplitude at minimum frequency in mm
A=100;//maximum amplitude
Q=A/Ao;//quality factor
disp(Q,"Quality factor")
//part b
w=100;//resonance frequency in rad/sec
T=Q/w;//energy decay time
disp(T,"energy decay time in sec")
//part c
hw=1/(2*T);// half width of power resonance curve
disp(hw,"half width of power resonance curve in rad/sec")