3 files changed, 35 insertions, 0 deletions
diff --git a/728/CH4/EX4.22/Ex4_22.sce b/728/CH4/EX4.22/Ex4_22.sce
new file mode 100755
index 000000000..4f50012da
--- /dev/null
+++ b/728/CH4/EX4.22/Ex4_22.sce
@@ -0,0 +1,15 @@
+//Caption:Calculate the peak value of electric feild occuring in the waveguide 
+//Exa:4.22
+clc;
+clear;
+close;
+c=3*10^10;//in cm/s
+f=30*10^9;//inHz
+a=1;//in cm
+b=1;
+P_max=746;//in watts
+wl_o=c/f;
+wl_c=2*a;
+Z=120*%pi/sqrt(1-(wl_o/wl_c)^2);
+E_max=sqrt(P_max*4*Z/(a*b/10000));
+disp(E_max/1000,'Peak value of electric field (in kV/m) =');
diff --git a/728/CH4/EX4.22/Ex4_22.txt b/728/CH4/EX4.22/Ex4_22.txt
new file mode 100755
index 000000000..4f50012da
--- /dev/null
+++ b/728/CH4/EX4.22/Ex4_22.txt
@@ -0,0 +1,15 @@
+//Caption:Calculate the peak value of electric feild occuring in the waveguide 
+//Exa:4.22
+clc;
+clear;
+close;
+c=3*10^10;//in cm/s
+f=30*10^9;//inHz
+a=1;//in cm
+b=1;
+P_max=746;//in watts
+wl_o=c/f;
+wl_c=2*a;
+Z=120*%pi/sqrt(1-(wl_o/wl_c)^2);
+E_max=sqrt(P_max*4*Z/(a*b/10000));
+disp(E_max/1000,'Peak value of electric field (in kV/m) =');
diff --git a/728/CH4/EX4.22/Ex4_22_ans.txt b/728/CH4/EX4.22/Ex4_22_ans.txt
new file mode 100755
index 000000000..faaf679e6
--- /dev/null
+++ b/728/CH4/EX4.22/Ex4_22_ans.txt
@@ -0,0 +1,5 @@
+ 
+ Peak value of electric field (in kV/m) =   
+ 
+    113.97239  
+ 
+\ No newline at end of file