1 files changed, 11 insertions, 0 deletions
diff --git a/257/CH8/EX8.5/example_8_5.sce b/257/CH8/EX8.5/example_8_5.sce
new file mode 100644
index 000000000..f3503b097
--- /dev/null
+++ b/257/CH8/EX8.5/example_8_5.sce
@@ -0,0 +1,11 @@
+s=%s;
+F=s^6+4*s^5+3*s^4-16*s^2-64*s-48;
+//replace 's' by '1/z'//
+//F=48*z^6+64*z^5+16*z^4-3*z^2-4*z-1;
+disp(routh_t(F))
+routh=routh_t(F)
+r=coeff(F)
+n=length(r)
+c=0;
+
+disp("positive real=1, zero real part=2, negative real part=3")