summaryrefslogtreecommitdiff
path: root/2708/CH6/EX6.7/ex_6_7.sce
blob: ed95eeb351d23e5311145dad8454783726de4e48 (plain)
1
2
3
4
5
6
7
8
9
10
11
//Example 6.7 // Equilibrium position time 
clc;
clear;
//given data :
r=exp(2);//ratio of amplitude
Q=2D3;//quality factor
v=240;// frequency of fork in cycles/s
w=2*%pi*v;//angular frequency in rad/sec
T=Q/w;// relaxation time in sec
t=2*T*log(r);//time for ne amplitude
disp(t,"time to become for new amplitude in sec")