blob: 85d177b994b6672e56a20c193163d74fb3f0c358 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
//Example 6.4, Page Number 260
//Beam collimation
clc;
//Considering a He-Ne Laser
d=3*(10**-3) //Diameter in meter
l=633*(10**-9) //Wavelength of the laser in meter
theta=l/d //theta is the divergence of the beam
mprintf("The Divergence of the Beam is %.1e rad\n",theta)
//After Collimation
theta=theta/30 //Reduced by a factor of 30
mprintf(" After Collimation,The angle of divergence is reduced to %.0e rad",theta)
|
