3 files changed, 44 insertions, 0 deletions
diff --git a/728/CH4/EX4.13/Ex4_12.sce b/728/CH4/EX4.13/Ex4_12.sce
new file mode 100755
index 000000000..cc6ebf8c1
--- /dev/null
+++ b/728/CH4/EX4.13/Ex4_12.sce
@@ -0,0 +1,16 @@
+//Caption:Calculate (i)-cutoff wavelength,(ii)-cutoff frequency,(iii)-wavelength in guide
+//Exa:4.12
+clc;
+clear;
+close;
+c=3*10^10;//in cm/s
+d=4;//in cm
+r=d/2;//in cm
+wl_c=2*%pi*r/1.841;//in cm
+f_c=c/wl_c;
+f_signal=5*10^9;//in Hz
+wl_o=c/f_signal;
+wl_g=wl_o/sqrt(1-(wl_o/wl_c)^2);
+disp(wl_c,'Cut-off wavelength (in cm) =');
+disp(f_c,'Cut-off frequency (in Hz) =');
+disp(wl_g,'Guide wavelength (in cm) =');
+\ No newline at end of file
diff --git a/728/CH4/EX4.13/Ex4_12.txt b/728/CH4/EX4.13/Ex4_12.txt
new file mode 100755
index 000000000..65db64e03
--- /dev/null
+++ b/728/CH4/EX4.13/Ex4_12.txt
@@ -0,0 +1,16 @@
+//Caption:Calculate (i)-cutoff wavelength,(ii)-cutoff frequency,(iii)-wavelength in guide
+//Exa:4.12
+clc;
+clear;
+close;
+c=3*10^10;//in cm/s
+d=4;//in cm
+r=d/2;//in cm
+wl_c=2*%pi*r/1.841;//in cm
+f_c=c/wl_c;
+f_signal=5*10^9;//in Hz
+wl_o=c/f_signal;
+wl_g=wl_o/sqrt(1-(wl_o/wl_c)^2);
+disp(wl_c,'Cut-off wavelength (in cm) =');
+disp(f_c,'Cut-off frequency (in Hz) =');
+disp(wl_g,'Guide wavelength (in cm) =');
diff --git a/728/CH4/EX4.13/Ex4_12_ans.txt b/728/CH4/EX4.13/Ex4_12_ans.txt
new file mode 100755
index 000000000..fc4c9ed0d
--- /dev/null
+++ b/728/CH4/EX4.13/Ex4_12_ans.txt
@@ -0,0 +1,12 @@
+Cut-off wavelength (in cm) =   
+ 
+    6.8258396  
+ 
+ Cut-off frequency (in Hz) =   
+ 
+    4.395D+09  
+ 
+ Guide wavelength (in cm) =   
+ 
+    12.583938  
+