initial commit / add all books

18 files changed, 275 insertions, 0 deletions

diff --git a/3673/CH16/EX16.10/Ex16_10.sce b/3673/CH16/EX16.10/Ex16_10.sce
new file mode 100644
index 000000000..2fe3f8ac1
--- /dev/null
+++ b/3673/CH16/EX16.10/Ex16_10.sce
@@ -0,0 +1,14 @@
+//Example 16_10 page no:762

+clc;

+//given

+Y11=2.5;

+Y21=-1;

+Y12=-1;

+Y22=5;

+Y1=Y11+Y21;

+Y2=-Y12;

+Y3=Y22+Y12;

+disp(Y1,"the parameter Y1 is (in mho)");

+disp(Y2,"the parameter Y2 is (in mho)");

+disp(Y3,"the parameter Y3 is (in mho)");

+//in text book Y12 is calculated wrongly

diff --git a/3673/CH16/EX16.11/Ex16_11.sce b/3673/CH16/EX16.11/Ex16_11.sce
new file mode 100644
index 000000000..819149a53
--- /dev/null
+++ b/3673/CH16/EX16.11/Ex16_11.sce
@@ -0,0 +1,12 @@
+//Example 16_11 page no:767

+clc;

+//given

+Z11=2.5;

+Z21=1;

+Z22=2;

+Z12=1;

+Zl=2;

+Zs=1;

+Z1=Z11-((Z12*Z21)/(Zl+Z22));

+Zin=Zs+Z1;

+disp(Zin,"the input impedence is (in ohm)");

diff --git a/3673/CH16/EX16.12/Ex16_12.sce b/3673/CH16/EX16.12/Ex16_12.sce
new file mode 100644
index 000000000..121c8534f
--- /dev/null
+++ b/3673/CH16/EX16.12/Ex16_12.sce
@@ -0,0 +1,13 @@
+//Example 16_12 page no:768

+clc;

+//given

+Y11=1/2;

+Y22=5/8;

+Y21=-1/4;

+Y12=-1/4;

+Ys=1;

+I2_V2=((Y22*Ys)+(Y22*Y11)-(Y21*Y21))/(Ys+Y11);

+Z22=1/I2_V2;

+disp(Z22,"the output impedance of the network Z22 is (in ohm)");

+//in text book output unit is wrongly mentioned

+//in text book output is displayed in ratio here the same value is displayed in fraction

diff --git a/3673/CH16/EX16.13/Ex16_13.sce b/3673/CH16/EX16.13/Ex16_13.sce
new file mode 100644
index 000000000..ae5f26921
--- /dev/null
+++ b/3673/CH16/EX16.13/Ex16_13.sce
@@ -0,0 +1,11 @@
+//Example 16_13 page no:771

+clc;

+//given

+Z11=3;

+Z12=2;

+Z21=2;

+Z22=3;

+Za=Z11-Z12;

+Zb=Z11+Z12;

+disp(Za,"the parameter Za of the lattice netwrok is (in ohm)");

+disp(Zb,"the parameter Zb of the lattice netwrok is (in ohm)");

diff --git a/3673/CH16/EX16.14/Ex16_14.sce b/3673/CH16/EX16.14/Ex16_14.sce
new file mode 100644
index 000000000..5bb08778d
--- /dev/null
+++ b/3673/CH16/EX16.14/Ex16_14.sce
@@ -0,0 +1,11 @@
+//Example 16_14 page no:771

+clc;

+//given

+Z11=6;

+Z22=6;

+Z12=4;

+Z21=4;

+Za=Z11-Z12;

+Zb=Z11+Z12;

+disp(Za,"the parameter Za of the lattice network is (in ohm)");

+disp(Zb,"the parameter Zb of the lattice network is (in ohm)");

diff --git a/3673/CH16/EX16.15/Ex16_15.sce b/3673/CH16/EX16.15/Ex16_15.sce
new file mode 100644
index 000000000..b02815c55
--- /dev/null
+++ b/3673/CH16/EX16.15/Ex16_15.sce
@@ -0,0 +1,13 @@
+//Example 16_15 page no:775

+clc;

+//given

