summaryrefslogtreecommitdiff
path: root/3753/CH1/EX1.9/Ex1_9.sce
blob: b32535efa9fc5e3520cbff34d87f7a389374444c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Example number 1.9, Page number 1.37

clc;clear;close


//Variable declaration
R=1// unitless
n=5// unitless
lamda=5.895*10**-7 // in m
dn=0.003 // in m

//Calculation
mu=(4*R*n*lamda)/(dn**2)

//Result
printf("Refractive index,mu = %0.2f",mu )