initial commit / add all books

18 files changed, 308 insertions, 0 deletions

diff --git a/1109/CH13/EX13.1/13_1.sce b/1109/CH13/EX13.1/13_1.sce
new file mode 100755
index 000000000..bca0fbe35
--- /dev/null
+++ b/1109/CH13/EX13.1/13_1.sce
@@ -0,0 +1,23 @@
+clear;

+clc;

+Z1=%i*20;Z2=%i*25;Z3=30;

+Z11=Z1+Z3; //Z11=V1/I1 when I2=0

+Z12=Z3; //Z12=V1/I2 when I1=0

+Z21=Z3; //Z21=V2/I1 when I2=0

+Z22=Z2+Z3; //Z22=V2/I2 when I1=0

+printf("(a)The z-parameters are\n");

+printf("  Z11 = %f + j(%f) ohms\n",real(Z11),imag(Z11));

+printf("  Z12 = %f ohms\n",Z12);

+printf("  Z21 = %f ohms\n",Z21);

+printf("  Z22 = %f + j(%f) ohms\n",real(Z22),imag(Z22));

+deltaz=(Z11*Z22)-(Z12*Z21);

+y11=Z22/deltaz;

+y12=-Z12/deltaz;

+y21=-Z21/deltaz;

+y22=Z11/deltaz;

+

+printf("(b)The y-parameters are\n");

+printf("  y11 = %f + j(%f) mhos\n",real(y11),imag(y11));

+printf("  y12 = %f + j(%f) mhos\n",real(y12),imag(y12));

+printf("  y21 = %f + j(%f) mhos\n",real(y21),imag(y21));

+printf("  y22 = %f + j(%f) mhos\n",real(y22),imag(y22));

diff --git a/1109/CH13/EX13.10/13_10.sce b/1109/CH13/EX13.10/13_10.sce
new file mode 100755
index 000000000..fb1d4b940
--- /dev/null
+++ b/1109/CH13/EX13.10/13_10.sce
@@ -0,0 +1,23 @@
+clear;

+clc;

+z11=10;z22=20;z12=5;z21=5;

+deltaz=(z11*z22)-(z12*z21);

+A=z11/z12;

+printf("(a)The ABCD parameters are:\n");

+printf("  A = %f\n",A);

+B=deltaz/z21;

+printf("  B = %f ohms\n",B);

+C=1/z12;

+printf("  C = %f mho\n",C);

+D=z22/z21;

+printf("  D = %f\n\n",D);

+Z3=z21;

+Z1=z11-Z3;

+Z2=z22-Z3;

+printf("(b)The equivalent T-network:\n");

+printf("  Z1 = %f ohms\n",Z1);

+printf("  Z2 = %f ohms\n",Z2);

+printf("  Z13 = %f ohms\n",Z3);

+

+

+

diff --git a/1109/CH13/EX13.11/13_11.sce b/1109/CH13/EX13.11/13_11.sce
new file mode 100755
index 000000000..a3bbf83b0
--- /dev/null
+++ b/1109/CH13/EX13.11/13_11.sce
@@ -0,0 +1,10 @@
+clear;

+clc;

+V1=10;I1=2.5;I2a=-0.5; //values with terminals 3-4 short-circuited

+V2=V1;I2b=1.5; //values with terminals 1-2 short circuited

+Yb=-I2a/V1;

+Ya=(I1/V1)-Yb;

+Yc=(I2b/V2)-Yb;

+printf("-Ya = %f mho\n",Ya);

+printf("-Yb = %f mhp\n",Yb);

+printf("-Yc = %f mho",Yc);

diff --git a/1109/CH13/EX13.12/13_12.sce b/1109/CH13/EX13.12/13_12.sce
new file mode 100755
index 000000000..fd4bb2be5
--- /dev/null
+++ b/1109/CH13/EX13.12/13_12.sce
@@ -0,0 +1,14 @@
+clear;

+clc;

+Za=2;Zb=2.5;Zc=5;

+Ya=1/Za;Yb=1/Zb;Yc=1/Zc;

+Y1=(Ya*Yc)/(Ya+Yb+Yc);

+Z1=1/Y1;

+Y2=(Yb*Yc)/(Ya+Yb+Yc);

+Z2=1/Y2;

+Y3=(Ya*Yb)/(Ya+Yb+Yc);

+Z3=1/Y3;

+printf("The equivalent pi network is: \n");

+printf(" Z1 = %f ohms\n",Z1);

+printf(" Z2 = %f ohms\n",Z2);

+printf(" Z3 = %f ohms\n",Z3);

diff --git a/1109/CH13/EX13.13/13_13.sce b/1109/CH13/EX13.13/13_13.sce
new file mode 100755
index 000000000..9777c3b83
--- /dev/null
+++ b/1109/CH13/EX13.13/13_13.sce
@@ -0,0 +1,34 @@
+clear;

