summaryrefslogtreecommitdiff
path: root/269/CH10
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /269/CH10
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '269/CH10')
-rw-r--r--269/CH10/EX10.13/ex1.sce19
-rw-r--r--269/CH10/EX10.14/ex14a.sce5
-rw-r--r--269/CH10/EX10.15/ex15.sce6
-rw-r--r--269/CH10/EX10.16/ex16.sce4
-rw-r--r--269/CH10/EX10.17/ex17.sce7
-rw-r--r--269/CH10/EX10.18/ex18.sce11
-rw-r--r--269/CH10/EX10.19/ex19.sce10
7 files changed, 62 insertions, 0 deletions
diff --git a/269/CH10/EX10.13/ex1.sce b/269/CH10/EX10.13/ex1.sce
new file mode 100644
index 000000000..bfaee392e
--- /dev/null
+++ b/269/CH10/EX10.13/ex1.sce
@@ -0,0 +1,19 @@
+Syms t
+s=%s
+H=5
+disp('given')
+disp('H=5')
+disp('poles are -1 and -3')
+disp('The transfer function is ')
+disp('5s/(s+1)(s+3)')
+sysl=syslin('c',5*s/(s+1)*(s+3))
+evans(sysl,100)
+[h]=trfmod(sysl,0)
+//referring the root locus graph
+x=1*imag(exp(-180))
+y=2*imag(exp(-0))
+k1=H*(x/y)
+k2=H*(y/x)
+disp('The current therefore is')
+i=k1*exp(-t)+k2*exp(-3*t)
+disp(i)
diff --git a/269/CH10/EX10.14/ex14a.sce b/269/CH10/EX10.14/ex14a.sce
new file mode 100644
index 000000000..9701b2ca4
--- /dev/null
+++ b/269/CH10/EX10.14/ex14a.sce
@@ -0,0 +1,5 @@
+s=%s
+p=s^4+10*s^3+35*s^2+50*s+24
+h=routh_t(p)
+disp(h)
+disp('from the table the system is stable') \ No newline at end of file
diff --git a/269/CH10/EX10.15/ex15.sce b/269/CH10/EX10.15/ex15.sce
new file mode 100644
index 000000000..70aa07d10
--- /dev/null
+++ b/269/CH10/EX10.15/ex15.sce
@@ -0,0 +1,6 @@
+s=%s
+p=s^3+2*s^2+2*s+40
+h=routh_t(p)
+disp(h)
+disp("from the table there is a sign change ")
+disp("from 2 to -18 and -18 t0 40 and hence system is not stable ") \ No newline at end of file
diff --git a/269/CH10/EX10.16/ex16.sce b/269/CH10/EX10.16/ex16.sce
new file mode 100644
index 000000000..af081d933
--- /dev/null
+++ b/269/CH10/EX10.16/ex16.sce
@@ -0,0 +1,4 @@
+s=%s
+p=3*s^3+2*s^2+1*s+5
+h=routh_t(p)
+disp(h)
diff --git a/269/CH10/EX10.17/ex17.sce b/269/CH10/EX10.17/ex17.sce
new file mode 100644
index 000000000..276b32e4d
--- /dev/null
+++ b/269/CH10/EX10.17/ex17.sce
@@ -0,0 +1,7 @@
+s=%s
+p=s^4+s^3+2*s^2+2*s+3
+h=routh_t(p)
+disp(h)
+disp("The element of 1st column 7th row is zero.......its replaced by epsilon(very small quantity)")
+disp("for epsilon<0 seventh element is negative of the 1st column giving 2 sign change implying two positive roots (real) ")
+disp("for epsilon>0 tenth element is zero giving same conclusion") \ No newline at end of file
diff --git a/269/CH10/EX10.18/ex18.sce b/269/CH10/EX10.18/ex18.sce
new file mode 100644
index 000000000..328715881
--- /dev/null
+++ b/269/CH10/EX10.18/ex18.sce
@@ -0,0 +1,11 @@
+s=%s
+p=s^3+2*s^2+2*s+4
+h=routh_t(p)
+disp(h)
+disp("constant term 4 causes the system to be unstable")
+disp("so the polynomial formed is")
+disp("2*s^2+4")
+disp("applyin RH on this polynomial")
+q=s^2+2
+r=routh_t(q)
+disp(r)
diff --git a/269/CH10/EX10.19/ex19.sce b/269/CH10/EX10.19/ex19.sce
new file mode 100644
index 000000000..8eda7a4b6
--- /dev/null
+++ b/269/CH10/EX10.19/ex19.sce
@@ -0,0 +1,10 @@
+s=%s
+p=s^6+5*s^5+11*s^4+25*s^3+36*s^2+30*s+36
+h=routh_t(p)
+disp(h)
+disp("the polynomial obtained is")
+disp("6s^4+30s^2+36")
+disp("applyin RH on this polynomial")
+q=s^2+5*s+6
+r=routh_t(q)
+disp(r) \ No newline at end of file