summaryrefslogtreecommitdiff
path: root/29/CH6/EX6.10.11/exa6_10_11.sce
blob: d3c82c930710ba4e26cb10b7d968d6c4f5673b03 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
//caption:determine_characterstics_eq_and_steady_state_error
//example 6.10.11
//page 181
//J=moment of inertia,f=C,K=controller gain,Wn=natural frequency, zeta=damping ratio
syms f J K Kt
s=%s;
A=sym((1/(J*s^2+f*s)));
J=250;
K=8*10^4;
B=eval(A)
a=(K*B);
H1=s*Kt;
b=(1+a*H1);
b=simple(b);
CL1=a/b;
CL1=simple(CL1);
H=1;
c=1+CL1*H;
c=simple(c);
CL=CL1/c
CL=simple(CL);
disp(CL,"C(s)/R(s)=");
Wn=sqrt(80000/250)//natural frequency
//2*zeta*Wn=(80000*Kt+f)/250
zeta=1;//for critical damping
d=2*zeta*Wn;
v=[320 d 1];
CH=poly(v,'s','coeff');
r=float(5*2*%pi/60);
//steady state error for unit ramp input is:Ess= (2*zeta/Wn)
Ess=(2*zeta/Wn)*r;
disp(Ess,"steady_state_error=");