1 files changed, 21 insertions, 0 deletions
diff --git a/3547/CH2/EX2.7/Ex2_7.sce b/3547/CH2/EX2.7/Ex2_7.sce
new file mode 100644
index 000000000..0655ea2fd
--- /dev/null
+++ b/3547/CH2/EX2.7/Ex2_7.sce
@@ -0,0 +1,21 @@
+// Example no.2.7
+// To find the core radius of step-index fiber
+// Page no.69
+
+clc;
+clear;
+
+// Given data
+n1=1.45;                                                         // Refractive index of core
+delta=0.005;
+n2=n1*(1-delta);                                                 // Refractive index of cladding
+lambdac=1.1;                                                     // Cutoff wavelength in meter
+lambda=1.55;                                                     // Operating wavelength in micrometer
+a=((2.4048*lambdac*10^-6)/(2*%pi*(n1^2-n2^2)^(1/2)))/10^-6;      // Core radius
+
+//Displaying the result in command window
+printf('\n The core radius of step-index fiber = %0.3f micrometer',a);
+printf('\n Operating wavelength = %0.2f micrometer',lambda);
+printf('\n Cutoff wavelength = %0.1f micrometer',lambdac);
+
+disp('Since operating wavelength is greater than cutoff wavelength, it is single moded at this wavelength.')