blob: 10e21b090d6704ae5a950fa7657e36d9c7537415 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
//Chapter 5 : Fibre Optics
clear;
//Variable declaration
delr=12*10**-3 //fractional refractive index change
NA=0.22 //Numerical aperture
//Calculations
n1=NA/sqrt(2*delr)
n2=n1-(n1*delr)
//Result
mprintf("Refractive index of core material= %f",n1)
mprintf("\nRefractive index of cladding material= %f",n2)
|
