initial commit / add all books

11 files changed, 96 insertions, 0 deletions

diff --git a/1151/CH7/EX7.1/example_1.sce b/1151/CH7/EX7.1/example_1.sce
new file mode 100755
index 000000000..64ed703a1
--- /dev/null
+++ b/1151/CH7/EX7.1/example_1.sce
@@ -0,0 +1,8 @@
+s=poly(0,'s')

+h=syslin('c',(1/(s*(1+s))));//assume T=1

+clf();    nyquist(h)

+// add a datatip

+ax=gca();

+h_h=ax.children($).children(2);//handle on Nyquist curve of h

+tip=datatipCreate(h_h,[1.331,0.684]);

+datatipSetOrientation(tip,"upper left");

diff --git a/1151/CH7/EX7.10/example_10.sce b/1151/CH7/EX7.10/example_10.sce
new file mode 100755
index 000000000..ebc3b871a
--- /dev/null
+++ b/1151/CH7/EX7.10/example_10.sce
@@ -0,0 +1,8 @@
+s=%s;

+num=60;

+den=(s+1)*(s+2)*(s+5);

+ansys=syslin('c',(num/den));

+nyquist(ansys,-1,1000);

+printf("No pole on the right half plane i.e.:\n P=0");

+printf(" N=0\n Z=0");

+disp("hence the system is stable")

diff --git a/1151/CH7/EX7.11/example_11.sce b/1151/CH7/EX7.11/example_11.sce
new file mode 100755
index 000000000..ce8ba4faa
--- /dev/null
+++ b/1151/CH7/EX7.11/example_11.sce
@@ -0,0 +1,5 @@
+s=%s;

+num=1;

+den=s*(s+2)*(s+10);

+ansys=syslin('c',(num/den));

+nyquist(ansys,-1,1000);

diff --git a/1151/CH7/EX7.2/example_2.sce b/1151/CH7/EX7.2/example_2.sce
new file mode 100755
index 000000000..742b9f5f3
--- /dev/null
+++ b/1151/CH7/EX7.2/example_2.sce
@@ -0,0 +1,8 @@
+s=poly(0,'s')//lets assume T1=1 nad T2=2 and we have considered unity feedback system

+h=syslin('c',1/(s^2+3*s+1));

+clf();    nyquist(h)

+// add a datatip

+ax=gca();

+h_h=ax.children($).children(2);//handle on Nyquist curve of h

+tip=datatipCreate(h_h,[1.331,0.684]);

+datatipSetOrientation(tip,"upper left");

diff --git a/1151/CH7/EX7.3/example_3.sce b/1151/CH7/EX7.3/example_3.sce
new file mode 100755
index 000000000..85b9cbbb8
--- /dev/null
+++ b/1151/CH7/EX7.3/example_3.sce
@@ -0,0 +1,8 @@
+s=poly(0,'s')

+h=syslin('c',1/(s^2)/(1+s));

+clf();    nyquist(h)

+// add a datatip

+ax=gca();

+h_h=ax.children($).children(2);//handle on Nyquist curve of h

+tip=datatipCreate(h_h,[1.331,0.684]);

+datatipSetOrientation(tip,"upper left");

diff --git a/1151/CH7/EX7.4/example_4.sce b/1151/CH7/EX7.4/example_4.sce
new file mode 100755
index 000000000..08913799c
--- /dev/null
+++ b/1151/CH7/EX7.4/example_4.sce
@@ -0,0 +1,8 @@
+s=poly(0,'s')

+h=syslin('c',1/(2*s^3+3*s^2+s));

+clf();    nyquist(h)

+// add a datatip

+ax=gca();

+h_h=ax.children($).children(2);//handle on Nyquist curve of h

+tip=datatipCreate(h_h,[1.331,0.684]);

+datatipSetOrientation(tip,"upper left");

diff --git a/1151/CH7/EX7.5/example_5.sce b/1151/CH7/EX7.5/example_5.sce
new file mode 100755
index 000000000..61c1b4bb2
--- /dev/null
+++ b/1151/CH7/EX7.5/example_5.sce
@@ -0,0 +1,10 @@
+s=poly(0,'s')

+a=(s+1)*(s+2)*(s+1.5);//denominator of transfer function

+h=syslin('c',1/a);//here G(s)H(s)is represented by h

+

+clf();    nyquist(h)

+// add a datatip

+ax=gca();

+h_h=ax.children($).children(2);//handle on Nyquist curve of h

+tip=datatipCreate(h_h,[1.331,0.684]);

+datatipSetOrientation(tip,"upper left");

diff --git a/1151/CH7/EX7.6/example_6.sce b/1151/CH7/EX7.6/example_6.sce
new file mode 100755
index 000000000..2bec3798e
--- /dev/null
+++ b/1151/CH7/EX7.6/example_6.sce
@@ -0,0 +1,12 @@
+s=poly(0,'s')

+a=(1+4*s);

+b=s^2*(1+s)*(1+2*s);

+d=a/b;

+h=syslin('c',d);

+clf();   

+nyquist(h)

+// add a datatip

+ax=gca();

+h_h=ax.children($).children(2);//handle on Nyquist curve of h

+tip=datatipCreate(h_h,[1.331,0.684]);

+datatipSetOrientation(tip,"upper left");

diff --git a/1151/CH7/EX7.7/example_7.sce b/1151/CH7/EX7.7/example_7.sce
new file mode 100755
index 000000000..a334bc29a
--- /dev/null
+++ b/1151/CH7/EX7.7/example_7.sce
@@ -0,0 +1,8 @@
+s=poly(0,'s')

+h=syslin('c',1/(s*(1+2*s)*(1+s)));

+clf();    nyquist(h)

+// add a datatip

+ax=gca();

+h_h=ax.children($).children(2);//handle on Nyquist curve of h

+tip=datatipCreate(h_h,[1.331,0.684]);

+datatipSetOrientation(tip,"upper left");

diff --git a/1151/CH7/EX7.8/example_8.sce b/1151/CH7/EX7.8/example_8.sce
new file mode 100755
index 000000000..d145a3358
--- /dev/null
+++ b/1151/CH7/EX7.8/example_8.sce
@@ -0,0 +1,10 @@
+s=poly(0,'s')

+h=syslin('c',1/((s+1)*(s+2)*(s+3)));

+clf();    nyquist(h)

+// add a datatip

+ax=gca();

+h_h=ax.children($).children(2);//handle on Nyquist curve of h

+tip=datatipCreate(h_h,[1.331,0.684]);

+datatipSetOrientation(tip,"upper left");

+k=kpure(h)

+disp(k,"the system is stable for0 <k<");

diff --git a/1151/CH7/EX7.9/example_9.sce b/1151/CH7/EX7.9/example_9.sce
new file mode 100755
index 000000000..87a4193ae
--- /dev/null
+++ b/1151/CH7/EX7.9/example_9.sce
@@ -0,0 +1,11 @@
+s=%s;

+num=(1-s);

+den=(s+1);

+ansys=syslin('c',(num/den));

+nyquist(ansys,-1,1000);

+printf("When K>1:nobopen loop pole is on right half of the s plane P=0");

+printf("number of encirclement of point(-1+j0)N=1\n N=Z-P\n1=Z-0\n Z=1");

+printf("hence the system is unstable")

+printf("When K<1: P=0");

+printf(" N=0\n Z=0");

+printf("hence the system is stable")