3 files changed, 35 insertions, 0 deletions
diff --git a/728/CH4/EX4.24/Ex4_24.sce b/728/CH4/EX4.24/Ex4_24.sce
new file mode 100755
index 000000000..102fc9259
--- /dev/null
+++ b/728/CH4/EX4.24/Ex4_24.sce
@@ -0,0 +1,15 @@
+//Caption:Calculate the breakdown power of circular waveguide
+//Exa:4.24
+clc;
+clear;
+close;
+//Given: 
+d=5;//in cm
+c=3*10^10;//in cm/s
+f=9*10^9;//inHz
+//Dominant mode is TE11:
+wl_o=c/f;
+wl_c=%pi*d/1.841;
+f_c=c/wl_c;
+P_bd_TE11=1790*(d/2)^2*[1-{f_c/f}^2]^0.5;
+disp(P_bd_TE11/1000,'Breakdown power (in kW) =');
+\ No newline at end of file
diff --git a/728/CH4/EX4.24/Ex4_24.txt b/728/CH4/EX4.24/Ex4_24.txt
new file mode 100755
index 000000000..102fc9259
--- /dev/null
+++ b/728/CH4/EX4.24/Ex4_24.txt
@@ -0,0 +1,15 @@
+//Caption:Calculate the breakdown power of circular waveguide
+//Exa:4.24
+clc;
+clear;
+close;
+//Given: 
+d=5;//in cm
+c=3*10^10;//in cm/s
+f=9*10^9;//inHz
+//Dominant mode is TE11:
+wl_o=c/f;
+wl_c=%pi*d/1.841;
+f_c=c/wl_c;
+P_bd_TE11=1790*(d/2)^2*[1-{f_c/f}^2]^0.5;
+disp(P_bd_TE11/1000,'Breakdown power (in kW) =');
+\ No newline at end of file
diff --git a/728/CH4/EX4.24/Ex4_24_ans.txt b/728/CH4/EX4.24/Ex4_24_ans.txt
new file mode 100755
index 000000000..04341cde4
--- /dev/null
+++ b/728/CH4/EX4.24/Ex4_24_ans.txt
@@ -0,0 +1,5 @@
+  
+ Breakdown power (in kW) =   
+ 
+    10.298427  
+ 
+\ No newline at end of file