initial commit / add all books

19 files changed, 208 insertions, 0 deletions

diff --git a/761/CH14/EX14.1/14_1.sce b/761/CH14/EX14.1/14_1.sce
new file mode 100755
index 000000000..29d06a2f1
--- /dev/null
+++ b/761/CH14/EX14.1/14_1.sce
@@ -0,0 +1,8 @@
+clc;

+//page no 461

+//prob no. 14.1

+//A coaxial cable with capacitance=90pF/m & characteristic impedance=50 ohm

+C=90*10^-12;Zo=50;

+//Determination of inductance of 1m length

+L=(Zo^2)*C;

+disp('nH/m',L*10^9,'The inductance of 1m length is');
\ No newline at end of file
diff --git a/761/CH14/EX14.10/14_10.sce b/761/CH14/EX14.10/14_10.sce
new file mode 100755
index 000000000..189df00dd
--- /dev/null
+++ b/761/CH14/EX14.10/14_10.sce
@@ -0,0 +1,10 @@
+clc;

+//page no 481

+//prob no. 14.10

+//A series tuned ckt tuned at 1GHz

+vf=0.95;c=3*10^8;f=10^9;

+vp=vf*c;//determination of propagation velo.

+wav=vp/f;//Determination of wavelength 

+//Determination of length

+L=wav/2;//Since half wavelength section wiil be series resonant

+disp('m',L,'The length should be');  
\ No newline at end of file
diff --git a/761/CH14/EX14.11/14_11.sce b/761/CH14/EX14.11/14_11.sce
new file mode 100755
index 000000000..7ef233533
--- /dev/null
+++ b/761/CH14/EX14.11/14_11.sce
@@ -0,0 +1,10 @@
+clc;

+//page no 481

+//prob no. 14.10

+//A Tx deliver 100W to antenna through 45m coaxial cable  with loss=4dB/100m

+loss=4/100;L=45;Pout=100;

+loss_dB=L*loss;//Determination of loss in dB

+Pin_Pout=10^(loss_dB/10);

+//Determination of Tx power

+Pin=Pout*Pin_Pout;

+disp('W',Pin,'The transmitter power must be');
\ No newline at end of file
diff --git a/761/CH14/EX14.13/14_13.sce b/761/CH14/EX14.13/14_13.sce
new file mode 100755
index 000000000..bcb329351
--- /dev/null
+++ b/761/CH14/EX14.13/14_13.sce
@@ -0,0 +1,15 @@
+clc;

+//page no 490

+//prob no. 14.13

+Zo=50;//line impedance in ohm

+f=100*10^6;//operating freq

+vf=0.7;//velocity factor

+L=6;//length in m

+c=3*10^8;//velo of light

+ZL=50+%i*50;//load impedance in ohm

+// we have to calculate length in degree,so for this first find wl

+wl=vf*c/f;//wavength in m

+ang=360*L/wl;

+// now from the graph input impedance is 19.36+%i5.44;

+Zi=19.36+%i*5.44;

+disp('ohm',Zi,'Input impedance is');
\ No newline at end of file
diff --git a/761/CH14/EX14.14/14_14.sce b/761/CH14/EX14.14/14_14.sce
new file mode 100755
index 000000000..c22b9681d
--- /dev/null
+++ b/761/CH14/EX14.14/14_14.sce
@@ -0,0 +1,10 @@
+clc;

+//page no 492

+//prob no. 14.14

+Zo=50;//line impedance in ohm

+ZL=75+%i*25;

+// the requirment of this is simply to match the 50ohm line to the impedsnce at this point on the line,which is 88.38 ohm,resistive.

+Z2=88.38;//in ohm

+//The required turn ratio is

+N1_N2=sqrt(Zo/Z2);

+disp(N1_N2,'The required turn ratio is');
\ No newline at end of file
diff --git a/761/CH14/EX14.15/14_15.sce b/761/CH14/EX14.15/14_15.sce
new file mode 100755
index 000000000..b0f5da3ad
--- /dev/null
+++ b/761/CH14/EX14.15/14_15.sce
@@ -0,0 +1,8 @@
+clc;

+//page no 494

+//prob no. 14.15

+// refer prob no 14.14

+Zo=50;//line impedance in ohm

+Z2=88.38;//in ohm

+Zo_=sqrt(Zo*Z2);

