Celestial Basic je název knihy.
Schválně si ji najděte, stojí za to.
Když se podíváte třeba do jinak velmi pěkné knihy Astronomical Algorithms, kterou napsal Jean Meeus, co najdete?
Inu, najdete celkem pěkně vysvětlenou teorii a … vzorečky.
To mi ale s tím, abych si mohl napsat v basicu na osmibitu něco, co by mi ukazovalo polohy měsíců Jupitera, jako to dělá utilita na webu Sky & Telescope, moc nepomáhalo.
Chtěl jsem ty matematické zápisy převést na výrazy, kterým programovací jazyk rozumí, smyčky, podmínky, znáte to.
A to je přesně to, co najdete v knize Celestial Basic – už hotové programy pro Apple ][ a Exidy Sorcerer (autoři ovšem počítají s tím, že si je budete přepisovat i třeba na Atari, PET nebo TRS-80).
Z dob socialismu si jistě pamatujete přepisování desítek řádků programů, zveřejněných v ABC mladých techniků a přírodovědců.
Zkusil jsem ale pohledat, zda programy nepřepsal do počítače už někdo přede mnou a neuložil na internet – a hle, našel jsem kompletní distribuci zveřejněných programů na dvou stranách diskety (takže jde o dva image – v této rozdělené podobě se dá najít na MacGUI) jako public domain od Dynacomps.
Kniha od nakladatelství Sybex je z roku 1983, roku 1985 vyšla reedice.
Kniha je řazená a koncipovaná podobně jako Astronomical Algorithms od Meeuse, na začátku přepočty kalendářů, postupně Měsíc, planety a jejich měsíce…
Část programů má čistě textový výstup, tedy vyplivne nějaké číslo, případně tabulku.
Některé ale nakreslí i nějaký obrázek nebo mapku v textovém režimu (80 znaků na řádek pro Exidy Sorcerer, 40 znaků na řádek pro Apple) a dokonce je zde pro Apple ][ program v grafice.
Většina programů se nachází na jedné straně diskety, na druhé je spíš nápověda a doplňky, takže se otáčení diskety nebo prohazování image nemusíte moc bát.
Program pracuje dobře a možnost pohodlně nahlížet do okomentovaného zdrojáku v knížce je k nezaplacení.
Z astronomických programů pro Apple ][ stojí za zmínku ještě dva grafické – mapa hvězdné oblohy Sky Travel a program TellStar, ten umí nejen hvězdy a planety, ale i Messierovy objekty.
Když už jsem byl v tom, podíval jsem se i na barevnějšího bratříčka, na Apple II GS.
Program Tonight’s Sky GS jsem nezkoušel, je ke stažení v .shk archivu, který musím nejdřív naimportovat a rozbalit.
Podle všeho by od něj mohla existovat i verze pro starší modely Apple ][.
S mapami z tohoto programu umí pracovat i program Ground Track pro sledování satelitů.
Kolekci prográmků z knihy Celestial Basic je podobná kolekce utilit pro Apple II GS – Astronomer GS.
Ta ale zabírá hned sedm disket!
Mne nejvíc zajímalo určení poloh jednotlivých měsíců Jupitera (v Meeově knize strana 301-316), ale vyzkoušel jsem i další prográmky.
Ve videu tedy uvidíte prográmky z knihy Celestial Basic na Apple //e a AstronomerGS pro Apple II GS.
Video najdete ZDE.
Pár pekných astronomických programov v BASIC-u (od roku 1984) je aj na stránkach časopisu Sky & Telescope:
https://skyandtelescope.org/astronomy-resources/basic-programs-from-sky-telescope/
GALISA.BAS má rychlejší výpočet než JSATS. Dává to určité možnosti, jak si výpočet upravit.
Pochválen Perun za tyhle repozitáře!