summaryrefslogtreecommitdiff
path: root/29/CH12/EX12.50/exa12_50.sce
blob: 2703a28eb5ef2af9be7a8dcdc41e7a8315b45506 (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
//caption:root_locus_and_close_loop_transfer_function
//example 12.50
//page 578
s=%s
K=8
G=K/(s*(s+4))
H=1;
GH=G*H
G=syslin('c',G)
evans(G,8)
xgrid(2)
CH=s*(s+4)+K
disp('=0',CH,"characterstics_eq,CH=")
r=roots(CH)
disp(r,"the point at which K=8")
cl=G/(1+GH)
disp(cl,"C(s)/R(s)=")



disp("part b")
g=K/(s+4)
h=1/s
gh=g*h
CL=g/(1+gh)
disp(CL,"C(s)/R(s)=")