The Rydberg Constant

Enter the average values of the wavelengths of the emission lines you measured and then click the mouse anywhere in the cell. Hit enter (not return) on the right-hand-side of the keyboard. The code below loops over some possible values of the alpha integer, calculates the value of the beta and gamma integers and prints the results.

\(\(λ\_\(\(α\)\(\ \)\) = \ 6774;\)

        \(λ\_β\  = \ 5016;\)

        \(λ\_γ\  = \ 4483;\)


        \(n\_f\  = \ 2;\)


        Print["Guess the alpha integer and calculate"]\)
Print["the beta integer first."]
		
Do[ (Subscript[n, β ])= (1/((Sqrt[(1/((Subscript[n, f])^2))  -  (((Subscript[λ, α])/(Subscript[λ, β])))×((1/((Subscript[n, f])^2))  -  (1/((Subscript[n, α])^2)))])));
	Print["\!\(n\_α\)=", 
                  N[(Subscript[n, α])], " | \!\(n\_β\)= ", 
                  N[(Subscript[n, β])]],
	{(Subscript[n, α]),  (Subscript[n, f])  +  1,  6,  1}
];
Print[" "]
Print["Guess the alpha integer again and calculate"]
Print["the gamma integer second."]
Print[" "]

Do[ (Subscript[n, γ ])= (1/((Sqrt[(1/((Subscript[n, f])^2))  -  (((Subscript[λ, α])/(Subscript[λ, γ])))×((1/((Subscript[n, f])^2))  -  (1/((Subscript[n, α])^2)))])));
	Print["\!\(n\_α\)=", 
                  N[(Subscript[n, α])], " | \!\(n\_γ\)= ", 
                  N[(Subscript[n, γ])]],
	{(Subscript[n, α]),  (Subscript[n, f])  +  1,  6}
];