initial commit / add all books

1 files changed, 17 insertions, 0 deletions

diff --git a/1151/CH6/EX6.1/example1.sce b/1151/CH6/EX6.1/example1.sce
new file mode 100755
index 000000000..de96b9368
--- /dev/null
+++ b/1151/CH6/EX6.1/example1.sce
@@ -0,0 +1,17 @@
+s=%s;

+m=s^4+2*s^3+6*s^2+4*s +1;

+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