summaryrefslogtreecommitdiff
path: root/773/CH10/EX10.13/10_13.sci
blob: 1e8a76aa7af3c1b74fe3a76a0073690d64511afe (plain)
1
2
3
4
5
6
7
8
9
//equation//
ieee(2);
s=%s;
m=2*s^4+(4*s^2)+1
routh=routh_t(m)    //Generates the Routh Table
roots(m)            //Gives the Roots of the Polynomial(m)
disp(0,"the number of roots lying in the left half plane of s-plane=")
disp(0,"the number of roots lying in the right half plane of s-plane=")
disp(4,"the number of roots lying on the imaginary axis=")