diff options
Diffstat (limited to '29/CH11/EX11.21.a/exa11_21_a.sce')
| -rwxr-xr-x | 29/CH11/EX11.21.a/exa11_21_a.sce | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/29/CH11/EX11.21.a/exa11_21_a.sce b/29/CH11/EX11.21.a/exa11_21_a.sce new file mode 100755 index 000000000..8d455ff5a --- /dev/null +++ b/29/CH11/EX11.21.a/exa11_21_a.sce @@ -0,0 +1,17 @@ +//Caption:roots_of_characterstics_equation
+//example 11_21_a
+//page 491
+s=%s;
+num=210
+den=sym('s*(s+2)*(s^2+12*s+6)');
+G=num/den;
+G=simple(G);
+H=1;
+n1=poly([210],'s',"coeff");
+d1=poly([210 192 390 44 1],'s',"coeff");
+CL=syslin('c',n1,d1)
+disp(CL,"C(s)/R(s)=")
+b=denom(CL)
+disp(0,"=",b,"the char. eq is:",)
+r=roots(b);
+disp(r,"roots of char. eq. are=");
|