initial commit / add all books

6 files changed, 101 insertions, 0 deletions

diff --git a/752/CH13/EX13.10.1/13_10_1.sce b/752/CH13/EX13.10.1/13_10_1.sce
new file mode 100755
index 000000000..049c93798
--- /dev/null
+++ b/752/CH13/EX13.10.1/13_10_1.sce
@@ -0,0 +1,21 @@
+clc;

+//page no 485

+//prob no. 13.10.1

+// Measurements on a 50 ohm slotted line gave

+Z0=50;//measured in ohm

+VSWR=2.0;

+d=0.2;//distance from load to first minimum

+T=(VSWR-1)/(VSWR+1);

+pi=180;

+Ql=pi*(4*0.2-1);

+// using Euler's identity

+e=cosd(Ql)+%i*sind(Ql);// expansion for e^(jQl);

+a=T*e;

+//Load impedance is given as

+ZL=Z0*(1+a)/(1-a);

+disp('ohm',real(ZL),'a) The equivalent  series resistance is');

+disp('ohm',imag(ZL),'The equivalent  series reactance is');

+disp('The minus sign indicate the capacitive reactance');

+Yl=1/ZL;

+disp('ohm',1/real(Yl),'b) The equivalent  parallel resistance is');

+disp('ohm',1/imag(Yl),'The equivalent  parallel reactance is');
\ No newline at end of file
diff --git a/752/CH13/EX13.11.1/13_11_1.sce b/752/CH13/EX13.11.1/13_11_1.sce
new file mode 100755
index 000000000..90eb3e849
--- /dev/null
+++ b/752/CH13/EX13.11.1/13_11_1.sce
@@ -0,0 +1,14 @@
+clc;

+//page no 488

+//prob no. 13.11.1

+d=0.1;//length of 50ohm short-circuited line

+Z0=50;//in ohm

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

+pi=180;

+Bl=2*pi*d;

+//a)Determination of equivalent inductive reactance

+Z=%i*Z0*tand(Bl);

+disp('ohm','i',Z,'The equivalent inductive reactance is');

+//b)Determination of equivalent inductance

+L_eq=Z/(2*%pi*f);

+disp('nH',L_eq*10^9,'The equivalent inductance is');
\ No newline at end of file
diff --git a/752/CH13/EX13.17.1/13_17_1.sce b/752/CH13/EX13.17.1/13_17_1.sce
new file mode 100755
index 000000000..ea4310932
--- /dev/null
+++ b/752/CH13/EX13.17.1/13_17_1.sce
@@ -0,0 +1,14 @@
+clc;

+//page no 513

+//prob no. 13.17.1

+VSWR=2;l_min=0.2;Z0=50;

+Ql=((4*l_min )- 1)*%pi;

+tl=(VSWR-1)/(VSWR+1);

+Tl=tl*%e^(%i*Ql);

+Zl=Z0*(1+Tl)/(1-Tl);

+disp('ohm',real(Zl),'a) The equivalent  series resistance is');

+disp('ohm',imag(Zl),'The equivalent  series reactance is');

+disp('The minus sign indicate the capacitive reactance');

+Yl=1/Zl;

+disp('ohm',1/real(Yl),'b) The equivalent  parallel resistance is');

+disp('ohm',1/imag(Yl),'The equivalent  parallel reactance is');
\ No newline at end of file
diff --git a/752/CH13/EX13.17.2/13_17_2.sce b/752/CH13/EX13.17.2/13_17_2.sce
new file mode 100755
index 000000000..7d71dea78
--- /dev/null
+++ b/752/CH13/EX13.17.2/13_17_2.sce
@@ -0,0 +1,18 @@
+clc;

+//page no 514

+//prob no. 13.17.2

+// A transmission line is terminated with

+ZL=30-(%i*23);

+l=0.5;//// length of line in m

+Z0=50;//characteristic impedance in ohm

+wl=0.45;//wavelength on the line in m

+B=2*%pi/wl;

+Tl=(ZL-Z0)/(ZL+Z0)

+VI=1;//reference voltage in volt

+VR=VI*Tl;

+Vi=VI*%e^(%i*B*l);

+Vr=VR*%e^-(%i*B*l);

+V=Vi+Vr;

+I=(Vi-Vr)/Z0;

+Z=V/I;

+disp('ohm',Z,'The input impedance is');
\ No newline at end of file
diff --git a/752/CH13/EX13.17.3/13_17_3.sce b/752/CH13/EX13.17.3/13_17_3.sce
new file mode 100755
index 000000000..1af1eec29
--- /dev/null
+++ b/752/CH13/EX13.17.3/13_17_3.sce
@@ -0,0 +1,22 @@
+clc;

+//page no 515

+//prob no. 13.17.3

+Z0=600;Zl=73;//in ohm

+F=0.9;

+QF=(2*%pi*F)/4;

+//For matching, the effective load impedance on the main line must equal the characteristic impedance of the mail line

+Zl1=Zl;

+Z01=sqrt(Zl1*Zl);

+Tl=(Zl-Z01)/(Zl+Z01);

+VI=1;//reference voltage

+Vi=VI*%e^(%i*QF);

+Vr=Tl*VI*%e^-(%i*QF);

+V_in=Vi+Vr;

+I_in=(Vi-Vr)/Z01;

+Z_in=V_in/I_in;

+disp('ohm',Z_in,'The input impedance is');

+//the voltage reflection coeff is

+TL_F=(Z_in-Z0)/(Z_in+Z0);

+//the VSWr is given as

+VSWR_F=(1+TL_F)/(1-TL_F);

+disp(VSWR_F,'The VSWR is');
\ No newline at end of file
diff --git a/752/CH13/EX13.5.2/13_5_2.sce b/752/CH13/EX13.5.2/13_5_2.sce
new file mode 100755
index 000000000..18cdbde24
--- /dev/null
+++ b/752/CH13/EX13.5.2/13_5_2.sce
@@ -0,0 +1,12 @@
+clc;

+//page no 475

+//prob no. 13.5.2

+// The attenuation coeff is 0.0006 N/m

+a=0.0006;//The attenuation coeff in N/m

+//a)Determinaion of the attenuation coeff in dB/m

+a_dB=8.686*a;

+disp('dB/m',a_dB,'The attenuation coeff is');

+//b) Determination of attenuation coeff in dB/mile

+k=1609;//conversion coeff for meter to mile

+a_dB_mile=k*a_dB;

+disp('dB/mile',a_dB_mile,'The attenuation coeff is');
\ No newline at end of file