initial commit / add all books

10 files changed, 250 insertions, 0 deletions

diff --git a/1979/CH3/EX3.1/Ex3_1.sce b/1979/CH3/EX3.1/Ex3_1.sce
new file mode 100755
index 000000000..2754d90c8
--- /dev/null
+++ b/1979/CH3/EX3.1/Ex3_1.sce
@@ -0,0 +1,16 @@
+//chapter-3 page 47 example 3.1

+//=============================================================================

+clc;

+clear;

+

+Z0=100;//Characteristic Impedance in ohms

+S=5;//Voltage Standing Wave Ratio(VSWR)

+

+//CALCULATION

+Zm=Z0*S;//Termainating impedance at a max of the voltage standing wave

+Zl=Zm;//Loading Impedance

+

+//OUTPUT

+mprintf('Terminating impedance at a maximum of the voltage standing wave is Zl= %3.0f ohms',Zl);

+

+//====================END OF PROGRAM========================================

diff --git a/1979/CH3/EX3.10/Ex3_10.sce b/1979/CH3/EX3.10/Ex3_10.sce
new file mode 100755
index 000000000..1ab5f7d4a
--- /dev/null
+++ b/1979/CH3/EX3.10/Ex3_10.sce
@@ -0,0 +1,32 @@
+//chapter-3 page 52 example 3.10

+//==============================================================================

+clc;

+clear;

+

+f=1000;//Frequency in Hz

+l=10000;//Length of open wire transmission line in met

+z1=2930;//Magnitude of a short circuit impedance in ohms

+p1=26;//Phase of a short circuit impedance in deg

+z2=260;//Magnitude of a open circuit impedance in ohms

+p2=-32;//Phase of a open circuit impedance in deg

+//CALCULATIONS

+Zsc=((z1*cosd(p1))+((%i)*(z1*sind(p1))));

+Zoc=((z2*cosd(p2))+((%i)*(z2*sind(p2))));

+Z0=sqrt(Zsc*Zoc);//Characteristic Impedance in ohms

+disp('Characteristic Impedance in ohms is');

+[ro,theta]=polar(Z0)

+disp(ro);

+disp(theta*180/%pi);

+g=((1/l)*(atanh(sqrt(Zsc/Zoc))));//Propagation Constant

+disp(g)

+b=imag(g);//Phase Constant

+w=2*f*(%pi);//Angular Frequency in rad/sec

+Vp=w/b;//Phase Velocity in m/sec

+disp(Vp)

+//OUTPUT

+mprintf('\nPhase Velocity is Vp=%5.2f m/sec',Vp);

+

+//=========================END OF PROGRAM==============================================================

+

+

+//Note: Check the calculation once 

diff --git a/1979/CH3/EX3.2/Ex3_2.sce b/1979/CH3/EX3.2/Ex3_2.sce
new file mode 100755
index 000000000..99a444fc7
--- /dev/null
+++ b/1979/CH3/EX3.2/Ex3_2.sce
@@ -0,0 +1,34 @@
+//chapter-3 page 48 example 3.3

+//==============================================================================

+clc;

+clear;

+

+R=8;//Resistance of a transmission line in ohm/km

+L=0.002;//Inductance of a transmission line in henry/km

+C=0.002*(10^(-6));//Capacitance of a transmission line in Farads

+G=0.07*(10^(-6));//Conductance of a transmission line in siemens/km

+f=2000;//Frequency in Hz

+w=2*(%pi)*f;//Angular Frequency in rad/sec

+Vs=2;//Input Voltage in volts

+l=500;//Length of Transmission line in km

+

+//CALCULATIONS

+Z0=sqrt((R+(w*L*(%i)))/(G+(w*C*(%i))));//Characteristic Impedance

+x=real(Z0);

+y=imag(Z0);

+disp('Characteristic Impedance in ohms is');

+disp(Z0);

+g=sqrt((R+(w*L*(%i)))*(G+(w*C*(%i))));//Propagation Constant

+a=real(g);//Attenuation Constant in NP/km

+b=imag(g);//Phase Constant in rad/km

+Is=Vs/Z0;

+I0=Is*exp(-(g*l));//Load current

+m=sqrt((real(I0))^2+(imag(I0)^2));

+P=(m^2)*x;//Power delivered to the load in watts

+

+//OUTPUT

+mprintf('\nAttenuation Constant is a=%1.6f NP/km \nPhase Constant is b=%1.6f rad/km \nPower delivered to the load is P=%1.6f watts',a,b,P);

+

+//===============END OF PROGRAM================================

+

+

diff --git a/1979/CH3/EX3.3/Ex3_3.sce b/1979/CH3/EX3.3/Ex3_3.sce
new file mode 100755
index 000000000..f45127e75
--- /dev/null
+++ b/1979/CH3/EX3.3/Ex3_3.sce
@@ -0,0 +1,21 @@
+//chapter-3 page 48 example 3.3

