8 files changed, 317 insertions, 0 deletions
diff --git a/72/CH3/EX3.1.1/3_1_1.sce b/72/CH3/EX3.1.1/3_1_1.sce
new file mode 100755
index 000000000..3bc7a51b8
--- /dev/null
+++ b/72/CH3/EX3.1.1/3_1_1.sce
@@ -0,0 +1,38 @@
+// CAPTION:Calculate_the_Line_Characteristic_Impedance_and_Propagation_constant
+//chapter_no.-3,  page_no.-84
+//Example_no.3-1-1
+
+clc;
+
+
+//(a)Calculate_the_line_Characteristic_Impedance
+
+
+R=2;
+L=8*(10^-9);
+C=.23*(10^-12);
+f=1*(10^9);
+G=.5*(10^-3);
+w=2*%pi*f;
+
+Z0=sqrt((R+(%i*w*L))/(G+(%i*w*C)));
+x=real(Z0);
+y=imag(Z0);
+o=atand(y,x);
+disp(o,'the_phase_of_Z0_is =');
+M=abs(Z0);//magintue_of_Z0
+disp(M,'the_magnitude_of_Z0_is =');
+disp(Z0,'the_line_characteristic_impedance is =');
+
+
+
+//(b)Calculate_the_propagation_constant
+
+r=sqrt((R+(%i*w*L))*(G+(%i*w*C)));
+x=real(r);
+y=imag(r);
+o=atand(y,x);
+disp(o,'the_phase_of_r_is =');
+M=abs(r);//magintue_of_r
+disp(M,'the_magnitude_of_r_is =');
+disp(r,'the_propagation_constant is =');
+\ No newline at end of file
diff --git a/72/CH3/EX3.2.1/3_2_1.sce b/72/CH3/EX3.2.1/3_2_1.sce
new file mode 100755
index 000000000..386d69d75
--- /dev/null
+++ b/72/CH3/EX3.2.1/3_2_1.sce
@@ -0,0 +1,71 @@
+//CAPTION:Calculate_the_reflection_coefficient_and_the_transmission_coefficient
+
+//chapter_no.-3,  page_no.-89
+//Example_no.3-2-1
+clc;
+
+
+//(a)Calculate_the_reflection_coefficient
+
+
+Zl=70+(%i*50);
+Z0=75+(%i*.01);
+r=(Zl-Z0)/(Zl+Z0);
+x=real(r);
+y=imag(r);
+o=atand(y,x);
+disp(o,'the_phase_of_reflection_coefficient is =');
+M=abs(r);//magintue_of_r
+disp(M,'the_magnitude_of_reflection_coefficient_is =');
+disp(r,'the_reflection_coefficient is =');
+
+
+
+
+//(b)Calculate_the_transmission_coefficient
+
+
+T=(2*Zl)/(Zl+Z0);
+x=real(T);
+y=imag(T);
+o=atand(y,x);
+disp(o,'the_phase_of_transmission_coefficient is =');
+M=abs(T);//magintue_of_T
+disp(M,'the_magnitude_of_transmission_coefficient_is =');
+disp(T,'the_transmission_coefficient is =');
+
+
+
+//(c)Verify_the_relationship_shown_in_Eq(3-2-21)
+
+
+T2=T^2;
+x=real(T2);
+y=imag(T2);
+o=atand(y,x);
+disp(o,'the_phase_of_T^2_is =');
+M=abs(T2);//magintue_of_T^2
+disp(M,'the_magnitude_of_T^2_is =');
+disp(T2,'T^2 =');
+
+p=(Zl/Z0)*(1-(r^2));
+x=real(p);
+y=imag(p);
+o=atand(y,x);
+disp(o,'the_phase_of_(Zl/Z0)*(1-(r^2)_is =');
+M=abs(T2);//magintue_of_(Zl/Z0)*(1-(r^2)
+disp(M,'the_magnitude_of_(Zl/Z0)*(1-(r^2)_is =');
+disp(p,'(Zl/Z0)*(1-(r^2)) = ');
+disp('since T^2=(Zl/Z0)*(1-(r^2)) hence the_relationship_shown_in_Eq(3-2-21) is verified');
+
+
+
+
+//(d)Verify_the_transmission_coefficient_equals_equals_the_algebraic_sum_of_1_plus_the_reflection_coefficient_as_shown_in_Eq(2-3-18)
+
+
+y=r+1;
+
+disp(T,'T =');
+disp(y,'r+1 = ');
+disp('since T = r+1 hence the_relationship_shown_in_Eq(2-3-18) is verified');
diff --git a/72/CH3/EX3.3.1/3_3_1.sce b/72/CH3/EX3.3.1/3_3_1.sce
new file mode 100755
index 000000000..0afcf97e0
--- /dev/null
+++ b/72/CH3/EX3.3.1/3_3_1.sce
@@ -0,0 +1,27 @@
+//CAPTION:Standing-Wave_Ratio
+//chapter_no.-3,  page_no.-93
+//Example_no.3-3-1
+clc;
+
+//(a)Calculate_the_reflection_coefficient
+
+
+Zl=73-(%i*42.5);
+Z0=50+(%i*.01);
+rl=(Zl-Z0)/(Zl+Z0);
+x=real(rl);
+y=imag(rl);
+o=atand(y,x);
+disp(o,'the_phase_of_reflection_coefficient is =');
+
+M=abs(rl);//magintue_of_r
+disp(M,'the_magnitude_of_reflection_coefficient_is =');
+disp(rl,'the_reflection_coefficient is =');
+
+
+
+//(b)Calculate_the_standing-wave_ratio
+
+
+p=(1+M)/(1-M);
+disp(p,'the_standing-wave_ratio is =');
diff --git a/72/CH3/EX3.4.1/3_4_1.sce b/72/CH3/EX3.4.1/3_4_1.sce
new file mode 100755
index 000000000..ddb5c7bd8
--- /dev/null
+++ b/72/CH3/EX3.4.1/3_4_1.sce
@@ -0,0 +1,63 @@
+//CAPTION: Line_impedance
+
+//chapter_no.-3,  page_no.-99
+//Example_no.3-4-1
+
+clc;
+
+
+//(a)Calculate_the_input_impedance
+
+
+syms x ;//x_is_wavelength
+Bd=(((2*%pi)/x)*(x/4));
+disp(Bd,'from_Eq(3-4-26)_the_line_that_is_2.25_wavelengths_long_looks like_a_quarter-wave line,then Bd= ');
+
+R0=50;//input_impedance
+Rl=75;//load_resistance
+Zin=(R0^2)/Rl;
+disp(Zin,'From_Eq(3-4-26),the_input_impedance((in_ohms)_is = ');
+
+
+//(b)Calculate_the_magnitude_of_the_instantaneous_load_voltage
+
+
+R0=50;//input_impedance
+Rl=75;//load_resistance
+rl=(Rl-R0)/(Rl+R0);
+disp(rl,'the_reflection_coefficient is =');
+
+
+
+//(b)Calculate_the_magnitude_of_the_instantaneous_load_voltage
+
+
+R0=50;//input_impedance
+Rl=75;//load_resistance
+rl=(Rl-R0)/(Rl+R0);
+disp(rl,'the_reflection_coefficient is =');
+
+V=30;//open-circuit_output_voltage
+
+Vl=V*(exp(-1*%i*Bd))*(1+rl);
+Vl=abs(Vl);
+disp(Vl,'the_instantaneous_voltage_at_the_load(in V)_is =');
+
+
+
+//(c) Calculate_the_instantaneous_power_delivered_to_the_load
+
+
+Pl=(Vl^2)/Rl;
+disp(Pl,'the_instantaneous_power_delivered_to_the_load(in W)is =');
+
+
+
+
+
+
+
+
+
+
+
diff --git a/72/CH3/EX3.5.1/3_5_1.sce b/72/CH3/EX3.5.1/3_5_1.sce
new file mode 100755
index 000000000..a88bcce30
--- /dev/null
+++ b/72/CH3/EX3.5.1/3_5_1.sce
@@ -0,0 +1,20 @@
+//CAPTION:location_Determination_of_voltage_maximum_and_minimum_from_load
+//chapter_no.-3,  page_no.-104
+//Example_no.3-5-1
+
+clc;
+
+Zl=1+ %i*1;//Given normalise load impedance
+disp('1. Enter Zl=1+(1*i) on the chart');
+disp('read .162lamda on the distance scale by drawing a dashed straight line from the centre of the chart through the load point and inersecting the distance circle');
+
+disp('2. move a distance from the point at .162lamda towards the generator and first stop at the voltage maxima on the right hand side real axis at .25lambda');
+lambda=5;//Given wavelength =5
+dVmax=(.25-.162)*lambda;
+disp(dVmax,'d1(Vmax) (in cm)=');
+
+disp('Similarly, ,move a distance from the point of .162lambda towards the generator and first stop at the voltage minimum on the left-hand real axis at .5lambda');
+dVmin=(.5-.162)*lambda;
+disp(dVmin,'d1(Vmin) (in cm)=');
+
+disp('4.Make a standing wave circle with the centre (1,0) and pass the circle through the point of 1+j1.The location intersected bythe circle at the right portion of the real axis indicates the SWR .this is p=2.6');
diff --git a/72/CH3/EX3.5.2/3_5_2.sce b/72/CH3/EX3.5.2/3_5_2.sce
new file mode 100755
index 000000000..2fe829d77
--- /dev/null
+++ b/72/CH3/EX3.5.2/3_5_2.sce
@@ -0,0 +1,19 @@
+//CAPTION:Impedance_determination_with_short-circuit_Minima_Shift
+//chapter_no.-3,  page_no.-106
+//Example_no.3-5-2
+
+clc;
+
+disp('1. When the line is shorted ,the first voltage minimum occurs at the place of the load ');
+
+disp('2 .When the line is loaded ,the first voltage minimum shifts .15lambda from the load .the distance between successive minimas is half the wavelength');
+
+disp('3.plot a SWR cirle for p=2');
+disp('4. Move a distance of .15lambda from the minimum point along the distance scale toward the load and stop at .15lambda');
+
+disp('5.Draw a circle from this point to the centre of the chart.');
+disp('6. The intersection between the line and the SWR circle is Zt=1-j*.65');
+Zt=1-(%i*.65);
+Z0=50;//characeristic impedance of the line
+Zl=Zt*Z0;
+disp(Zl,'The load impedance is(in ohm)=');
diff --git a/72/CH3/EX3.6.1/3_6_1.sce b/72/CH3/EX3.6.1/3_6_1.sce
new file mode 100755
index 000000000..883dfceea
--- /dev/null
+++ b/72/CH3/EX3.6.1/3_6_1.sce
@@ -0,0 +1,37 @@
+//CAPTION:Single-Stub_Matching
+//chapter_no.-3,  page_no.-108
+////Example_no.3-6-1
+clc;
+
+R0=50;//characteristic impedance
+Zl=50/(2+%i*(2+sqrt(3)));
+zl=R0/Zl;//normaised load impedance
+yl=1/zl;//normaised load admittance
+disp('1. compute the normalised load admittance and enter it on the smith chart');
+
+disp('2 .Draw a SWR circle throuh the point of yl so that he circle intersects the unity circle at the point yd ');
+yd=1- %i*2.6;
+disp(yd,'yd=');
+
+disp('note that there are infinite number of yd.take the one that allows the stub to be attached as closely as possible the load');
+
+disp('3. since the charcteristic impedance of the stub is different from that of the line ,the condition for impedance matching at the junction requires Y11=Yd + Ys ,where Ys is the susceptance that the stub will contribute');
+  disp('it is clear that the stub and the portion of the line from the load to the junction are in parallel,as seen by the main line extending to the generator .the admittance must be converted to normalised values for matching on the smith chart .the our equation becomes');
+  
+  disp('y11*Y0= yd*Y0 + ys*y0s');
+  y11=1;
+  Y0=100;//charcteristic impedance of the stub
+  Y0s=50;
+  ys=(y11-yd)*(Y0/Y0s);  
+  
+  disp('4. the distance between the load and the stub position can be calculated from the distance scale as d=(.302-.215)*lambda');
+  
+  disp('5.since the stub contributes a susceptance of j5.20 ,enter j5.20 on the chart and determine the required distance l from the short circuited end(z=0,y=infinity),which corresponds to the right side of the real axis on the chart,by transversing the chart towards the generator until the point of j5.20 is reached.  Then l=(.5 -.031)lambda =.469lambda.  When a line is matched at the junction ,there will be no standing wave in the line from the stub to the generator');
+  
+  disp('If an inductive stub is required yd = 1+j*.26 and the susceptance will be ys =-j*5.2');
+  
+  disp('7.The position of the stub from the load is d=(.5-(.215-.198))lambda = .483lambda     and the length of the short-circuted stub is l =.031 lambda');
+  
+  
+  
+   
+\ No newline at end of file
diff --git a/72/CH3/EX3.6.2/3_6_2.sce b/72/CH3/EX3.6.2/3_6_2.sce
new file mode 100755
index 000000000..d943296a3
--- /dev/null
+++ b/72/CH3/EX3.6.2/3_6_2.sce
@@ -0,0 +1,42 @@
+//CAPTION:Double_stub_matching
+//chapter_no.-3,  page_no.-111
+//Example_no.3-6-2
+clc;
+
+Zl=100+(%i*100);
+R0=50;//charcteristic impedance of the stub and the line
+
+zl=Zl/R0;
+disp('1. compute the normalised load admittance and enter it on the smith chart');
+
+disp('2 .plot a SWR circle and read the normalised load admittance 180 degree out of phase with zl on the SWR circle : ');
+yl=1/zl;
+disp(yl,'yl=');
+
+disp('3. Draw the spacing circle of (3/8)lambda by rotating the constant-conductance unity circle (g=1) through a phase angle of 2Bd=2B(3/8lambda) =3/2(%pi)towards the load .now y11 must be on this spacing circle ,since yd2 will be on the g=1 circle(y11 and yd2 are 3/8lambda apart)');
+
+disp('4. move yl for a distance of .4lambda from .458 to .358 along the SWR p circle toward the generator and read yd1 on the chart:');
+
+yd1=.55- %i*1.08;
+disp('yd1=.55-%i*1.08')
+disp('5. there are two possible solutions for y11.they can be found by carrying yd1 along the constant-conducatnce (g=0.55)circle that intersects the spacing circle at two points        y11=.55-j(.11), y11=.55-j(1.88)');
+
+y11=.55-(%i*.11);
+y112=.55-(%i*1.88);
+
+disp('at the junction 1-1  y11=yd1+ys1');
+ys1=y11-yd1;
+disp(ys1,'ys1=');
+ys12=y112-yd1;
+disp(ys12,'ys12=');
+
+disp('7. the length of the stub 1 are found as l1=(.25+.123)lambda=.373lambda  l1`=(.25-.107)lambda=.143lambda');
+
+disp('8. the 3/8lambda section of the line transforms y11 to yd2 and y11 to yd2` along their constant standing-wave circles respectively .That is  yd2=1-(%i*.61)  and yd2`=1+(%i*2.60)');
+
+yd2=1-(%i*.61);
+yd22=1+(%i*2.60);
+
+disp('9. Then stub 2  must contribute ys2=(.61*%i) and ys2`=(-2.6*%i)');
+disp('10. the length of the stub 1 are found as l2=(.25+.087)lambda=.337lambda  l1`=(.308-.25)lambda=.058lambda');
+disp('11. It can be seen that normaised impedance yl located inside the hatched area cannot be brought to lie on the locus of y11 or y112 for a possible match by the parallel connection of any short-circuited stub because the spacing circle and g=2 circle are mutually tangent.Thus the area of g=2circle is called the forbidden region of the normalised load admittance for possible match.')