summaryrefslogtreecommitdiff
path: root/1397/CH8/EX8.1/8_1.sce
blob: 10d293fd74204604398634f026ae0128c29959f1 (plain)
1
2
3
4
5
6
7
8
//clc();
clear;
//To calculate refractive index of material of the core
NA=0.39;        //numerical aperture 
delta=0.05;     //fractional index change
A=sqrt(2*delta);
n1=NA/A;
printf("refractive index of the core is %f",n1);