+A=6/5;

+B=17/5;

+C=1/5;

+D=7/5;

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

+disp(Zl1,"the parameter Zl1 is (in ohm)");

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

+disp(Zl2,"the parameter Zl2 is (in ohm)");

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

+disp(phi,"the angle is");

diff --git a/3673/CH16/EX16.3/Ex16_3.sce b/3673/CH16/EX16.3/Ex16_3.sce
new file mode 100644
index 000000000..44210f90d
--- /dev/null
+++ b/3673/CH16/EX16.3/Ex16_3.sce
@@ -0,0 +1,22 @@
+//Example 16_1 page no:739

+clc;

+//given

+I1=1;//here I1 is assumed to 1 hence it will cancel out in simplifications

+I2=1;//here I1 is assumed to 1 hence it will cancel out in simplifications

+V1=6*I1;

+V2=5*I1;

+function [x] = frac(n, d)

+ x = (n*%s)/(d*%s);

+endfunction;

+x=frac(V1,V2);

+disp(x,"the parameter A is");

+x=frac(I1,V2);

+disp(x,"the parameter C is");

+V1=-17;

+I2=5;

+x=frac(-V1,I2);

+disp(x,"the parameter B is");

+V1=-7;

+I2=5;

+x=frac(-V1,I2);

+disp(x,"the parameter C is");

diff --git a/3673/CH16/EX16.4/Ex16_4.sce b/3673/CH16/EX16.4/Ex16_4.sce
new file mode 100644
index 000000000..9592b28d5
--- /dev/null
+++ b/3673/CH16/EX16.4/Ex16_4.sce
@@ -0,0 +1,19 @@
+//Example 16_4 page no:748

+clc;

+//calculating h11

+V1=2;

+I1=1;//here I1 is assumed to be 1 hence it will cancel

+h11=V1/I1;

+disp(h11,"the parameter h11 is");

+I2=-1;

+I1=2;

+h21=I2/I1;

+disp(h21,"the parameter h21 is");

+V1=1;

+V2=2;

+h12=V1/V2;

+disp(h12,"the parameter h12 is");

+I2=1;

+V2=2;

+h22=I2/V2;

+disp(h22,"the parameter h22 is");

diff --git a/3673/CH16/EX16.5/Ex16_5.sce b/3673/CH16/EX16.5/Ex16_5.sce
new file mode 100644
index 000000000..f050ef7c0
--- /dev/null
+++ b/3673/CH16/EX16.5/Ex16_5.sce
@@ -0,0 +1,8 @@
+//Example 16_5 page no:752

+clc;

+Z=[3,1,

+2,1];

+y=[1,-1,

+-2,3];

+x=det(Z)*det(y);

+disp(x,"the product of delta x and delta y is");

diff --git a/3673/CH16/EX16.7/Ex16_7.sce b/3673/CH16/EX16.7/Ex16_7.sce
new file mode 100644
index 000000000..0ea220bd7
--- /dev/null
+++ b/3673/CH16/EX16.7/Ex16_7.sce
@@ -0,0 +1,20 @@
+//Example 16_7 page no:758

+clc;

+//given

+Z11x=3;

+Z12x=2;

+Z21x=2;

+Z22x=3;

+Z11y=15;

+Z21y=5;

+Z22y=25;

+Z12y=5;

+//calculating the parameters

+Z11=Z11x+Z11y;

+Z12=Z12x+Z12y;

+Z21=Z21x+Z21y;

+Z22=Z22x+Z22y;

+disp(Z11,"the parameter Z11 is (in ohm)");

+disp(Z21,"the parameter Z21 is (in ohm)");

+disp(Z22,"the parameter Z22 is (in ohm)");

+disp(Z12,"the parameter Z12 is (in ohm)");

diff --git a/3673/CH16/EX16.8/Ex16_8.sce b/3673/CH16/EX16.8/Ex16_8.sce
new file mode 100644
index 000000000..038a646d9
--- /dev/null
+++ b/3673/CH16/EX16.8/Ex16_8.sce
@@ -0,0 +1,16 @@
+//Example 16_8 page no:759

+clc;

+//given

+Y11=1/2;