+clc;

+y11=0.5;y12=-0.2;y21=-0.2;y22=1;

+Y2=-y12;

+Y1=y11-Y2;

+Y3=y22-Y2;

+deltay=(y11*y22)-(y12*y21);

+z11=y22/deltay;

+z22=y11/deltay;

+z12=y12/deltay;

+z21=z12;

+A=-y22/y12;

+B=-1/y12;

+C=-deltay/y12;

+D=-y11/y12;

+printf("The y parameters are\n");

+printf(" y11 = %f mho\n",y11);

+printf(" y12 = %f mho\n",y12);

+printf(" y21 = %f mho\n",y21);

+printf(" y22 = %f mho\n\n",y22);

+printf(" The z parameters are\n");

+printf(" z11 = %f ohm\n",round(z11*1000)/1000);

+printf(" z12 = %f ohm\n",round(z12*10^4)/10^4);

+printf(" z21 = %f ohm\n",round(z21*10^4)/10^4);

+printf(" z22 = %f ohm\n\n",round(z22*1000)/1000);

+printf(" The ABCD parametrs are\n");

+printf(" A = %f\n",A);

+printf(" B = %f ohm\n",B);

+printf(" C = %f mho\n",C);

+printf(" D = %f\n\n",D);

+printf(" The equivalent pi network is\n");

+printf(" Y1 = %f mho\n",Y1);

+printf(" Y2 = %f mho\n",Y2);

+printf(" Y3 = %f mho",Y3);

diff --git a/1109/CH13/EX13.14/13_14.sce b/1109/CH13/EX13.14/13_14.sce
new file mode 100755
index 000000000..813a8ac6b
--- /dev/null
+++ b/1109/CH13/EX13.14/13_14.sce
@@ -0,0 +1,16 @@
+clear;

+clc;

+Y1=1;Y2=2;Y3=1;

+y11=Y1+Y2;

+y12=-Y2;

+y21=y12;

+y22=Y2+Y3;

+Y11=y11+y11;

+Y12=y12+y12;

+Y21=Y12;

+Y22=y22+y22;

+printf("The y-parameters are:\n");

+printf(" Y11 = %f mho\n",Y11);

+printf(" Y12 = %f mho\n",Y12);

+printf(" Y21 = %f mho\n",Y21);

+printf(" Y22 = %f mho\n",Y22);

diff --git a/1109/CH13/EX13.15/13_15.sce b/1109/CH13/EX13.15/13_15.sce
new file mode 100755
index 000000000..d0e969591
--- /dev/null
+++ b/1109/CH13/EX13.15/13_15.sce
@@ -0,0 +1,18 @@
+clear;

+clc;

+Za=10;Zb=10;Zc=5;

+Ya=1/Za;Yb=1/Zb;Yc=1/Zc;

+A=1+(Za*Yb);

+printf("The ABCD parameters are:\n");

+printf(" A = %f\n",A);

+B=Za+Zb+(Za*Zb*Yc);

+printf(" B = %f ohm\n",B);

+C=Yc;

+printf(" C = %f mho\n",C);

+D=1+(Zb*Yc);

+printf(" D = %f \n\n",D);

+Zi1=sqrt((A*B)/(C*D));

+printf(" Image impedances of the two port network are:\n");

+printf(" Zi1 = %f ohms\n",round(Zi1*10)/10);

+Zi2=sqrt((D*B)/(A*C));

+printf(" Zi2 = %f ohms",round(Zi2*100)/100);

diff --git a/1109/CH13/EX13.17/13_17.sce b/1109/CH13/EX13.17/13_17.sce
new file mode 100755
index 000000000..770d1ead5
--- /dev/null
+++ b/1109/CH13/EX13.17/13_17.sce
@@ -0,0 +1,16 @@
+clear;

+clc;

+R1=2;R2=1;R3=1;R4=2;

+A=[R1+R2 R2 -R4;R2 R2+R4 R4;-R1 R1 R4+R3+R1];  

+B=det(A);

+C=[1 R2 -R1;0 R2+R1 R1;0 R4 R4+R3+R1];

+D=det(C);

+E=[1 -R1;0 R4+R3+R1];

+F=[R2+R1 -R1;-R1 R4+R3+R1]; 

+G=[R4+R2 0 -R4;R1 1 R4;-R4 0 R4+R2];

+H=[1 R1;0 R4+R3+R1];

+I=[R2+R1 R1;R1 R4+R3+R1]; 

+printf("Z1s = %d/%d ohms\n",B,D);

+printf(" Z1o = %d/%d ohms\n",det(F),det(E));

+printf(" Z2s = %d/%d ohms\n",det(A),det(C));

