Modified the code

14 files changed, 0 insertions, 194 deletions

diff --git a/1340/CH7/EX7.1/7_1.sce b/1340/CH7/EX7.1/7_1.sce
deleted file mode 100755
index 22df04735..000000000
--- a/1340/CH7/EX7.1/7_1.sce
+++ /dev/null
@@ -1,8 +0,0 @@
-clc;

-s = %s;

-T = syslin('c',5/(s^2+7*s+10));disp(T,"T(s)=");

-R = syslin('c',1/s);disp(R,"R(s)= unit step:");

-E = R*(1-T);

-syms t s;

-sse = limit(s*E,s,0);

-disp(sse,"Steady state error :")
\ No newline at end of file
diff --git a/1340/CH7/EX7.10/7_10.sce b/1340/CH7/EX7.10/7_10.sce
deleted file mode 100755
index 72cf7410b..000000000
--- a/1340/CH7/EX7.10/7_10.sce
+++ /dev/null
@@ -1,9 +0,0 @@
-clc;

-syms s a K;

-G = K/(s^2+a*s+K);

-disp(G,"Closed loop transfer function:");

-

-DG = diff(G,K);

-sta = (a/G)*diff(G,a);

-sta = simple(sta);

-disp(sta,"Sensitivity wrt parameter a = ")

diff --git a/1340/CH7/EX7.11/7_11.sce b/1340/CH7/EX7.11/7_11.sce
deleted file mode 100755
index f7cd13384..000000000
--- a/1340/CH7/EX7.11/7_11.sce
+++ /dev/null
@@ -1,13 +0,0 @@
-clc;

-syms K s a;

-G = K/(s*(s+a));

-E = (1/s^2)/(1+G);

-e = limit(s*E,s,0);

-e = simple(e);

-disp(e,"steady state error = ");

-sea = (a/e)*diff(e,a);

-sek = (K/e)*diff(e,K);

-sea = simple(sea);

-sek = simple(sek);

-disp(sea,"sensitivity of error wrt parameter a = ");

-disp(sek,"\n sensitivity of error wrt parameter K =");

diff --git a/1340/CH7/EX7.12/7_12.sce b/1340/CH7/EX7.12/7_12.sce
deleted file mode 100755
index 75e4e6d64..000000000
--- a/1340/CH7/EX7.12/7_12.sce
+++ /dev/null
@@ -1,11 +0,0 @@
-clc;

-syms K a b s;

-G = K/((s+a)*(s+b));

-Kp = limit(G,s,0);

-e = 1/(1+Kp);

-sea = (a/e)*diff(e,a);

-sea = simple(sea);

-disp(sea,"Sensitivity of error wrt a =");

-sek = (K/e)*diff(e,K);

-sek = simple(sek);

-disp(sek,"Sensitivity of error wrt K =");
\ No newline at end of file
diff --git a/1340/CH7/EX7.13/7_13.sce b/1340/CH7/EX7.13/7_13.sce
deleted file mode 100755
index 23f0770e0..000000000
--- a/1340/CH7/EX7.13/7_13.sce
+++ /dev/null
@@ -1,20 +0,0 @@
-s = %s;

-A = [-5 1 0;0 -2 1;20 -10 1];

-B = [0;0;1];

-C = [-1 1 0];

-[S1]=syslin('c',A,B,C,0);

-ssprint(S1);

-syms t s;

-tf = ss2tf(S1);

-disp(tf);

-

-R = laplace(1,t,s);

-E = R*(1- tf);

-sse = limit(s*E,s,0);

-disp(sse,"steady state error for step input:");

-

-R = laplace(t,t,s);

-E = R*(1- tf);

-sse = limit(s*E,s,0);

-disp(sse,"steady state error for ramp input:");

-printf("G(s)is type-0 system");

diff --git a/1340/CH7/EX7.14/7_14.sce b/1340/CH7/EX7.14/7_14.sce
deleted file mode 100755
index 0ad671187..000000000
--- a/1340/CH7/EX7.14/7_14.sce
+++ /dev/null
@@ -1,15 +0,0 @@
-clc;

-A = [-5 1 0;0 -2 1;20 -10 1];

