Virtual Experiment on the Bohr Atom