1 files changed, 11 insertions, 0 deletions
diff --git a/1619/CH1/EX1.14.8/Example1_14_8.sce b/1619/CH1/EX1.14.8/Example1_14_8.sce
new file mode 100755
index 000000000..5f26f6ba4
--- /dev/null
+++ b/1619/CH1/EX1.14.8/Example1_14_8.sce
@@ -0,0 +1,11 @@
+//Example 1.14.8 page 1.47
+//To find cutoff wavelength..
+
+clc;
+clear;
+ n1= 1.48;  //RI of core..
+ a= 4.5;    //core radius in um..
+del= 0.0025;    //Relative RI difference..
+V= 2.405;       //For step index fibre..
+lamda= (2*%pi*a*n1*sqrt(2*del))/V;      //cutoff wavelength..
+printf('The cutoff wavelength is %.2f um ',lamda);