1 files changed, 17 insertions, 0 deletions
diff --git a/1151/CH6/EX6.17/example17.sce b/1151/CH6/EX6.17/example17.sce
new file mode 100755
index 000000000..ce50f5449
--- /dev/null
+++ b/1151/CH6/EX6.17/example17.sce
@@ -0,0 +1,17 @@
+s=%s;
+m=s^4+2*s^3+8*s^2+4*s +3;
+disp (m)
+r= coeff (m)
+n= length (r)
+routh = routh_t (m) // Thi s Func t ion g e n e r a t e s the Routht a b l e
+disp (routh ," r o u t h s t a b u l a t i o n=")
+c =0;
+for i =1: n
+if ( routh (i ,1) <0)
+c=c+1;
+end
+end
+if(c >=1)
+printf (" system is unstable ")
+else printf (" system is stable ")
+end