initial commit / add all books

16 files changed, 189 insertions, 0 deletions

diff --git a/1760/CH7/EX7.14/EX7_14.sce b/1760/CH7/EX7.14/EX7_14.sce
new file mode 100755
index 000000000..661581b4c
--- /dev/null
+++ b/1760/CH7/EX7.14/EX7_14.sce
@@ -0,0 +1,17 @@
+                            //EXAMPLE 7-14     PG NO469-470

+Y11a=0.86;

+Y11b=1.5;

+Y12a=-0.57;

+Y12b=-0.5;

+Y21a=-0.57;

+Y21b=-0.5;

+Y22a=0.714;

+Y22b=2.5;

+Y11=Y11a+Y11b;

+disp('i) IMPEDANCE (Y11) is   =  '+string (Y11) +'mho ');

+Y12=Y12a+Y12b;

+disp('i) IMPEDANCE (Y12) is   =  '+string (Y12) +'mho ');

+Y21=Y21a+Y21b;

+disp('i) IMPEDANCE (Y21) is   =  '+string (Y21) +'mho ');

+Y22=Y22a+Y22b;

+disp('i) IMPEDANCE (Y22) is   =  '+string (Y22) +'mho ');

diff --git a/1760/CH7/EX7.16/EX7_16.sce b/1760/CH7/EX7.16/EX7_16.sce
new file mode 100755
index 000000000..83a7b461b
--- /dev/null
+++ b/1760/CH7/EX7.16/EX7_16.sce
@@ -0,0 +1,11 @@
+                   //EXAMPLE 7-16      PG NO-473

+Zoc1=40;

+Zsc1=36.67;

+Zi1=sqrt((Zoc1*Zsc1));

+disp('i) IMPEDANCE (Zi1) is   =  '+string (Zi1) +'ohm ');

+Zoc2=30;

+Zsc2=27.5;

+Zi2=sqrt((Zoc2*Zsc2));

+disp('ii) IMPEDANCE (Zi2) is   =  '+string (Zi2) +'ohm ');

+TETA=1/tanh(0.9167);

+disp('iii)  (TETA) is   =  '+string (TETA) +'degree ');

diff --git a/1760/CH7/EX7.17/EX7_17.sce b/1760/CH7/EX7.17/EX7_17.sce
new file mode 100755
index 000000000..e86871636
--- /dev/null
+++ b/1760/CH7/EX7.17/EX7_17.sce
@@ -0,0 +1,10 @@
+                               //EXAMPLE 7-17   PG NO-474-475

+R=600;                        //RESISTANCE

+I1=1/1200.13;

+disp(' Current is   = '+string(I1)+'A');

+I2=1/3793.54;

+disp(' Current is   = '+string(I2)+'A');

+P20=23984.9;

+P2=2400;

+IL=10*log10(P20/P2);

+disp(' Insertion Loss is   = '+string(IL)+'dB');

diff --git a/1760/CH7/EX7.18/EX7_18.sce b/1760/CH7/EX7.18/EX7_18.sce
new file mode 100755
index 000000000..a4561361b
--- /dev/null
+++ b/1760/CH7/EX7.18/EX7_18.sce
@@ -0,0 +1,19 @@
+                            //EXAMPLE 7-18  PG NO-477-478

+Ra=7;

+Rb=3;

+Rc=3;

+A=(Ra+Rb)/Rb;

+disp(' A  is   = '+string(A)+'');

+B=Ra+Rc+[(Ra*Rc)/Rb];

+disp(' B is   = '+string(B)+'');

+C=1/Rb;

+disp(' C is   = '+string(C)+'');

+D=(Rb+Rc)/Rb;

+disp(' D is   = '+string(D)+'');

+Z11=[(A*B)/(C*D)]^0.5;

+disp(' Impedance is   = '+string(Z11)+'ohm');

+Z12=[(B*D)/(A*C)]^0.5;

+disp(' Impedance is   = '+string(Z12)+'ohm');

+Q=1/cosh(2.62);

+Y12=-(1/17);

+disp(' Admittance is   = '+string(Y12)+'siemens');

diff --git a/1760/CH7/EX7.2/EX7_2.sce b/1760/CH7/EX7.2/EX7_2.sce
new file mode 100755
index 000000000..466204c7c
--- /dev/null
+++ b/1760/CH7/EX7.2/EX7_2.sce
@@ -0,0 +1,11 @@
+                                     //EXAMPLE 7-2    PG NO-437-438

+Z11=99+%i*99;

+Z12=-%i*100;

+Z21=20-%i*102.26;

+Z22=90.06-%i*120;

+Z1=Z11-Z12;

