diff options
Diffstat (limited to '72/CH11')
-rwxr-xr-x | 72/CH11/EX11.1.1/11_1_1.sce | 23 | ||||
-rwxr-xr-x | 72/CH11/EX11.2.1/11_2-1.sce | 55 | ||||
-rwxr-xr-x | 72/CH11/EX11.3.1/11_3_1.sce | 20 | ||||
-rwxr-xr-x | 72/CH11/EX11.4.1/11_4_1.sce | 29 |
4 files changed, 127 insertions, 0 deletions
diff --git a/72/CH11/EX11.1.1/11_1_1.sce b/72/CH11/EX11.1.1/11_1_1.sce new file mode 100755 index 000000000..51e262a2d --- /dev/null +++ b/72/CH11/EX11.1.1/11_1_1.sce @@ -0,0 +1,23 @@ +//CAPTION: Characteristic_Impedance_of_Microstrip_line
+//chapter_no.-11, page_no.-495
+//Example_no.11-1-1
+
+clc;
+
+
+er=5.23;//relative_dielectric_constant
+h=7;//height_from_microstrip_line_to_the_ground
+t=2.8;//thickness_of_the_microstrip_line
+w=10;//width_of_the_microstrip_line
+Z0=(87*(log((5.98*h)/(t+(.8*w)))))/sqrt(er+1.41);
+disp(Z0,'the_characteristic_impedance_of_the_line(in ohms)is =');
+
+
+
+
+
+
+
+
+
+
diff --git a/72/CH11/EX11.2.1/11_2-1.sce b/72/CH11/EX11.2.1/11_2-1.sce new file mode 100755 index 000000000..481cad6d9 --- /dev/null +++ b/72/CH11/EX11.2.1/11_2-1.sce @@ -0,0 +1,55 @@ +//CAPTION: Characteristics_of_a_Parallel_Strip_Line
+//chapter_no.-11, page_no.-505
+//Example_no.11-2-1
+
+clc;
+
+//(a) Calculate the required width of the conducting strip
+erd=6;//relative_dielectric_constant
+d=4*(10^-3);//thickness
+Z0=50;//characteristic_impedance
+
+w=(377*(d))/((sqrt(erd))*Z0);
+disp(w,'the_required_width_of_the_conducting_strip(in metres)is =');
+
+//(b) Calculate_the_strip_line_capacitance
+
+ed=8.854*(10^-12)*erd;
+d=4*(10^-3);//thickness
+C=(ed*w)/d;
+C=C*(10^12);
+disp(C,'the_strip_line_capacitance(in pF/m)is =');
+
+
+
+
+//(c) Calculate_the_strip_line_inductance
+
+uc=4*%pi*(10^-7);
+d=4*(10^-3);//thickness
+C=(uc*d)/w;
+C=C*(10^6);
+disp(C,'the_strip_line_inductance(in uH/m)is =');
+
+//(d)Calculate_the_phase_velocity_of_the_wave_in_the_parallel_strip_line
+
+c=3*(10^8);
+
+vp=c/(sqrt(erd));
+disp(vp,'the_phase_velocity_of_the_wave_in_the_parallel_strip_line(in m/s)is =');
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/72/CH11/EX11.3.1/11_3_1.sce b/72/CH11/EX11.3.1/11_3_1.sce new file mode 100755 index 000000000..953214fed --- /dev/null +++ b/72/CH11/EX11.3.1/11_3_1.sce @@ -0,0 +1,20 @@ +//CAPTION:Characteristic_Impedance_of_a_Coplanar_Stripline
+//chapter_no.-11, page_no.-507
+//Example_no.11-3-1
+
+clc;
+
+Pavg=250*(10^-3);//average_power_flowing_in_the_positive_z_direction
+Io=100*(10^-3);//total_peak_current
+Z0=(2*Pavg)/(Io^2);
+disp(Z0,'the_characteristic_impedance_of_the_coplanar_strip_line(in ohms)is =');
+
+
+
+
+
+
+
+
+
+
diff --git a/72/CH11/EX11.4.1/11_4_1.sce b/72/CH11/EX11.4.1/11_4_1.sce new file mode 100755 index 000000000..23abdf5d8 --- /dev/null +++ b/72/CH11/EX11.4.1/11_4_1.sce @@ -0,0 +1,29 @@ +//CAPTION:Characteristic_Impedance_of_a_Shielded_Strip_Line
+//chapter_no.-11, page_no.-508
+//Example_no.11-4-1
+
+
+clc;
+
+
+//(a)Calculate_the_K_factor
+
+er=2.56//relative_dielectric_constant
+w=25;//strip_width
+t=14;//strip_thickness
+d=70;//shield_depth
+K=1/(1-(t/d));
+disp(K,'the_K_factor is =');
+
+//(b)Calculate_the_fringe_capacitance
+
+Cf=((8.854*er)*((2*K*log(K+1))-((K-1)*log((K^2)-1))))/%pi;
+disp(Cf,'the_fringe_capacitance(in pF/m)is =');
+
+
+//(c) Calculate_the_characteristic_impedance_of_the_line
+
+Z0=94.15/((((w/d)*K)+(Cf/(8.854*er)))*(sqrt(er)));
+disp(Z0,'the_characteristic_impedance_of_the_line(in ohms)is =');
+
+
|