summaryrefslogtreecommitdiff
path: root/257/CH3/EX3.6/example_3_6.sce
blob: b51fe0f5b9e5cd97dc7f6b569be7bd34ae585edb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
s=%s;
TF=syslin('c',(k*(s+6))/(s*(s+2)*(s+5)*(s^2+7*s+12)));
disp(TF,"T(s)=")

x=denom(TF);
disp(x,"Characteristics equation=")

y=roots(x);
disp(y,"Poles of a system=")

disp("zeroes of the system is -6")

//pole zero plot 

p=poly([6 1],'s',"coeff")
q=poly([0 120 154 71 14 1],'s',"coeff")    //expanding the denominator
V=syslin('c',p,q)
plzr(V)