+//==============================================================================

+clc;

+clear;

+

+w=4*(%pi);//Angular Frequency in rad/sec

+b=0.02543;//Phase Constant in rad/km

+

+//CALCULATION

+Vp=w/b;//Phase Velocity in km/sec

+

+//OUTPUT

+mprintf('Phase Velocity is Vp=%3.2f km/sec',Vp);

+

+//=========END OF PROGRAM=========================

+

+//NOTE:CHECK THE CALCULATION PART GIVEN IN THE TEXTBOOK

+     //GIVEN ANSWER 494.22 KM/SEC

+     //GETTING ANSWER 494.16 KM/SEC

+

+

diff --git a/1979/CH3/EX3.4/Ex3_4.sce b/1979/CH3/EX3.4/Ex3_4.sce
new file mode 100755
index 000000000..f4e952645
--- /dev/null
+++ b/1979/CH3/EX3.4/Ex3_4.sce
@@ -0,0 +1,30 @@
+//chapter-3 page 48 example 3.4

+//==============================================================================

+clc;

+clear;

+

+f=37.5*10^6;//Frequency in Hz

+c=3*10^8;//Velocity of Light in m/sec

+l1=10;//Length of line in met

+Vg=200;//Generator Voltage in volts(rms)

+Zint=200;//Internal Resistance of Generator in ohms

+Z0=200;//Characteristic Impedance in ohms

+Zl=100;//Load impedance in ohms

+

+//CALCULATIONS

+w=c/f;//Wave Length in met

+b=2*(%pi)/w;

+l1=(5/4)*w;//For Lossless Line

+Zi=Z0*((Zl+(Z0*(%i)*tan(b*l1)))/(Z0+(Zl*(%i)*tan(b*l1))));//Input Impedance at Generator end

+Vs=Vg*(Zi/(Zi+Z0));//Voltage in line in volts

+Is=Vg/(Zi+Z0);//Current in Line drawn from Generator in amps

+Ps=Vs*Is;//Power drawn in line

+Pl=Ps;//For Lossless Lines Power delivered to load is equal to the Power drawn in line

+Il=sqrt((Pl/Zl));//Current flowing in the load

+m=real(Il);//Magnitude of Current flowing in the load

+p=imag(Il);//Phase of Current flowing in the load

+

+//CALCULATIONS

+mprintf('\nCurrent drawn from Generator is Is=%1.3f amps \nMagnitude of Current flowing in the load is m=%1.3f \nPhase of Current flowing in the load is p=%2.2f deg \nPower delivered to load is Pl=%2.2f watts',Is,m,p,Pl);

+

+//=========================END OF PROGRAM==============================================================

diff --git a/1979/CH3/EX3.5/Ex3_5.sce b/1979/CH3/EX3.5/Ex3_5.sce
new file mode 100755
index 000000000..d5b6c59c9
--- /dev/null
+++ b/1979/CH3/EX3.5/Ex3_5.sce
@@ -0,0 +1,21 @@
+//chapter-3 page 50 example 3.5

+//==============================================================================

+clc;

+clear;

+

+Z0=50;//Characteristic Impedance in ohms

+f=300*10^6;//Frequency in Hz

+Zl=50+(50*(%i));//Terminating load impedance in ohms

+w=((3*10^8)/f);//Wave Length

+

+//CALCULATIONS

+p=((Zl-Z0)/(Zl+Z0));//Reflection Coefficient(Complex Form)

+y=real(p);

+z=imag(p);

+x=sqrt(y^2+z^2);//Reflection Coefficient Value

+s=((1+x)/(1-x));//Voltage Standing Wave Ratio(VSWR)

+

+//OUTPUT

+mprintf('\nReflection Coefficient is x=%1.4f \nVoltage Standing Wave Ratio(VSWR) is s=%1.2f',x,s);

+

+//===================END OF PROGRAM=====================================

diff --git a/1979/CH3/EX3.6/Ex3_6.sce b/1979/CH3/EX3.6/Ex3_6.sce
new file mode 100755
index 000000000..eaaaad3b6
--- /dev/null
+++ b/1979/CH3/EX3.6/Ex3_6.sce
@@ -0,0 +1,25 @@
+//chapter-3 page 50 example 3.6

+//==============================================================================

+clc;

+clear;

+

+Zl=100;//Pure Load resistance of a dipole antenna in ohms

+Z0=600;//Characteristic Impedance of a wire feeder in ohms

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

+c=3*10^8;//Velocity of Light in m/sec

+

+//CALCULATIONS

+w=c/f;//Wave Length in met

+l=((w/(2*(%pi)))*atan(sqrt(Zl/Z0)));//The position of the Stub in met

+x=atand(sqrt((Zl*Z0))/(Zl-Z0));

+y=180+x;//In Degrees

+l1=((w/(2*(%pi)))*y);//Length of Short Circuited Stub in met

