summaryrefslogtreecommitdiff
path: root/2780/CH7/EX7.10/Ex7_10.sce
blob: 9d871e800bcf157607daeba1f08b695aa8b8a9b8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc
//to calculate wavelength
h=6.6*10^-34 //plank's constant in J/sec
m=9.1*10^-31 //mass of electron in kg
c=3*10^8 //light speed in m/s
lambda=h/(m*c)
disp("wavelength of quantum of radiant energy is lambda="+string(lambda)+"m")
//to calculate number of photons 
power=12 //power emitted by the lamp =150*(8/100) in watts
E=12 //energy emitted per second
lambda=4500*10^-10
energy=(h*c)/lambda //energy contained in one photon in J
number=E/energy
disp("number of photons emitted per sec is number="+string(number)+"unitless")