1 files changed, 45 insertions, 0 deletions
diff --git a/728/CH4/EX4.15/Ex4_15.sce b/728/CH4/EX4.15/Ex4_15.sce
new file mode 100755
index 000000000..fc616db2b
--- /dev/null
+++ b/728/CH4/EX4.15/Ex4_15.sce
@@ -0,0 +1,45 @@
+//Caption:Calculate what modes propagate at free space wavelength of (i)10 cm,(ii)5 cm
+//Exa:4.15
+clc;
+clear;
+close;
+c=3*10^10;//in cm/s
+wl_c_TE10=16;//Critical wavelength of TE10
+wl_c_TM11=7.16;//Critical wavelength of TM11
+wl_c_TM21=5.6;//Critical wavelength of TM21
+//For (i): 10 cm
+wl_o=10;//in cm
+disp(wl_o,'For free space wavelength (in cm) =');
+if(wl_c_TE10>wl_o)
+    disp('    TE10 can propagate');
+else
+    disp('    TE10 cannot propagate');
+end
+if(wl_c_TM11>wl_o)
+    disp('    TM11 can propagate');
+else
+    disp('    TM11 cannot propagate');
+end
+if(wl_c_TM21>wl_o)
+    disp('    TM21 can propagate');
+else
+    disp('    TM21 cannot propagate');
+end
+//For (ii): 5 cm
+wl_o=5;//in cm
+disp(wl_o,'For free space wavelength (in cm) =');
+if(wl_c_TE10>wl_o)
+    disp('    TE10 can propagate');
+else
+    disp('    TE10 cannot propagate');
+end
+if(wl_c_TM11>wl_o)
+    disp('    TM11 can propagate');
+else
+    disp('    TM11 cannot propagate');
+end
+if(wl_c_TM21>wl_o)
+    disp('    TM21 can propagate');
+else
+    disp('    TM21 cannot propagate');
+end
+\ No newline at end of file