+Y21=-1/4;

+Y22=5/8;

+Y12=-1/4;

+//if two identical sections of the network is connected in parallel then Y parameters are calculated as

+Y11=2*Y11;

+Y21=2*Y21;

+Y22=2*Y22;

+Y12=2*Y12;

+disp(Y11,"the parameter Y11 is(in mho)");

+disp(Y21,"the parameter Y21 is(in mho)");

+disp(Y12,"the parameter Y12 is(in mho)");

+disp(Y22,"the parameter Y22 is(in mho)");

diff --git a/3673/CH16/EX16.a.10/Example_a_16_10.sce b/3673/CH16/EX16.a.10/Example_a_16_10.sce
new file mode 100644
index 000000000..ac5711c7a
--- /dev/null
+++ b/3673/CH16/EX16.a.10/Example_a_16_10.sce
@@ -0,0 +1,15 @@
+//Example_a_16_10 page no:787

+clc;

+Za=1;

+Zb=3;

+Zc=5;

+Zd=2;

+//calculating the Z values

+Z11=((Za+Zb)*(Zd+Zc))/(Za+Zb+Zc+Zd);

+Z21=((Zb*Zc)-(Za*Zd))/(Za+Zb+Zc+Zd);

+Z12=Z21;

+Z22=((Za+Zc)*(Zd+Zb))/(Za+Zb+Zc+Zd);

+disp(Z11,"the value of Z11 is (in ohm)");

+disp(Z21,"the value of Z21 is (in ohm)");

+disp(Z12,"the value of Z12 is (in ohm)");

+disp(Z22,"the value of Z22 is (in ohm)");

diff --git a/3673/CH16/EX16.a.15/Example_a_16_15.sce b/3673/CH16/EX16.a.15/Example_a_16_15.sce
new file mode 100644
index 000000000..7b56cf2a4
--- /dev/null
+++ b/3673/CH16/EX16.a.15/Example_a_16_15.sce
@@ -0,0 +1,20 @@
+//Example_a_16_15 page no:792

+clc;

+Y11_t=6/7;

+Y22_t=5/7;

+Y12_t=-4/7;

+Y21_t=-4/7;

+Y11_pi=2;

+Y12_pi=-1;

+Y22_pi=3;

+Y21_pi=-1;

+//calculating the admittance values

+Y11=Y11_t+Y11_pi;

+Y12=Y12_t+Y12_pi;

+Y21=Y21_t+Y21_pi;

+Y22=Y22_t+Y22_pi;

+disp(Y11,"the value of Y11 is ");

+disp(Y12,"the value of Y12 is ");

+disp(Y21,"the value of Y21 is ");

+disp(Y22,"the value of Y22 is ");

+//Y12 and Y21 are calculated wrongly in textbook, the correct calculation is done here

diff --git a/3673/CH16/EX16.a.19/Example_a_16_19.sce b/3673/CH16/EX16.a.19/Example_a_16_19.sce
new file mode 100644
index 000000000..b2a221454
--- /dev/null
+++ b/3673/CH16/EX16.a.19/Example_a_16_19.sce
@@ -0,0 +1,22 @@
+//Example_a_16_19 page no:793

+clc;

+I1=1;//assume I1=1 hence it will be canceled in solving the equation

+V1=I1*(8+2*%i);

+V2=I1*(3-4*%i);

+A=V1/V2;

+C=I1/V2;

+I2=(I1*(3-4*%i))/(6-4*%i);

+V1=I1*((5+6*%i)+(((3-4*%i)*3))/((3-4*%i)+3));

+B=V1/I2;//B value slightly varies with textbook, hence values are rounded off in textbook

+D=I1/I2;

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

+reciprocity_con_mag=sqrt(real(reciprocity_con)^2+imag(reciprocity_con)^2);

+reciprocity_con_ang=atand(imag(reciprocity_con)/real(reciprocity_con));

+disp(A,"the value of A is ");

+disp(B,"the value of B is ");

+disp(C,"the value of C is ");

+disp(D,"the value of D is ");

+disp(reciprocity_con_mag,"the magnitude of reciprocity condition is ");