+printf(" Z2o = %d/%d ohms\n",det(I),det(H));

diff --git a/1109/CH13/EX13.18/13_18.sce b/1109/CH13/EX13.18/13_18.sce
new file mode 100755
index 000000000..00ac72d88
--- /dev/null
+++ b/1109/CH13/EX13.18/13_18.sce
@@ -0,0 +1,22 @@
+clear;

+clc;

+R1=2;R2=1;R3=2;R4=1;R5=2;

+R3=R3/2;

+z11=R2+R1;

+z22=R3+R2;

+z12=R2;

+z21=R2;

+Z11=z11+z11;

+Z12=z12+z12;

+Z21=z21+z21;

+Z22=z22+z22;

+deltaZ=(Z11*Z22)-(Z12*Z21);

+y11=Z22/deltaZ;

+y12=-Z12/deltaZ;

+y21=y12;

+y22=Z11/deltaZ;

+printf("The y-parameters are:\n");

+printf("-y11 = %f mho\n",y11);

+printf("-y12 = %f mho\n",y12);

+printf("-y21 = %f mho\n",y21);

+printf("-y22 = %f mho\n",y22);

diff --git a/1109/CH13/EX13.19/13_19.sce b/1109/CH13/EX13.19/13_19.sce
new file mode 100755
index 000000000..ed9631005
--- /dev/null
+++ b/1109/CH13/EX13.19/13_19.sce
@@ -0,0 +1,8 @@
+clear;

+clc;

+R1=3;R2=2;R3=2;

+A=(R3+R3+R2+R2)/(R1+R3+R1+R2);

+Zi1=sqrt((R2*(R1+R3)+(R1*R2))/A);

+printf("Zi1 = %f ohms\n",round(Zi1*10)/10);

+Zi2=R2+(R3*(R1+Zi1)/(R3+R1+Zi1));

+printf(" Zi2 = %f ohms\n",round(Zi2*10)/10);

diff --git a/1109/CH13/EX13.2/13_2.sce b/1109/CH13/EX13.2/13_2.sce
new file mode 100755
index 000000000..502f72cf9
--- /dev/null
+++ b/1109/CH13/EX13.2/13_2.sce
@@ -0,0 +1,7 @@
+clear;

+clc;

+L=1;C=1;R=1;

+printf("z11 = s + %d ohms\n",C);

+printf(" z21 = %d ohms\n",C);

+printf(" z22 = 1/s + %d ohms\n",C);

+printf(" z12 = %d ohms\n",C);

diff --git a/1109/CH13/EX13.3/13_3.sce b/1109/CH13/EX13.3/13_3.sce
new file mode 100755
index 000000000..ae28c43ac
--- /dev/null
+++ b/1109/CH13/EX13.3/13_3.sce
@@ -0,0 +1,24 @@
+clear;

+clc;

+Voc2=100;I1=10;V2=25;

+Voc1=100;I2=20;V1=50;

+z11=Voc1/I1;

+z21=V2/I1;

+z22=Voc2/I2;

+z12=V1/I2;

+printf("(a)The driving point impedances are:\n");

+printf("  z11 = %f ohms\n",z11);

+printf("  z22 = %f ohms\n\n",z22);

+printf("  The transfer impedances are:\n");

+printf("  z12 = %f ohms\n",z12);

+printf("  z21 = %f ohms\n\n",z21);

+printf("  The loop equations are:\n");

+printf("  V1= %f*I1 + %f*I2\n",z11,z12);

+printf("  V2= %f*I1+ %f*I2\n\n",z21,z22);

+Rl=10;

+a=[z11 z12 ; z21 (z22+Rl)];

+b=[100 ; 0];

+b=inv(a)*b;

+I2=b(2,1);

+Vl=-I2*Rl;

+printf("(b)Voltage across resistor = %f volts",round(Vl*10)/10);

diff --git a/1109/CH13/EX13.4/13_4.sce b/1109/CH13/EX13.4/13_4.sce
new file mode 100755
index 000000000..07f898aaf
--- /dev/null
+++ b/1109/CH13/EX13.4/13_4.sce
@@ -0,0 +1,13 @@
+clear;

+clc;

+z11=10;z22=12;z12=5;z21=5;

+deltaz=(z11*z22)-(z12*z21);

+y11=z22/deltaz;

+printf("The y-parameters are:\n");

+printf("-y11 = %f mho\n",round(y11*10^4)/10^4);

+y22=z11/deltaz;

+printf("-y22 = %f mho\n",round(y22*10^4)/10^4);

+y12=-z12/deltaz;

+printf("-y12 = %f mho\n",round(y12*10^3)/10^3);

+y21=y12;

+printf("-y21 = %f mho",round(y21*10^3)/10^3);

