1 files changed, 23 insertions, 0 deletions
diff --git a/3547/CH10/EX10.1/EX10_1.sce b/3547/CH10/EX10.1/EX10_1.sce
new file mode 100644
index 000000000..2e3655c4a
--- /dev/null
+++ b/3547/CH10/EX10.1/EX10_1.sce
@@ -0,0 +1,23 @@
+// Example 10.1
+// Calculation of the non linear coeffifient.
+// Page no 429
+
+clc;
+clear;
+close;
+
+//Given data
+n2=2.5*10^-20;                      // Kerr coefficient
+lambda=1550*10^-9;                 // Wavelength
+A=80*10^-12;                       // Effective area
+
+
+
+// Non linear coeffifient
+g=(n2*2*%pi)/(lambda*A); 
+g=g*10^3;
+
+
+//Displaying results in the command window            
+printf("\n Nonlinear coefficient = %0.3f W^-1m^-1 ",g);
+