+disp('i) Impedance (Z1) is  in rectangular form  =  '+string (Z1) +'ohm ');

+Z2=Z22-Z12;

+disp('ii) Impedance (Z2) is  in rectangular form  =  '+string (Z2) +'ohm ');

+Z3=Z21-Z12;

+disp('iii) Impedance (Z3) is  in rectangular   form  =  '+string (Z3) +'ohm ');

diff --git a/1760/CH7/EX7.20/EX7_20.sce b/1760/CH7/EX7.20/EX7_20.sce
new file mode 100755
index 000000000..2431c779a
--- /dev/null
+++ b/1760/CH7/EX7.20/EX7_20.sce
@@ -0,0 +1,10 @@
+Zoc1=2.923;

+Zsc1=1.80;

+Zi1=sqrt((Zoc1*Zsc1));

+disp('i) IMPEDANCE (Zi1) is   =  '+string (Zi1) +'ohm ');

+Zoc2=4.77;

+Zsc2=2.95;

+Zi2=sqrt((Zoc2*Zsc2));

+disp('ii) IMPEDANCE (Zi2) is   =  '+string (Zi2) +'ohm ');

+TETA=1/tanh(0.619);

+disp('iii)  (TETA) is   =  '+string (TETA) +'degree ');

diff --git a/1760/CH7/EX7.21/EX7_21.sce b/1760/CH7/EX7.21/EX7_21.sce
new file mode 100755
index 000000000..74f197069
--- /dev/null
+++ b/1760/CH7/EX7.21/EX7_21.sce
@@ -0,0 +1,8 @@
+             //EXAMPLE 7-21     PG NO-481

+Rb=0.05;

+C=0.09;

+Ra=1/[C-(Rb)];

+disp('i) RESISTANCE  = '+string (Ra)+' ohm');

+C1=0.07;

+Rc=1/(C1-Rb);

+disp('ii) RESISTANCE  = '+string (Rc)+' ohm');

diff --git a/1760/CH7/EX7.22/EX7_22.sce b/1760/CH7/EX7.22/EX7_22.sce
new file mode 100755
index 000000000..1aab64568
--- /dev/null
+++ b/1760/CH7/EX7.22/EX7_22.sce
@@ -0,0 +1,10 @@
+                           //EXAMPLE 7-22      PG NO-482

+Z11=4;

+Z21=3;

+Z12=3;

+Z22=5;

+Z=[Z11 Z12;Z21 Z22];

+X=det(Z);

+disp(' delta is   = '+string(X)+'');

+Y=[(Z22/X) (-Z12/X);(-Z21/X) (Z11/X)];

+disp(' ADMITTANCE is   = '+string(Y)+'');

diff --git a/1760/CH7/EX7.25/EX7_25.sce b/1760/CH7/EX7.25/EX7_25.sce
new file mode 100755
index 000000000..63d06d499
--- /dev/null
+++ b/1760/CH7/EX7.25/EX7_25.sce
@@ -0,0 +1,18 @@
+                         //EXAMPLE 7_25          PG  NO-484-485

+A1=4/3;

+A2=5/3;

+B1=11/3;

+B2=2;

+C1=1/3;

+C2=2;

+D1=5/3;

+D2=3;

+A=A1+A2;

+B=B1+B2;

+C=C1+C2;

+D=D1+D2;

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

+disp(' X is   = '+string(X)+'');

+Z=[A1 B1;C1 D1]*[A2 B2; C2 D2];

+disp(' ABCD MATRIX is   = '+string(Z)+'');

+

diff --git a/1760/CH7/EX7.34/EX7_34.sce b/1760/CH7/EX7.34/EX7_34.sce
new file mode 100755
index 000000000..9abfd6435
--- /dev/null
+++ b/1760/CH7/EX7.34/EX7_34.sce
@@ -0,0 +1,6 @@
+                    //EXAMPLE 7-34        PG NO-489-490

+h21=0.98;

+h22=0.3*10^-6;

+I1=(h22+(1/10^4))/h21;

+disp('i) Current (I1)   is     =  '+string (I1) +' A   ');

+

diff --git a/1760/CH7/EX7.37/EX7_37.sce b/1760/CH7/EX7.37/EX7_37.sce
new file mode 100755
index 000000000..f9f92f262
--- /dev/null
+++ b/1760/CH7/EX7.37/EX7_37.sce
@@ -0,0 +1,10 @@
+                       //EXAMPLE 7-37        PG NO 438-439

+Z11=3.25;

+Z21=0.75;

+Z12=-0.75;

+Z22=1.75;

+Z=[Z11 Z12;Z21 Z22];

+X=det(Z);

+disp(' delta is   = '+string(X)+'');

