3 files changed, 34 insertions, 0 deletions
diff --git a/728/CH4/EX4.20/Ex4_20.sce b/728/CH4/EX4.20/Ex4_20.sce
new file mode 100755
index 000000000..eeba92d30
--- /dev/null
+++ b/728/CH4/EX4.20/Ex4_20.sce
@@ -0,0 +1,15 @@
+//Caption:Calculate the maximum power handling capacity
+//Exa:4.21
+clc;
+clear;
+close;
+c=3*10^10;//in cm/s
+f=9*10^9;//inHz
+a=3;//in cm
+b=1;//in cm
+E_max=3000;//in V/cm
+wl_o=c/f;
+wl_c=2*a;//in TE10
+wl_g=ceil (wl_o/sqrt(1-(wl_o/wl_c)^2));
+P_max=(6.63*10^-4)*E_max^2*a*b*(wl_o/wl_g);
+disp(P_max/1000,'Maximum power for rectangular waveguide (in kilowatts)=');
+\ No newline at end of file
diff --git a/728/CH4/EX4.20/Ex4_20.txt b/728/CH4/EX4.20/Ex4_20.txt
new file mode 100755
index 000000000..eeba92d30
--- /dev/null
+++ b/728/CH4/EX4.20/Ex4_20.txt
@@ -0,0 +1,15 @@
+//Caption:Calculate the maximum power handling capacity
+//Exa:4.21
+clc;
+clear;
+close;
+c=3*10^10;//in cm/s
+f=9*10^9;//inHz
+a=3;//in cm
+b=1;//in cm
+E_max=3000;//in V/cm
+wl_o=c/f;
+wl_c=2*a;//in TE10
+wl_g=ceil (wl_o/sqrt(1-(wl_o/wl_c)^2));
+P_max=(6.63*10^-4)*E_max^2*a*b*(wl_o/wl_g);
+disp(P_max/1000,'Maximum power for rectangular waveguide (in kilowatts)=');
+\ No newline at end of file
diff --git a/728/CH4/EX4.20/Ex4_20_ans.txt b/728/CH4/EX4.20/Ex4_20_ans.txt
new file mode 100755
index 000000000..9ea8d18d2
--- /dev/null
+++ b/728/CH4/EX4.20/Ex4_20_ans.txt
@@ -0,0 +1,4 @@
+  
+ Maximum power for rectangular waveguide (in kilowatts)=   
+ 
+    11.934  
+\ No newline at end of file