From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3673/CH16/EX16.10/Ex16_10.sce           | 14 ++++++++++++++
 3673/CH16/EX16.11/Ex16_11.sce           | 12 ++++++++++++
 3673/CH16/EX16.12/Ex16_12.sce           | 13 +++++++++++++
 3673/CH16/EX16.13/Ex16_13.sce           | 11 +++++++++++
 3673/CH16/EX16.14/Ex16_14.sce           | 11 +++++++++++
 3673/CH16/EX16.15/Ex16_15.sce           | 13 +++++++++++++
 3673/CH16/EX16.3/Ex16_3.sce             | 22 ++++++++++++++++++++++
 3673/CH16/EX16.4/Ex16_4.sce             | 19 +++++++++++++++++++
 3673/CH16/EX16.5/Ex16_5.sce             |  8 ++++++++
 3673/CH16/EX16.7/Ex16_7.sce             | 20 ++++++++++++++++++++
 3673/CH16/EX16.8/Ex16_8.sce             | 16 ++++++++++++++++
 3673/CH16/EX16.a.10/Example_a_16_10.sce | 15 +++++++++++++++
 3673/CH16/EX16.a.15/Example_a_16_15.sce | 20 ++++++++++++++++++++
 3673/CH16/EX16.a.19/Example_a_16_19.sce | 22 ++++++++++++++++++++++
 3673/CH16/EX16.a.6/Example_a_16_6.sce   |  9 +++++++++
 3673/CH16/EX16.a.7/Example_a_16_7.sce   | 23 +++++++++++++++++++++++
 3673/CH16/EX16.a.8/Example_a_16_8.sce   | 18 ++++++++++++++++++
 3673/CH16/EX16.a.9/Example_a_16_9.sce   |  9 +++++++++
 18 files changed, 275 insertions(+)
 create mode 100644 3673/CH16/EX16.10/Ex16_10.sce
 create mode 100644 3673/CH16/EX16.11/Ex16_11.sce
 create mode 100644 3673/CH16/EX16.12/Ex16_12.sce
 create mode 100644 3673/CH16/EX16.13/Ex16_13.sce
 create mode 100644 3673/CH16/EX16.14/Ex16_14.sce
 create mode 100644 3673/CH16/EX16.15/Ex16_15.sce
 create mode 100644 3673/CH16/EX16.3/Ex16_3.sce
 create mode 100644 3673/CH16/EX16.4/Ex16_4.sce
 create mode 100644 3673/CH16/EX16.5/Ex16_5.sce
 create mode 100644 3673/CH16/EX16.7/Ex16_7.sce
 create mode 100644 3673/CH16/EX16.8/Ex16_8.sce
 create mode 100644 3673/CH16/EX16.a.10/Example_a_16_10.sce
 create mode 100644 3673/CH16/EX16.a.15/Example_a_16_15.sce
 create mode 100644 3673/CH16/EX16.a.19/Example_a_16_19.sce
 create mode 100644 3673/CH16/EX16.a.6/Example_a_16_6.sce
 create mode 100644 3673/CH16/EX16.a.7/Example_a_16_7.sce
 create mode 100644 3673/CH16/EX16.a.8/Example_a_16_8.sce
 create mode 100644 3673/CH16/EX16.a.9/Example_a_16_9.sce

(limited to '3673/CH16')

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)");
-- 
cgit