path: root/1397/CH8/EX8.9/8_9.sce

//clc();
clear;
//To calculate refrative index of core
delta=0.14;          //fractional index change
n2=1.3;              //refractive index of cladding
n1=n2/(1-delta);
printf("refractive index of core is %f",n1);