summaryrefslogtreecommitdiff
path: root/257/CH7/EX7.19/example_7_19.sce
blob: 3c923811e50f01fdfe4a37983e48ef34bc471d0c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
q=poly([0 20 1],'s','coeff');
G=400/q //gain FACTOR=k
H=1
T=G/(1+G*H) 

omegaN=sqrt(400)
zeta=20/(2*omegaN)
disp(omegaN,"omegaN = ")
disp(zeta,"zeta = ")
omegaD=omegaN*sqrt(1-zeta^2)
theta= atan(sqrt(1-zeta^2)/zeta)
disp(theta,"theta = ")

syms s t
c=(1-(%e^(-zeta*omegaN*t))/sqrt(1-zeta^2)*sin(omegaD*t+theta))
disp(c, " c = ")

Kv=limit(s*G*H,s,0)
disp(Kv, " Kv = ")
Ess=1/Kv
disp(Ess, " Ess = ")