summaryrefslogtreecommitdiff
path: root/3020/CH11/EX11.2/ex11_2.sce
blob: bbbb796ad9a254aacb75c7b1ed5d1ce4406d97ba (plain)
1
2
3
4
5
6
7
8
9
10
clc;
clear all;
T = 523; // Temperature in kelvin
c = 3e8;// Velocity of air
h = 6.626e-34; // Planck's constant
k = 1.38e-23; // Boltzmann's constant
e = 1.602e-19; // Charge of an electron
lambda = 5900e-10; // Wavelength of light in meters
r = exp(-((h*c)/(k*T*lambda))); // R =(N2/N1) Ratio between the atoms in the first excited state and ground state
disp('',r,'Ratio between the atoms in the first excited state and ground state')