summaryrefslogtreecommitdiff
path: root/104/CH6/EX6.3/6_3.sce
blob: b67114f2ba25a6df6c702859f7b08d344905e178 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//rouths tabulations to determine stability
s=%s;
m=2*s^4+s^3+3*s^2+5*s+10;
disp(m)
r=coeff(m)
n=length(r)
routh=routh_t(m) //This Function generates the Routh table
disp(routh,"rouths tabulation=")
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