From d1e070fe2d77c8e7f6ba4b0c57b1b42e26349059 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Sat, 3 Feb 2018 10:59:42 +0530
Subject: Modified the code

---
 1340/CH7/EX7.1/7_1.sce   |  8 --------
 1340/CH7/EX7.10/7_10.sce |  9 ---------
 1340/CH7/EX7.11/7_11.sce | 13 -------------
 1340/CH7/EX7.12/7_12.sce | 11 -----------
 1340/CH7/EX7.13/7_13.sce | 20 --------------------
 1340/CH7/EX7.14/7_14.sce | 15 ---------------
 1340/CH7/EX7.2/7_2.sce   | 14 --------------
 1340/CH7/EX7.3/7_3.sce   | 14 --------------
 1340/CH7/EX7.4/7_4.sce   | 38 --------------------------------------
 1340/CH7/EX7.5/7_5.sce   |  8 --------
 1340/CH7/EX7.6/7_6.sce   | 12 ------------
 1340/CH7/EX7.7/7_7.sce   |  9 ---------
 1340/CH7/EX7.8/7_8.sce   | 12 ------------
 1340/CH7/EX7.9/7_9.sce   | 11 -----------
 14 files changed, 194 deletions(-)
 delete mode 100755 1340/CH7/EX7.1/7_1.sce
 delete mode 100755 1340/CH7/EX7.10/7_10.sce
 delete mode 100755 1340/CH7/EX7.11/7_11.sce
 delete mode 100755 1340/CH7/EX7.12/7_12.sce
 delete mode 100755 1340/CH7/EX7.13/7_13.sce
 delete mode 100755 1340/CH7/EX7.14/7_14.sce
 delete mode 100755 1340/CH7/EX7.2/7_2.sce
 delete mode 100755 1340/CH7/EX7.3/7_3.sce
 delete mode 100755 1340/CH7/EX7.4/7_4.sce
 delete mode 100755 1340/CH7/EX7.5/7_5.sce
 delete mode 100755 1340/CH7/EX7.6/7_6.sce
 delete mode 100755 1340/CH7/EX7.7/7_7.sce
 delete mode 100755 1340/CH7/EX7.8/7_8.sce
 delete mode 100755 1340/CH7/EX7.9/7_9.sce

(limited to '1340/CH7')

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
-- 
cgit