Orbitaly atomu vodíku

Jde o mou seminární práci (pdf) z gymnaziálních let (1994-1998), v Pascalu jsem začínal programovat u maminky v práci na procesoru 80286. Předtím šlo o 8 bitové stroje PMD na Základní škole Struhlovsko v Hranicích, kde jsme psali v Basicu, Žofce a Karlovi, a nostalgicky si z kazety nahrávali hru Manic Miner (příkazem LOAD CODE "MANIC"), která ale měla nejakou drobnou chybku, a tak se automaticky nespouštěla, což jsme prováděli záhadným příkazem JUMP 4E49 (skočilo se do paměti na příslušnou adresu:).

...mno ale zpět k mým orbitalům:)
Následující obrázky jsou v 256 barvách, program v současném stavu lze zetím bohužel spustit jen v módu s 16, ale brzo se to snad spraví:)

Program (orbits.zip, 61k) však umí mnohem více - třeba jednotlivé úhlové a radiální funkce

1s.gif
1s.gif
2pz.gif
2pz.gif
2s.gif
2s.gif
3dxz.gif
3dxz.gif
3dz2.gif
3dz2.gif
3px.gif
3px.gif
3s.gif
3s.gif
4dxz.gif
4dxz.gif
4dz2.gif
4dz2.gif
4fx3.gif
4fx3.gif
4fz2x.gif
4fz2x.gif
4fz3.gif
4fz3.gif
4pz.gif
4pz.gif
5gx4y4.gif
5gx4y4.gif
5gz3x.gif
5gz3x.gif
5gz4.gif
5gz4.gif