summaryrefslogtreecommitdiff
path: root/3020/CH11/EX11.6/ex11_6.sce
blob: b37253aaa5cd2d7f2d35bda8022f80b3916c5284 (plain)
1
2
3
4
5
6
7
8
9
10
11
clc;
clear all;
lambda = 6328e-10; // Wavelength of the laser beam
p = 2.3e-3; // Energy emitted by the laser in Joule/second
p1 = 2.3e-3*60; // Energy emitted by the laser in Joule/minute
c = 3e8; // Velocity of light in air
h = 6.626e-34 ; // Planck's constant
v = c/lambda; // Frequency of photon emitted by laser beam
E = h*v; // Energy of a photon
N = p1/E; // The number of photons emitted
disp('photons/minute',N,'The number of photons emitted')