1 files changed, 15 insertions, 0 deletions
diff --git a/1985/CH5/EX5.4/chapter5_Example4.sce b/1985/CH5/EX5.4/chapter5_Example4.sce
new file mode 100755
index 000000000..5fe356511
--- /dev/null
+++ b/1985/CH5/EX5.4/chapter5_Example4.sce
@@ -0,0 +1,15 @@
+clc
+clear
+//Input data
+no=1.76//Refractive index of the ruby rod
+vo=4.3*10^14//Frequency in Hz
+dvo=1.5*10^11//The doppler broadening in Hz
+t21=4.3*10^-3//Lifetime of spontantaneous emission in s
+tp=6*10^-9//Lifetime of photon in s
+c=(3*10^8)//Velocity of light in m/s
+
+//Calculations
+dN=((4*3.14^2*vo^2*no^3*t21*dvo)/(c^3*tp))/10^23//The difference between the population of the excited state and the ground state in m^-3
+
+//Output
+printf('The difference between the population of the excited state and the ground state is %3.3f*10^23 m^-3',dN)