diff options
Diffstat (limited to '1619/CH1/EX1.14.12/Example1_14_12.sce')
-rwxr-xr-x | 1619/CH1/EX1.14.12/Example1_14_12.sce | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/1619/CH1/EX1.14.12/Example1_14_12.sce b/1619/CH1/EX1.14.12/Example1_14_12.sce new file mode 100755 index 000000000..776dc98c3 --- /dev/null +++ b/1619/CH1/EX1.14.12/Example1_14_12.sce @@ -0,0 +1,25 @@ +//Example 1.14.12
+//To find noramlised frequency and number of modes
+
+clc;
+clear;
+
+lamda= 850*10^-9; //wavelength of operation.
+a= 25*10^-6; //Radius of core
+n1= 1.48; //RI of Core...
+n2= 1.46; //RI of cladding..
+
+NA= sqrt(n1^2-n2^2); //Numerical Aperture
+
+V= 2*%pi*a*NA/lamda; //Normalised frequency..
+printf('The normalised frequency is %.2f',V);
+
+lamda1= 1320*10^-9; // wavelength changed...
+V1= 2*%pi*a*NA/lamda1; //Normalised frequency at new wavelength..
+
+M= V1^2/2; //Number of modes at new wavelength..
+printf("\n\nThe number of modes in the fibre at 1320um are %d",M);
+lamda2= 1550*10^-9; //wavelength 2...
+V2= 2*%pi*a*NA/lamda2; //New normalised frequency..
+M1= V2^2/2; // number of modes..
+printf("\n\nThe number of modes in the fibre at 1550um are %d",M1);
|