+disp(reciprocity_con_ang,"the angle of reciprocity condition is ");

+disp("hence reciprocity is verified");

+//here reciprocity conditon is exactly satisfied hence magnitude is 1 and angle is 0 but scilab cannot produce 0(document released by scilab:SCILAB IS NAIVE, page no:3) and also the reslut slightly varies with text book hence values are rounded off in text book

diff --git a/3673/CH16/EX16.a.6/Example_a_16_6.sce b/3673/CH16/EX16.a.6/Example_a_16_6.sce
new file mode 100644
index 000000000..81914ad0e
--- /dev/null
+++ b/3673/CH16/EX16.a.6/Example_a_16_6.sce
@@ -0,0 +1,9 @@
+//Example_a_16_6 page no:784

+clc;

+current_gain=(25*0.05*10^6)/(1500+0.05*10^6);

+V2_coeff=-6.6*10^-4+0.1*10^-4-0.2*10^-4;

+V1_coeff=0.05;

+voltage_gain=V1_coeff/V2_coeff;

+disp(current_gain,"the current gain is ");

+disp(voltage_gain,"the voltage gain is ");

+//voltage gain value is calculated wrongly in text book

diff --git a/3673/CH16/EX16.a.7/Example_a_16_7.sce b/3673/CH16/EX16.a.7/Example_a_16_7.sce
new file mode 100644
index 000000000..10abf6138
--- /dev/null
+++ b/3673/CH16/EX16.a.7/Example_a_16_7.sce
@@ -0,0 +1,23 @@
+//Example_a_16_7 page no:785

+clc;

+h11=1*10^3;

+h12=0.003;

+h21=100;

+h22=50*10^-6;

+R=500;

+Vs=10*10^-3;

+I1=10*10^-3/954.54;

+V1=Vs-(I1*R);

+V2=(V1-(h11*I1))/(h12);

+disp(V2,"the value of V2 is (in V)");

+delta_h=(h11*h22)-(h21*h12);

+Z11=delta_h/h22;

+Z12=h12/h22;

+Z21=-h21/h22;

+Z22=1/h22;

+disp("the Z parameters of the network are");

+disp(Z11,"the value of Z11 is (in ohm)");

+disp(Z12,"the value of Z12 is (in ohm)");

+disp(Z21,"the value of Z21 is (in ohm)");

+disp(Z22,"the value of Z22 is (in ohm)");

+//V2 varies slightlly with text book hence I1 and V1 values are rounded off in text book which produce approximate result

diff --git a/3673/CH16/EX16.a.8/Example_a_16_8.sce b/3673/CH16/EX16.a.8/Example_a_16_8.sce
new file mode 100644
index 000000000..626a2caf0
--- /dev/null
+++ b/3673/CH16/EX16.a.8/Example_a_16_8.sce
@@ -0,0 +1,18 @@
+//Example_a_16_8 page no:786

+clc;

+Zl=20

+Z11=10;

+Z22=10;

+Z12=4;

+Z21=4;

+V1=20;

+Vs=20;

+Zl=20;

+I1=V1/(Z11-((Z12*Z21)/(Zl+Z22)));

+I2=-I1*Z21/(Zl+Z22);

+V2=-I2*20;

+Zin=V1/I1;

+disp(I1,"the current I1 is (in A)");

+disp(I2,"the current I2 is (in A)");

+disp(V2,"the voltage V2 is (in V)");

+disp(Zin,"the input impedence is (in ohm)");

diff --git a/3673/CH16/EX16.a.9/Example_a_16_9.sce b/3673/CH16/EX16.a.9/Example_a_16_9.sce
new file mode 100644
index 000000000..54b12fd2a
--- /dev/null
+++ b/3673/CH16/EX16.a.9/Example_a_16_9.sce
@@ -0,0 +1,9 @@
+//Example_a_16_9 page no:787

+clc;

+Y11=6;

+Y22=6;

+Y21=4;

+Y12=4;

+Ys=1;

+driv_pt_admt=((Y22*Ys)+(Y22*Y11)-(Y21*Y12))/(Ys+Y11);

+disp(driv_pt_admt,"the driving point admittance is (in mho)");