+Y=[(Z22/X) (-Z12/X);(-Z21/X) (Z11/X)];

+disp(' ADMITTANCE is   = '+string(Y)+'');

diff --git a/1760/CH7/EX7.38/EX7_38.sce b/1760/CH7/EX7.38/EX7_38.sce
new file mode 100755
index 000000000..9f3ee1c10
--- /dev/null
+++ b/1760/CH7/EX7.38/EX7_38.sce
@@ -0,0 +1,12 @@
+                             //EXAMPLE 7-38    PG NO-493

+R1=4;                          //RESISTANCE

+R2=4;                          //RESISTANCE

+R3=8/9;                          //RESISTANCE

+Z10=[R1*(R3+R2)]/[R1+R2+R3];

+disp(' Impedance is  (Z10)  = '+string(Z10)+'ohm');

+Z20=[R1*(R3+R2)]/[R1+R2+R3];

+disp(' Impedance is  (Z20)  = '+string(Z20)+'ohm');

+Z1S=[R1*R3]/[R1+R3];

+disp(' Impedance is (Z1S)  = '+string(Z1S)+'ohm');

+Z2S=[R1*R3]/[R1+R3];

+disp(' Impedance is (Z1S)  = '+string(Z2S)+'ohm');

diff --git a/1760/CH7/EX7.4/EX7_4.sce b/1760/CH7/EX7.4/EX7_4.sce
new file mode 100755
index 000000000..0f4b0f4a7
--- /dev/null
+++ b/1760/CH7/EX7.4/EX7_4.sce
@@ -0,0 +1,10 @@
+                         //EXAMPLE 7-4        PG NO 438-439

+Z11=-0.4;

+Z21=0.4;

+Z12=-3.2;

+Z22=1.2;

+Z=[Z11 Z12;Z21 Z22];

+X=det(Z);

+disp(' delta is   = '+string(X)+'');

+Y=[(Z22/X) (-Z12/X);(-Z21/X) (Z11/X)];

+disp(' ADMITTANCE is   = '+string(Y)+'');

diff --git a/1760/CH7/EX7.42/EX7_42.sce b/1760/CH7/EX7.42/EX7_42.sce
new file mode 100755
index 000000000..35b14e81d
--- /dev/null
+++ b/1760/CH7/EX7.42/EX7_42.sce
@@ -0,0 +1,16 @@
+                                   //EXAMPLE7-42  PG NO-495-496

+Z11=2/3;

+Z22=Z11;

+Z12=1/3;

+Z21=Z12;

+A=Z11/Z21;

+disp(' A is (A)  = '+string(A)+'ohm');

+Z=[Z11 Z12;Z21 Z22]

+X=det(Z);

+disp(' Determinent is (X)  = '+string(X)+'');

+B=X/Z21;

+disp(' B is (B)  = '+string(B)+'ohm');

+C=1/Z21;

+disp(' C is (C)  = '+string(C)+'mho');

+D=Z22/Z21;

+disp(' D is (D)  = '+string(D)+'mho');

diff --git a/1760/CH7/EX7.5/EX7_5.sce b/1760/CH7/EX7.5/EX7_5.sce
new file mode 100755
index 000000000..9a04800c7
--- /dev/null
+++ b/1760/CH7/EX7.5/EX7_5.sce
@@ -0,0 +1,10 @@
+                   //EXAMPLE  7-5           PG NO-439-440

+Z11=-0.4;

+Z21=-3.2;

+Z12=0.4;

+Z22=1.2;

+Z=[Z11 Z12;Z21 Z22];

+X=det(Z);

+disp(' delta is   = '+string(X)+'');

+Y=[(Z22/X) (-Z12/X);(-Z21/X) (Z11/X)];

+disp(' ADMITTANCE is   = '+string(Y)+'');

diff --git a/1760/CH7/EX7.8/EX7_8.sce b/1760/CH7/EX7.8/EX7_8.sce
new file mode 100755
index 000000000..eaa342a4f
--- /dev/null
+++ b/1760/CH7/EX7.8/EX7_8.sce
@@ -0,0 +1,11 @@
+                                           //EXAMPLE 7-8    PG NO-442

+Y11=0.5;

+Y21=-0.1;

+Z1=0.1;

+Z2=0.9;

+Z=(Z1*Z2)/(Z1+Z2);

+disp('i) Impedance (Z) is  in  rectangular   form  =  '+string (Z) +'mho ');

+I1=10*Z;

+disp('ii) Current (I) is   in rectangular   form  =  '+string (I1) +'A ');

+V11=I1/I1;

+disp('i) VOLTAGE (V11) is   in rectangular   form  =  '+string (V11) +'V ');