blob: 07a8fb091dbe4a778eefddb599b2de6f9988a210 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
//Example no 1.7
//To calculate a)the speed of light b) The wavelenght in medium c) The wavenumber in medium
//Page no. 25
clc;
clear all;
//a)The speed of light
c=3*10^8; //Speed of light in free space (m/s)
n=1.45; //Given refractive index of dielectric medium
v=(c/n); //Speed of light in medium (in m/s)
//Displaying the result in command window
printf('\n Speed of light in medium = %0.3f X 10^8 m/s',v*10^-8);
//b) The wavelenght in medium
f=190*10^12; //Given operating frequency of laser
lambdam=(v/f); //Wavelenght in medium
//Displaying the result in command window
printf('\n Wavelenght of laser in medium = %0.4f micrometer',lambdam*10^(6));
//c) The wavenumber in medium
k=(2*%pi)/lambdam; //Wavenumber in medium
//Displaying the result in command window
printf('\n Wavenumber in medium = %0.2f X 10^6 m^-1',k*10^-6)
|
