1 files changed, 26 insertions, 0 deletions
diff --git a/1979/CH4/EX4.22/Ex4_22.sce b/1979/CH4/EX4.22/Ex4_22.sce
new file mode 100755
index 000000000..7aca58dc4
--- /dev/null
+++ b/1979/CH4/EX4.22/Ex4_22.sce
@@ -0,0 +1,26 @@
+//chapter-4 page 155 example 4.22
+//==============================================================================
+clc;
+clear;
+
+//For an air filled square waveguide
+a=0.01;//Length of an air filled square Waveguide in m
+b=0.01;//breadth of an air filled square Waveguide in m
+c=3*10^8;//Velocity of Light in m/sec
+f=30*10^9;//Frequency in Hz in TE11 mode
+Pmax=746;//Max power =1 horsepower  in W
+n=120*(%pi);//Impedance of freespace in ohms
+
+//CALCULATION
+w0=(c/f);//Free space wavelength in m
+wc=2*a;//Cutoff wavelength in m
+ZTE=(n/sqrt(1-(w0/wc)^2));//Impedance in ohms
+Emax=(sqrt((Pmax*4*ZTE)/(a*b)))/1000;//The Peak value of Electric field occuring in the guide in kV/m
+//From P=(1/2)*Integration(Re(E*H))da
+//and Pmax=(1/(4*ZTE))*Emax^2*a*b
+
+//OUTPUT
+mprintf('\nThe Peak value of Electric field occuring in the guide is Emax=%3.2f kV/m',Emax);
+
+//=========================END OF PROGRAM===============================
+