Working_Examples/154/CH9/EX9.11/ch9_11.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

clc
disp("Example 9.11")
printf("\n")

//From figure 9.16
//H(s)=V(s)/I(s)=Z(s)
//Let V(s)=1 the H(s)=Z(s)
s=%s
z1=(1/2.5)+(3/(5*s))+(s/20)
Z=1/z1
Dem=Z('den')
//The roots are
q=roots(Dem)
disp(q,"Poles are")