-C = [-1 1 0];

-B = [0;0;1];

-

-a= inv(A);

-syms t k;

-t = 1/k;

-x = (1+C*a*B);

-y = (C*(a^2)*B);

-disp(x,"steady state error due to step input:");

-

-z = x*t + y; 

-sse = limit(z,k,0);

-disp(sse,"steady state error due to ramp input:");
\ No newline at end of file
diff --git a/1340/CH7/EX7.2/7_2.sce b/1340/CH7/EX7.2/7_2.sce
deleted file mode 100755
index 1a8421b8d..000000000
--- a/1340/CH7/EX7.2/7_2.sce
+++ /dev/null
@@ -1,14 +0,0 @@
-clc;

-s = %s;

-G = syslin('c',120*(s+2)/((s+3)*(s+4)));disp(G,"G(s)=");

-syms t s;

-R = laplace(5,t,s);

-E = R/(1+G);

-sse = limit(s*E,s,0);disp(sse,"Steady state error for step input:");

-R = laplace(5*t,t,s);

-E = R/(1+G);

-sse = limit(s*E,s,0);disp(sse,"Steady state error for ramp input:");

-R = laplace(5*t^2,t,s);

-E = R/(1+G);

-sse = limit(s*E,s,0);disp(sse,"Steady state error for parabola input:");

-printf("for TYPE-0 systems steady state error for ramp and parabola inputs is Infinity")

diff --git a/1340/CH7/EX7.3/7_3.sce b/1340/CH7/EX7.3/7_3.sce
deleted file mode 100755
index b4293222e..000000000
--- a/1340/CH7/EX7.3/7_3.sce
+++ /dev/null
@@ -1,14 +0,0 @@
-clc;

-s = %s;

-G = syslin('c',100*((s+2)*(s+6))/(s*(s+3)*(s+4)));disp(G,"G(s)=");

-syms t s;

-R = laplace(5,t,s);

-E = R/(1+G);

-sse = limit(s*E,s,0);disp(sse,"Steady state error for step input:");

-R = laplace(5*t,t,s);

-E = R/(1+G);

-sse = limit(s*E,s,0);disp(sse,"Steady state error for ramp input:");

-R = laplace(5*t^2,t,s);

-E = R/(1+G);

-sse = limit(s*E,s,0);disp(sse,"Steady state error for parabola input:");

-printf("for TYPE-1 systems steady state error for  parabola inputs is Infinity")

diff --git a/1340/CH7/EX7.4/7_4.sce b/1340/CH7/EX7.4/7_4.sce
deleted file mode 100755
index 4a0f7ff6b..000000000
--- a/1340/CH7/EX7.4/7_4.sce
+++ /dev/null
@@ -1,38 +0,0 @@
-clc;

-s = %s;

-G1 = syslin('c',500*(s+2)*(s+5)/((s+8)*(s+10)*(s+12)));

-G2 = syslin('c',500*(s+2)*(s+5)*(s+6)/(s*(s+8)*(s+10)*(s+12)));

-G3 = syslin('c',500*(s+2)*(s+4)*(s+5)*(s+6)*(s+7)/(s^2*(s+8)*(s+10)*(s+12)));

-printf("G1,G2,G3 have poles in the LHP and on origin,hence all are stable");

-syms t s;

-R11 = laplace(1,t,s);

-E1=R11/(1+G1);

-es1= limit(s*E1,s,0);

-R12 = laplace(t,t,s);

-E2=R12/(1+G1);

-er1 = limit(s*E2,s,0);

-R13 = laplace(t^2,t,s);

-E3 = R13/(1+G3);

-ep1 = limit(s^2*E3,s,0);

-

-R21 = laplace(1,t,s);

-E1=R21/(1+G2);

-es2= limit(s*E1,s,0);

-R22= laplace(t,t,s);

-E2=R22/(1+G2);

-er2=limit(s*E2,s,0);

-R23 = laplace(t^2,t,s);

-E3 = R23/(1+G2);

-er2 = limit(s^2*E3,s,0);

-

-

-

-disp(ep1,"err parabolic",er1,"err ramp",es1,"err step","for G =500(s+2)(s+5)/((s+8)(s+10)(s+12)) ");

