blob: 86363d8386619d4a491c531556697a8960e35add (
plain)
1
2
3
4
5
6
7
8
9
10
|
// Scilab Code Ex2.16 Wavelength of Balmer H_beta line: Pg:57 (2008)s
L_Hb = 6563e-010; // Wavelength of H_beta line, m
R = 1.097e+07; // Rydberg constant, per metre
L1 = 36/(5*R); // Wavenumber of H_alpha line, per metre
L2 = 16/(3*R); // Wavenumber of H_beta line, per metre
L_ratio = L2/L1; // Ratio of wavelengths of H_beta and H_alpha lines
L2 = L_ratio*L1; // Wavelength of Balmer H_beta line, m
printf("\nThe wavelength of Balmer H_beta line = %4d angstrom", L2/1e-010);
// Result
// The wavelength of Balmer H_beta line = 4861 angstrom
|
