summaryrefslogtreecommitdiff
path: root/773/CH10/EX10.16/10_16.sci
diff options
context:
space:
mode:
Diffstat (limited to '773/CH10/EX10.16/10_16.sci')
-rwxr-xr-x773/CH10/EX10.16/10_16.sci18
1 files changed, 18 insertions, 0 deletions
diff --git a/773/CH10/EX10.16/10_16.sci b/773/CH10/EX10.16/10_16.sci
new file mode 100755
index 000000000..23304aac7
--- /dev/null
+++ b/773/CH10/EX10.16/10_16.sci
@@ -0,0 +1,18 @@
+//equation//
+ieee(2)
+s=%s;
+m=s^6+2*s^5+7*s^4+10*s^3+14*s^2+8*s+8
+routh=routh_t(m);
+disp(routh,"routh=")
+ c=0;
+ for i=1:n
+ if (routh(i,1)<0)
+ c=c+1;
+ end
+ end
+ if(c>=1)
+ printf("system is unstable")
+ else ("system is stable")
+ end
+
+