summaryrefslogtreecommitdiff
path: root/3717/CH3/EX3.6/Ex3_6.sce
diff options
context:
space:
mode:
Diffstat (limited to '3717/CH3/EX3.6/Ex3_6.sce')
-rw-r--r--3717/CH3/EX3.6/Ex3_6.sce14
1 files changed, 14 insertions, 0 deletions
diff --git a/3717/CH3/EX3.6/Ex3_6.sce b/3717/CH3/EX3.6/Ex3_6.sce
new file mode 100644
index 000000000..213be9bc6
--- /dev/null
+++ b/3717/CH3/EX3.6/Ex3_6.sce
@@ -0,0 +1,14 @@
+// Ex3_6 Page:51 (2014)
+clc; clear;
+M = 1; // For simplicity assume mass of a proton to be unity, amu
+m_e = 1/1836; // Mass of an electron, amu
+m_d = 2*M; // Mass of a deuterium, amu
+lambda = 6562.8; // Wavelength of H_alpha line of hydrogen, angstrom
+mu = M/(1 + M/m_e); // Reduced mass of an electron-proton system, amu
+mu_prime = m_d/(1 + m_d/m_e); // Reduced mass of an electron-deuterium system, amu
+lambda_prime = lambda*mu/mu_prime; // Wavelength of H_alpha line of deuterium, angstrom
+printf("\nThe wavelength of H_alpha line of deuterium = %4d angstrom", lambda_prime);
+
+// Result
+// The wavelength of H_alpha line of deuterium = 6561 angstrom
+