summaryrefslogtreecommitdiff
path: root/3547/CH10/EX10.1/EX10_1.sce
blob: 2e3655c4a3e4bfaf7014507bef042a9ecabb41da (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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);