diff --git a/1109/CH13/EX13.5/13_5.sce b/1109/CH13/EX13.5/13_5.sce
new file mode 100755
index 000000000..c2e48eb2f
--- /dev/null
+++ b/1109/CH13/EX13.5/13_5.sce
@@ -0,0 +1,13 @@
+clear;

+clc;

+Y1=1;Y2=1;Y3=2;V3=3;

+Z1=1/Y1;Z2=1/Y2;Z3=1/Y3;

+V1=1;I1=-1;

+z11=V1/I1;

+V2=1;I2=3;

+z22=V2/I2;

+z21=V2/I1;

+printf("z11 = %f ohms\n",z11);

+printf(" z22 = %f ohms\n",z22);

+printf(" z21 = %f ohms\n",z21);

+printf(" z11 = %f ohms\n",0);

diff --git a/1109/CH13/EX13.6/13_6.sce b/1109/CH13/EX13.6/13_6.sce
new file mode 100755
index 000000000..0c9f0e44a
--- /dev/null
+++ b/1109/CH13/EX13.6/13_6.sce
@@ -0,0 +1,16 @@
+clear;

+clc;

+Vs1=25;Is1=1;Is2=2; //values with output terminal short circuited

+Vo1=10;Vo2=50;Io2=2; //values with input terminal open circuited

+Vs2=0;

+h11=Vs1/Is1;

+printf("The h-parameters are:\n");

+printf("-h11 = %f ohms\n",h11); //with output terminals short circuited

+h21=Is2/Is1;

+printf("-h21 = %f\n",h21); //with input terminals open circuited

+h12=Vo1/Vo2;

+printf("-h12 = %f\n",h12); //with input terminals open circuited

+h22=Io2/Vo2;

+printf("-h22 = %f mho",h22); //with output terminals short circuited

+//the difference in result of h22 is due to erroneous value in textbook.

+disp("The difference in result of h22 is due to erroneous value in textbook")

diff --git a/1109/CH13/EX13.7/13_7.sce b/1109/CH13/EX13.7/13_7.sce
new file mode 100755
index 000000000..47159cd12
--- /dev/null
+++ b/1109/CH13/EX13.7/13_7.sce
@@ -0,0 +1,19 @@
+clear;

+clc;

+z11=40;z22=30;z12=20;z21=20;

+deltaz=(z11*z22)-(z12*z21);

+A=z11/z12;

+printf("The transmission parameters are:\n");

+printf("  A = %f\n",A);

+B=deltaz/z21;

+printf("  B = %f ohms\n",B);

+C=1/z21;

+printf("  C = %f mho\n",C);

+D=z22/z21;

+printf("  D = %f\n",D);

+printf(" The network equations using z-parameter are\n");

+printf("  V1 = %fI1 + %fI2\n",z11,z12);

+printf("  V2 = %fI1 + %fI2\n",z21,z22);

+printf(" The network equations using ABCD parameter are\n");

+printf("  V1 = %fV2 - %fI2\n",A,B);

+printf("  I1 = %fV2 - %fI2\n",C,D);

diff --git a/1109/CH13/EX13.8/13_8.sce b/1109/CH13/EX13.8/13_8.sce
new file mode 100755
index 000000000..c8bce06b7
--- /dev/null
+++ b/1109/CH13/EX13.8/13_8.sce
@@ -0,0 +1,27 @@
+clear;

+clc;

+V1=1;R1=1;R2=2;R3=1;R4=2;I2=0;

+//I2=0 because port 2-2' has been open circuited

+a=[R1+R2 -R2;-2 5];

+b=[1;0];

+b=inv(a)*b;

+I1=b(1,1);

+I3=b(2,1);

+V2=I3*R4;

+A=V1/V2;

+C=I1/V2;

+V21=0; //because port 2-2' has been short circuited

+c=[3 -2;-2 3];

+d=[1;0];

+d=inv(c)*d;

+I11=d(1,1);

+I21=d(2,1);

+B=V1/I21;

+D=I11/I21;

+R=(A*D)-(B*C);

+printf("The transmission parameters are:\n");

+printf("  A = %f\n",A);

+printf("  B = %f ohms\n",B);

+printf("  C = %f mhos\n",C);

+printf("  D = %f\n\n",D);

+printf(" AD-BC = %f . Hence the circuit is reciprocal.",R);

diff --git a/1109/CH13/EX13.9/13_9.sce b/1109/CH13/EX13.9/13_9.sce
new file mode 100755
index 000000000..f23335745
--- /dev/null
+++ b/1109/CH13/EX13.9/13_9.sce
@@ -0,0 +1,5 @@
+clear;

+clc;

+Rl=3;z11=5;z12=2;z21=2;z22=1;

+Zi=z11-(z12/z21);

+printf("Input impedance = %f ohms",Zi);