blob: 6142215ad374a00b7a5ce3e2543de8365c2cf702 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
//Chapter 4 : Laser and Holography
clear;
//Variable declaration
lamda=6730*10**-18 //wavelength
h=6.63*10**-34 //planck's constant
c=3*10**8 //speed of light
P=10**-3 //Power of laser
//Calculations
n=(P*lamda)/(h*c)/10**5
//Result
mprintf("Wavelength of radiation= %d*10**15 photons/sec",n)
|
