//Example 1.3.
format(6)
Einfinity=0 //energy of electron at infinite orbit
E2=-13.6/2^2 //energy of electron at second orbit
wavelength=12400/(Einfinity-E2) //wavelength limit
disp("Wavelength of the Balmer series limit = 12400 / Einfinity-E2")
disp("Energy of the electron at the infinity orbit, Einfinity = -13.6 / infinity^2 = 0")
disp("Energy of the electron at the second orbit, E2 = -13.6 / 2^2 = -3.4")
disp(wavelength,"the wavelength limit(A.U) = 12400 / Einfinity-E2 =")