-disp(ep2,"err parabolic",er2,"err ramp",es2,"err step","for G =500(s+2)(s+5)(s+6)/(s(s+8)(s+10)(s+12)) ");

-disp(ep3,"err parabolic",er3,"err ramp",es3,"err step","for G =500(s+2)(s+4)(s+5)(s+6)(s+7)/(s^2(s+8)(s+10)(s+12)) ");

-

-

-

-    

-

-    

diff --git a/1340/CH7/EX7.5/7_5.sce b/1340/CH7/EX7.5/7_5.sce
deleted file mode 100755
index 03485c6c0..000000000
--- a/1340/CH7/EX7.5/7_5.sce
+++ /dev/null
@@ -1,8 +0,0 @@
-clc;

-s = %s;

-Kp = 1000;disp(Kp,"value of Kp:");

-printf("Kp is finite implies a type-0 system \n");

-printf("The system is stable\n");

-printf("Input is a step since Kp is specified\n");

-E = 1/(1+Kp);

-disp(E,"Steady state error =");

diff --git a/1340/CH7/EX7.6/7_6.sce b/1340/CH7/EX7.6/7_6.sce
deleted file mode 100755
index 1ea46b925..000000000
--- a/1340/CH7/EX7.6/7_6.sce
+++ /dev/null
@@ -1,12 +0,0 @@
-clc;

-s = %s;

-printf("S.S. error = 0.1");

-Kv = 1/0.1

-G = syslin('c',(s+5)/((s*(s+6)*(s+7)*(s+8))));

-printf("\n For type-1 system and finite steady state error implies a ramp input. \n")

-syms k s;

-disp(s*G);

-l = limit(s*G,s,0);

-disp(l);

-k = Kv/l;

-disp(k,"Value of K:");

diff --git a/1340/CH7/EX7.7/7_7.sce b/1340/CH7/EX7.7/7_7.sce
deleted file mode 100755
index c7b3ee66f..000000000
--- a/1340/CH7/EX7.7/7_7.sce
+++ /dev/null
@@ -1,9 +0,0 @@
-clc;

-s = %s;

-G2 = syslin('c',1/(s*(s+25)));

-syms s;

-limG1= limit(1000*s/s,s,0);//limit of G1

-limG2 = limit(s/(s*G2),s,0);//limit of G2

-ess = -1/(limG1+limG2);

-disp(ess,"S.S. error due to step disturbance:");

-printf("Steady state error is inversely proportional to d.c.gain of G1(s)=1000");
\ No newline at end of file
diff --git a/1340/CH7/EX7.8/7_8.sce b/1340/CH7/EX7.8/7_8.sce
deleted file mode 100755
index 84bd17829..000000000
--- a/1340/CH7/EX7.8/7_8.sce
+++ /dev/null
@@ -1,12 +0,0 @@
-clc;

-s = %s;

-G = syslin('c',100/(s*(s+10)));

-H = syslin('c',1/(s+5));

-Ge = G/(1+G*H-G);

-disp(Ge);

-disp("It is a Type-0 system,does not contain integration term");

-syms s;

-Kp = limit(s*Ge/s,s,0);

-disp(Kp,"Kp :");

-sse = 1/(1+Kp);disp(sse,"S.S.error:")

-printf("\n negative value of Steady state error implies the output step is larger than the input step")
\ No newline at end of file
diff --git a/1340/CH7/EX7.9/7_9.sce b/1340/CH7/EX7.9/7_9.sce
deleted file mode 100755
index ed24c9521..000000000
--- a/1340/CH7/EX7.9/7_9.sce
+++ /dev/null
@@ -1,11 +0,0 @@
-clc;

-s = %s;

-G = syslin('c',100/(s*(s+10)));

-H = syslin('c',1/(s+5));

-syms t s;

-R = laplace(1,t,s);

-E = R/(1+G*H);

-sse = limit(s*E,s,0);disp(sse,"steady state error for step input:");

-R1 = laplace(t,t,s);

-E = R1/(1+G*H);

-sse = limit(s*E,s,0);disp(sse,"steady state error for ramp input:");
\ No newline at end of file