1 files changed, 17 insertions, 0 deletions
diff --git a/1151/CH6/EX6.3/example3.sce b/1151/CH6/EX6.3/example3.sce
new file mode 100755
index 000000000..80a4e32da
--- /dev/null
+++ b/1151/CH6/EX6.3/example3.sce
@@ -0,0 +1,17 @@
+s=%s;
+m=1+2*s+5*s^2+5*s^3+2*s^4;
+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 (" sys t em  i s  u n s t a b l e ")
+else printf (" sys t em  i s  s t a b l e ")
+end