+disp(Zo_');
\ No newline at end of file
diff --git a/761/CH14/EX14.16/14_16.sce b/761/CH14/EX14.16/14_16.sce
new file mode 100755
index 000000000..57466d2fb
--- /dev/null
+++ b/761/CH14/EX14.16/14_16.sce
@@ -0,0 +1,10 @@
+clc;

+//page no 494

+//prob no. 14.16

+Zo=50;//line impedance in ohm

+f=100*10^6;//operating freq in Hz

+ZL1=50+%i*75;// load impedance with Xc=75

+Xc=75;

+// Capacitance in farads is given as

+C=1/(2*%pi*f*Xc);

+disp('F',C,'Capacitance is');
\ No newline at end of file
diff --git a/761/CH14/EX14.17/14_17.sce b/761/CH14/EX14.17/14_17.sce
new file mode 100755
index 000000000..74c38d9da
--- /dev/null
+++ b/761/CH14/EX14.17/14_17.sce
@@ -0,0 +1,8 @@
+clc;

+//page no 497

+//prob no. 14.17

+Zo=72;//line impedance in ohm

+ZL=120-%i*100;//load impedance

+//The stub must be inserted at a point on the line where the real part of the load admittance is correct. This alue is

+s=1/Zo;

+disp('S',s,'The value of stude is');
\ No newline at end of file
diff --git a/761/CH14/EX14.18/14_18.sce b/761/CH14/EX14.18/14_18.sce
new file mode 100755
index 000000000..2e3762ff6
--- /dev/null
+++ b/761/CH14/EX14.18/14_18.sce
@@ -0,0 +1,8 @@
+clc;

+//page no 501

+//prob no. 14.18

+//A TDR display shows dscontinuity  at 1.4us & vf=0.8

+t=1.4*10^-6;vf=0.8;c=3*10^8;//Speed of light

+//Determination of distance of fault

+d=(vf*c*t)/2;//One-half time is used to calculate

+disp('m',d,'The distance is');
\ No newline at end of file
diff --git a/761/CH14/EX14.19/14_19.sce b/761/CH14/EX14.19/14_19.sce
new file mode 100755
index 000000000..145574bf7
--- /dev/null
+++ b/761/CH14/EX14.19/14_19.sce
@@ -0,0 +1,11 @@
+clc;

+//page no 503

+//prob no. 14.19

+//2 adjacent minima on slotted are 23cm apart with velo factor=95%

+L=23*10^-2;vf=0.95;c=3*10^8;//Velo. of light in m/s

+//Determination of wavelength

+wav=2*L;//Minima are seperated by one-half wavelength

+disp('cm',wav*100,'The wavelength is');

+//Determination of freq.

+f=(vf*c)/wav;//vp=vf*c

+disp('MHz',f/10^6,'The freq is'); 
\ No newline at end of file
diff --git a/761/CH14/EX14.2/14_2.sce b/761/CH14/EX14.2/14_2.sce
new file mode 100755
index 000000000..4b05fe59a
--- /dev/null
+++ b/761/CH14/EX14.2/14_2.sce
@@ -0,0 +1,11 @@
+clc;

+//page no 462

+//prob no. 14.2

+//a)Determination of impedance of open wire with diameter 3mm & r=10mm

+D=3/2;r=10;//All values are in mm

+Zo1=276*log10(r/D); 

+disp('ohm',Zo1,'a)The characteristic impedance of conductor is');

+//b)Determination of impedance of coaxial with er=2.3,inner diameter=2mm & outer diameter=8mm

+er=2.3;D=8;d=2;//All diameter values in mm

+Zo2=(138/sqrt(er))*log10(D/d);

+disp('ohm',Zo2,'b)The characteristic impedance of coaxial cable is');
\ No newline at end of file
diff --git a/761/CH14/EX14.20/14_20.sce b/761/CH14/EX14.20/14_20.sce
new file mode 100755
index 000000000..8719662a3
--- /dev/null
+++ b/761/CH14/EX14.20/14_20.sce
@@ -0,0 +1,8 @@
+clc;

+//page no 504

+//prob no. 14.20

+//Frwd power in Tx line is 150W,Reverse power=20W

+Pi=150;Pr=20;//All power in watt

+//Determination of SWR

+SWR=(1+sqrt(Pr/Pi))/(1-sqrt(Pr/Pi));

+disp(SWR,'The value of SWR is');
\ No newline at end of file
diff --git a/761/CH14/EX14.3/14_3.sce b/761/CH14/EX14.3/14_3.sce
new file mode 100755
index 000000000..ad76fec37
--- /dev/null
+++ b/761/CH14/EX14.3/14_3.sce
@@ -0,0 +1,11 @@
+clc;

+//page no 463

+//prob no. 14.3

+//Cable with teflon dielectric er=2.1

+er=2.1;c=3*10^8;//Velocity of light

+//Determination of velocity factor

+Vf=1/sqrt(er);

+disp(Vf,'The value of velocity factor is');

+//Determination of propagation velocity

+Vp=Vf*c;

+disp('m/s',Vp,'The value of propagation velo. is');
\ No newline at end of file
diff --git a/761/CH14/EX14.4/14_4.sce b/761/CH14/EX14.4/14_4.sce
new file mode 100755
index 000000000..c520f5b5a
--- /dev/null
+++ b/761/CH14/EX14.4/14_4.sce
@@ -0,0 +1,26 @@
+clc;

+//page no 468

+//prob no. 14.4

+//Refer fig. 14.13(a)

+vs=1;//source voltage

+Rs=50;//source resistance

+Zo=50;//line impedance

+RL=25;//load resistance

+l=10;//length of line

+vf=0.7;//velocity factor

+Vi=0.5;

+c=3*10^8;//velo of light

+//Vs will divide between Rs and Zo of the line.Since two resistors are equal,the voltage will divide equally.

+//Therefore at t=0,the voltage at the source end of the line will rise from zero to 0.5V. The voltage at the load will remain zero untill the surge reaches it.The time for this is

+T=l/(vf*c);

+// After T sec, the voltage at the load will rise.The reflection coefficient is given as

+refl_coeff=(RL-Zo)/(RL+Zo)

+//Now reflection voltage is 

+Vr=refl_coeff * Vi;

+//The total voltage at the load is

+Vt=Vr+Vi;

+disp('V',Vt,'The total voltage at the load is');

+// The reflected voltage will propogate back along the line,reaching the source at time 2T.After this the voltage will be 0.3335V all along the line

+//The voltage across the line, and the load will be

+VL=vs*(RL/(RL+Zo));

+disp('V',VL,'The voltage across the line,');
\ No newline at end of file
diff --git a/761/CH14/EX14.5/14_5.sce b/761/CH14/EX14.5/14_5.sce
new file mode 100755
index 000000000..36be8557a
--- /dev/null
+++ b/761/CH14/EX14.5/14_5.sce
@@ -0,0 +1,11 @@
+clc;

+//page no 472

+//prob no. 14.5

+//Standard coaxial cable RG-8/U with 45 degree phase shift at 200MHz

+p=45;f=200*10^6;c=3*10^8;//Speed of light in m/s

+vf=0.66;//velo. factor for this line

+vp=vf*c;//Determination of propagation velo.

+wav=vp/f;//Determination of wavelength of signal

+//Determination of reqd length for 45 degree phase shift

+L=wav*(p/360);

+disp('m',L,'The length reqd for phase shift is');
\ No newline at end of file
diff --git a/761/CH14/EX14.6/14_6.sce b/761/CH14/EX14.6/14_6.sce
new file mode 100755
index 000000000..410c4dbc5
--- /dev/null
+++ b/761/CH14/EX14.6/14_6.sce
@@ -0,0 +1,8 @@
+clc;

+//page no 476

+//prob no. 14.6

+//A 50ohm line terminated in 25ohm resistance

+Zo=50;Zl=25;

+//Determination of SWR

+SWR=Zo/Zl;//In this case Zo>Zl

+disp(SWR,'The value of SWR is');
\ No newline at end of file
diff --git a/761/CH14/EX14.7/14_7.sce b/761/CH14/EX14.7/14_7.sce
new file mode 100755
index 000000000..d6686a192
--- /dev/null
+++ b/761/CH14/EX14.7/14_7.sce
@@ -0,0 +1,11 @@
+clc;

+//page no 477

+//prob no. 14.7

+//A generator sends 50mW at 50ohm line & reflection coeff I=0.5

+Pi=50;I=0.5;

+//Determination of amount of power reflected

+Pr=(I^2)*Pi;

+disp('mW',Pr,'The amount of power reflected is');

+//Determination of remainder power that reaches load

+Pl=Pi-Pr;

+disp('mW',Pl,'The power dissipated in load is');
\ No newline at end of file
diff --git a/761/CH14/EX14.8/14_8.sce b/761/CH14/EX14.8/14_8.sce
new file mode 100755
index 000000000..368b6ca5e
--- /dev/null
+++ b/761/CH14/EX14.8/14_8.sce
@@ -0,0 +1,8 @@
+clc;

+//page no 478

+//prob no. 14.8

+//A transmitter supplies 50W with SWR 2:1

+Pi=50;SWR=2;

+//Determination of power absorbed by load

+Pl=(4*SWR*Pi)/(1+SWR)^2;

+disp('W',Pl,'The power absorbed by load is');
\ No newline at end of file
diff --git a/761/CH14/EX14.9/14_9.sce b/761/CH14/EX14.9/14_9.sce
new file mode 100755
index 000000000..ac24ed1d4
--- /dev/null
+++ b/761/CH14/EX14.9/14_9.sce
@@ -0,0 +1,16 @@
+clc;

+// page no 545

+// prob no 14.9

+Zo=50;// line impedence in ohm

+ZL=100;// load impedance in ohm

+vf=0.8;//velocity factor

+l=1;//length of line

+f=30*10^6;// freq of operation

+c=3*10^8;//velo of light

+// we have to find the length of line in degree

+wl=vf*c/f//wavelength

+// Then the length of line in degree is

+ang=l/wl*360

+// calculation of impedance

+Z=Zo*(ZL+(%i*Zo*tand(ang)))/(Zo+(%i*ZL*tand(ang)));

+disp('ohm',Z,'The impedance looking toward the load');
\ No newline at end of file