+l0=l1*((%pi)/180);

+

+//OUTPUTS

+mprintf('\nThe Point of Attachment is l=%1.3f met \nLength of SC Stub is l1=%1.2f met',l,l0);

+

+//=========================END OF PROGRAM==============================================================

+

+

+

diff --git a/1979/CH3/EX3.7/Ex3_7.sce b/1979/CH3/EX3.7/Ex3_7.sce
new file mode 100755
index 000000000..e83a90230
--- /dev/null
+++ b/1979/CH3/EX3.7/Ex3_7.sce
@@ -0,0 +1,21 @@
+//chapter-3 page 50 example 3.7

+//==============================================================================

+clc;

+clear;

+

+Z0=50;//Characteristic Impedance in ohms

+S=3.2;//Voltage Standing Wave Ratio(VSWR)

+

+//It is possible to measure the load impedance if the line is assumed lossless,by measuring the VSWR,wavelength and the distance from the load to the nearest voltage minimum

+//CALCULATIONS

+w=1;//Assume Wavelength in met

+Xmin=0.23*w;//Distance from the load to the nearest voltage minimum in met

+b=(2*(%pi))/w;

+Zl=Z0*((1-(S*(%i)*tan(b*Xmin)))/(S-((%i)*tan(b*Xmin))));//Load impedance in ohms

+disp('Load impedance in ohms is');

+disp(Zl);

+

+

+//=========================END OF PROGRAM===================================================

+

+//Note: Check the answer given in Text book once. I think it is wrong in text book..

diff --git a/1979/CH3/EX3.8/Ex3_8.sce b/1979/CH3/EX3.8/Ex3_8.sce
new file mode 100755
index 000000000..43424a3d3
--- /dev/null
+++ b/1979/CH3/EX3.8/Ex3_8.sce
@@ -0,0 +1,28 @@
+//chapter-3 page 51 example 3.8

+//==============================================================================

+clc;

+clear;

+

+Z0=50;//Characteristic Impedance in ohms

+Zl=100;//Load impedance in ohms

+f=300*10^3;//Frequency in Hz

+Pl=0.05;//Load Power in watts

+c=3*10^8;//Velocity of Light in m/sec

+

+//CALCULATIONS

+w=c/f;//Wave Length in met

+p=((Zl-Z0)/(Zl+Z0));//Reflection Coefficient

+S=((1+p)/(1-p));//Voltage Standing Wave Ratio(VSWR)

+

+//Since Zl>Z0, first Vmax is located at the load and first Vmin is located at Wavelength/4

+x1max=0;//Position of first Vmax (located at the load) from load in met

+x1min=w/4;//Position of first Vmin from load in met

+Vmax=sqrt(Pl*Zl);//Value of maximum voltage in volts

+Vmin=Vmax/S;//Value of minimum voltage in volts

+Zmax=Z0*S;//Impedance at Vmax in ohms

+Zmin=Z0/S;//Impedance at Vmin in ohms

+

+//OUTPUTS

+mprintf('\nVoltage Standing Wave Ratio(VSWR) is S=%1.0f \nPosition of first Vmax from load is x1max=%d met (located at the load) \nPosition of first Vmin from load is x1min=%3.0f met \nValue of maximum voltage is Vmax=%1.2f volts \nValue of minimum voltage is Vmin=%1.2f volts \nImpedance at Vmax is Zmax=%3.0f ohms \nImpedance at Vmin is Zmin=%2.0f ohms',S,x1max,x1min,Vmax,Vmin,Zmax,Zmin);

+

+//=========================END OF PROGRAM==============================================================

diff --git a/1979/CH3/EX3.9/Ex3_9.sce b/1979/CH3/EX3.9/Ex3_9.sce
new file mode 100755
index 000000000..f4b7eaa82
--- /dev/null
+++ b/1979/CH3/EX3.9/Ex3_9.sce
@@ -0,0 +1,22 @@
+//chapter-3 page 52 example 3.9

+//==============================================================================

+clc;

+clear;

+

+Z0=600;//Characteristic Impedance in ohms

+Zs=50;//Generator impedance in ohms

+l=200;//Length of transmission line in met

+Zl=500;//Load impedance in ohms

+

+//CALCULATIONS

+p=((Zl-Z0)/(Zl+Z0));//Reflection Coefficient

+x=abs(p);

+Lr=10*log10(1/(1-x^2));//Reflection loss in dB

+La=0;//Since the line is lossless,attenuation loss is zero dB

+Lt=La+Lr;//Transmission loss in dB

+Lrt=10*log10(x);//Return loss in dB

+

+//OUTPUT

+mprintf('\nReflection loss is Lr=%1.3f dB \nTransmission loss is Lt=%1.3f dB \nReturn loss is Lrt=%2.3f dB',Lr,Lt,Lrt);

+

+//=========================END OF PROGRAM==============================================================