1 files changed, 19 insertions, 0 deletions
diff --git a/29/CH7/EX7.5.2/exa7_5_2.sce b/29/CH7/EX7.5.2/exa7_5_2.sce
new file mode 100755
index 000000000..416906422
--- /dev/null
+++ b/29/CH7/EX7.5.2/exa7_5_2.sce
@@ -0,0 +1,19 @@
+//caption:stability_using_Routh-hurwitz_criterion
+//example 7.5.2
+//page 202
+s=%s;
+A=s^3+4*10^2*s^2+5*10^4*s+2*10^6;
+b=coeff(A)
+n=length(b)
+B=routh_t(A)
+disp(B,"routh table:");
+c=0;
+for(i=1:n)
+  if(B(i,1)<0)
+    c=c+1;
+  end
+end
+if(c>=1)
+  printf("\n system is unstable")
+else("system is stable")
+end
+\ No newline at end of file