home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 June / PCWorld_1999-06_cd.bin / software / Servis / Telesa / telesa.txt < prev   
Text File  |  1999-05-11  |  90KB  |  2,201 lines

  1.        OBSAH
  2.  
  3. ┌vod ....................................................  3
  4. Ovlßdßnφ programu .......................................  4
  5.    2.3 TELESO ...........................................  6
  6.    2.3.1 TELESOªJINEªZVOLIT .............................  6
  7.    2.3.2 TELESOªJINEªZADAT ..............................  7
  8.    2.4 DATUM ............................................  8
  9.    2.5 VYPOCET ..........................................  9
  10.    2.5.1 VYPOCETªTABULKA ................................  9
  11.    2.5.2 VYPOCETªDO SOUBORU ............................. 10
  12.    2.5.3 VYPOCETªTISK ................................... 10
  13.    2.5.4 VYPOCETªASTROKALENDAR .......................... 11
  14.    2.5.5 VYPOCETªPRO DEN ................................ 12
  15.    2.5.6 VYPOCETªGLOBUS ................................. 13
  16.    2.5.7 VYPOCETªSOUSTAVA ............................... 14
  17.    2.6 POLOHA ........................................... 15
  18.    2.6.1 POLOHAªMESTA ................................... 15
  19.    2.6.2 POLOHAªSOURADNICE .............................. 16
  20.    2.7 KONEC ............................................ 16
  21.    2.8 HELP ............................................. 16
  22. Popis problΘmu .......................................... 16
  23.    3.1 JulißnskΘ datum .................................. 16
  24.    3.2 SfΘrickΘ sou°adnice .............................. 17
  25.    3.3 RovnφkovΘ sou°adnice ............................. 18
  26.    3.4 ObzornφkovΘ sou°adnice ........................... 20
  27.    3.5 V²chod, zßpad a kulminace ........................ 22
  28.    3.6 ObΦansk², nautick² a astronomick² soumrak ........ 24
  29.    3.7 ╚asovß rovnice ................................... 25
  30.    3.8 Pohyb t∞lesa kolem Slunce po eliptickΘ drßze ..... 26
  31.    3.9 Eliptickß drßha .................................. 26
  32.    3.10 Anomßlie ........................................ 26
  33.    3.11 Rovina ekliptiky ................................ 28
  34.    3.12 Elementy drßhy .................................. 28
  35.    3.13 Pravo·hlΘ heliocentrickΘ rovnφkovΘ sou°adnice ... 29
  36.    3.14 Pravo·hlΘ heliocentrickΘ ekliptikßlnφ sou°adnice  29
  37.    3.15 Pravo·hlΘ geocentrickΘ rovnφkovΘ sou°adnice ..... 29
  38.    3.16 V²poΦet st°ednφ anomßlie M t∞lesa ............... 30
  39.    3.17 V²poΦet excentrickΘ anomßlie E .................. 30
  40.    3.18 HeliocentrickΘ sou°adnice planety na ob∞₧nΘ drßze 30
  41.    3.19 V²poΦet pravo·hl²ch rov. helcentr. sou°adnic .... 31
  42.    3.20 V²poΦet pravo·hl²ch eklip. helcentr. sou°adnic .. 32
  43.    3.21 V²poΦet pravo·hl²ch rov. geocentr. sou°adnic .... 32
  44.    3.22 UrΦenφ pravo·hl²ch geocentr. rov. sour. Slunce .. 33
  45.    3.23 SfΘrickΘ rovnφkovΘ sou°adnice t∞lesa ............ 33
  46.    3.24 Elongace t∞lesa ................................. 34
  47.    3.25 Fßze planety .................................... 34
  48.    3.26 Fßze M∞sφce ..................................... 35
  49.    3.27 Zdßnlivß velikost (magnituda) planet ............ 35
  50.    3.28 Vliv precese na elementy drßhy .................. 36
  51.    3.29 Transformace rovnφkov²ch sou°adnic na obzornφkovΘ 38
  52.    3.30 UrΦenφ rovnφkov²ch sou°adnic M∞sφce ............. 39
  53.    3.31 Polohy galileovsk²ch dru₧ic Jupitera ............ 40
  54.    3.32 V²poΦet zdßnlivΘho sklonu saturnov²ch prstenc∙ .. 41
  55. Popis programu .......................................... 43
  56.    4.1 Modul Math ....................................... 43
  57.    4.2 Modul Pro ........................................ 44
  58.    4.3 Modul Vypocty .................................... 49
  59.    4.4 Modul Proced ..................................... 56
  60.    4.5 Vlastnφ program .................................. 58
  61. Zßv∞r ................................................... 61
  62. Seznam pou₧itΘ literatury ............................... 62
  63. Diskuse ................................................. 64
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.      ┌VOD
  80.      V 19. stoletφ p°ipadlo  pr∙m∞rnΘmu astronomovi sedm ho-
  81. din  ruΦnφch v²poΦt∙  pomocφ tu₧ky,  papφru a logaritmick²ch
  82. tabulek na ka₧dou hodinu pozorovacφho Φasu. V dneÜnφ dob∞ si
  83. podobnou  prßci  (a  nejen   v  astronomii)  ani  nedovedeme
  84. p°edstavit bez pou₧itφ poΦφtaΦe.
  85.      M²m cφlem bylo vytvo°it  program, kter² by vyu₧φval v²-
  86. hod dneÜnφ  techniky, a pomohl  tφm jak astronom∙m  amatΘr∙m
  87. k pozorovßnφ, tak i laickΘ  ve°ejnosti k obecnΘmu nßhledu na
  88. astronomii (nebo alespo≥ jejφ Φßst - nebeskou mechaniku) v∙-
  89. bec. Tento cφl jsem si vytyΦil p°edevÜφm dφky rostoucφ obli-
  90. b∞ nejr∙zn∞jÜφch pav∞d (astrologie, apod.). V∞tÜina lidφ to-
  91. ti₧  v∞°φ p°edpov∞dφm  (v mnoha  p°φpadech zcela  odliÜn²m),
  92. uve°ej≥ovan²m v populßrnφch Φasopisech, ani₧ by chßpala, jak
  93. to vlastn∞ ve SluneΦnφ soustav∞ funguje.
  94.      Program umo₧≥uje v²poΦet poloh  planet, M∞sφce a Slunce
  95. nebo libovolnΘho  t∞lesa SluneΦnφ soustavy  se znßm²mi elip-
  96. tick²mi orbitßlnφmi elementy. Poloha  m∙₧e b²t urΦena jednak
  97. vzhledem  k  pozorovateli  na  Zemi (obzornφkovΘ sou°adnice,
  98. v²chody, pr∙chody  a zßpady t∞les),  jednak vzhledem k  Zemi
  99. jako t∞lesu v prostoru  (rovnφkovΘ sou°adnice) a nebo vzhle-
  100. dem ke Slunci (heliocentrickΘ ekliptikßlnφ sou°adnice, ...).
  101.      V²stup veliΦin je mo₧n² ve form∞ tabulky Φi grafu s Φa-
  102. sovou  zßvislostφ, program  takΘ obsahuje  pohyblivΘ v²poΦty
  103. (pohyb sledovanΘho  t∞lesa po hv∞zdnΘ obloze  nebo pohled na
  104. pohyby t∞les ve SluneΦnφ soustav∞ zvn∞jÜku).
  105.      Pozorovacφ mφsto je  mo₧nΘ definovat pomocφ zem∞pisn²ch
  106. sou°adnic, nebo v²b∞rem ze  33 nabφdnut²ch m∞st (jejich₧ na-
  107. bφdku  lze zm∞nit).  Program rovn∞₧  obsahuje seznam dalÜφch
  108. t∞les sluneΦnφ soustavy (komety,  planetky) do n∞j₧ lze p°i-
  109. dat manußln∞  z prost°edφ programu dalÜφ  t∞lesa, Φi n∞kterß
  110. vy°adit.
  111.      Program je vytvo°en v jazyku Turbo Pascal 6.0.
  112.      Pro   sprßvnou  funkci   program  vy₧aduje   poΦφtaΦ  s
  113. operaΦnφm systΘmem  MS-DOS, VGA monitor a  po spuÜt∞nφ 37 kB
  114. volnΘ operaΦnφ pam∞ti a 51 voln²ch kB na disku.
  115.  
  116.            OVL┴D┴Nσ PROGRAMU
  117. 1.
  118.      P°ed  spuÜt∞nφm  programu  je  nutnΘ  zkontrolovat, zda
  119. v adresß°i s programem nechybφ tyto soubory:
  120.      Soubor bezpodmφneΦn∞ nutn² pro spuÜt∞nφ souboru:
  121.      EGAVGA.BGI.
  122.      Soubory, bez nich₧ nebude spuÜt∞n ·vod:
  123.      UVOD.OBR,
  124.      MARS.OBR,
  125.      JUPITER.OBR,
  126.      SATURN.OBR,
  127.      ZEME.OBR.
  128.      Soubor pro nßpov∞du:
  129.      TELESA.HLP.
  130.      DatovΘ soubory:
  131.      ELEMENTY.DAT,
  132.      SOUHV.DAT,
  133.      MESTA.DAT.
  134. SpuÜt∞nφ programu se provede spuÜt∞nφm souboru TELESA.BAT.
  135.      Pro  rychlejÜφ b∞h  programu (nejen  p°i spuÜt∞nφ,  ale
  136. i v mnoha jin²ch mφstech)  je velmi v²hodnΘ spouÜt∞t program
  137. z pevnΘho disku.
  138. 2.
  139.      Na zaΦßtku programu je ·vod, kter² lze p°eruÜit stiskem
  140. libovolnΘ klßvesy.
  141. 2.1
  142.      Vlastnφ prost°edφ programu sestßvß ze Φty° Φßstφ:
  143.      Menu -  hlavnφ menu je  trvale zobrazeno v  hornφ Φßsti
  144. obrazovky, vno°enß menu se zobrazujφ v₧dy pod p°φsluÜn²m po-
  145. lφΦkem hlavnφho menu.
  146.      Hlavnφ okno - nejv∞tÜφ Φßst prost°edφ, do n∞j₧ jsou vy-
  147. pisovßny v²sledky  v²poΦt∙ a v n∞m₧  se odehrßvajφ pohyblivΘ
  148. d∞je. Jestli₧e se jednß o v²poΦet nepohybliv² (tabulky, gra-
  149. fy), z∙stane  po vypsßnφ v hlavnφm  okn∞, dokud nenφ p°ekryt
  150. v²poΦtem jin²m. PohyblivΘ v²poΦty  majφ vlastnφ vno°enΘ menu
  151. (v  n∞m₧ lze  nastavovat  r∙znΘ  parametry pohybu);  po jeho
  152. opuÜt∞nφ z∙stßvß v hlavnφm  okn∞ ji₧ nepohybliv² obraz stavu
  153. v²poΦtu p°i jeho opuÜt∞nφ.
  154.      Okno v²pisu  - dolnφ prav² roh  obrazovky. V tomto okn∞
  155. jsou vypsßny aktußlnφ nastavenΘ hodnoty (jejich nastavenφ se
  156. provßdφ v menu):
  157.            Nßzev t∞lesa,
  158.            datum pro v²poΦet,
  159.            zem∞pisnΘ sou°adnice pozorovacφho mφsta,
  160.            pßsmov² Φas, v n∞m₧ je v²poΦet provßd∞n.
  161.      Okno pro nßpov∞du - dolnφ lev² roh obrazovky. Krom∞ nß-
  162. pov∞di p°i zadßvßnφ veliΦin jsou do n∞j vypisovßny i chybovß
  163. hlßÜenφ  (nep°φpustnß hodnota  zadan²ch veliΦin,  nenalezenΘ
  164. soubory, ...).
  165. 2.2
  166.      Pohyb v hlavnφm menu:
  167. a) pomocφ kursorov²ch Üipek '-Z', 'Y-',
  168. b) pomocφ klßves 'Home' a 'End',
  169. c) stiskem klßvesovΘho klφΦe  'Alt' + poΦßteΦnφ pφsmeno danΘ
  170. polo₧ky v menu.
  171.      Pohyb ve vÜech vno°en²ch menu:
  172. a) pomocφ kursorov²ch Üipek 'W', 'X',
  173. b) pomocφ klßves 'PgUp' a 'PgDn'.
  174.      Po  nastavenφ  prosvφcenΘho  polφΦka  na  danou polo₧ku
  175. v menu stiskn∞te  'ENTER' pro provedenφ  p°φsluÜnΘho p°φkazu
  176. (nebo spuÜt∞nφ vno°enΘho menu).
  177.      V p°φpad∞  zadßvßnφ hodnot v menu  po stisku 'ENTER' na
  178. danΘm polφΦku  tuto hodnotu zadejte z  klßvesnice a potvr∩te
  179. stiskem 'ENTER'.
  180.      OpuÜt∞nφ vno°enΘho menu se provßdφ stiskem 'ESC'.
  181.      Popis polo₧ek menu:
  182. 2.3
  183.      TELESO
  184.      Tato polo₧ka  umo₧≥uje volbu t∞lesa  pro v²poΦet. V²b∞r
  185. lze uskuteΦnit ze zßkladnφ nabφdky (p°φmo v menu TELESO) ne-
  186. bo   z   dalÜφch   t∞les   ze   souboru  ELEMENTY.DAT  (menu
  187. TELESOªJINEªZVOLIT). Elementy  t∞lesa lze takΘ  zadat v menu
  188. TELESOªJINEªZADAT.
  189.      U nabφdek JUPITER a SATURN  lze nastavit zda mß b²t t∞-
  190. lesem p°φmo  danß planeta, Jupiterovy  m∞sφce nebo Saturnovy
  191. prstence.
  192.      Pro jednotlivß t∞lesa lze provΘst pouze nßsledujφcφ ty-
  193. py v²poΦt∙ (menu VYPOCET):
  194.      Slunce - TABULKA, DO SOUBORU, TISK, PRO DEN, GLOBUS,
  195.      Mesic -  TABULKA, DO SOUBORU,  TISK, ASTROKALENDAR, PRO
  196. DEN, GLOBUS,
  197.      Merkur,  Venuse, Mars,  Jupiter, Saturn,  Uran, Neptun,
  198. Pluto - vÜechny typy v²poΦtu,
  199.      Zeme - SOUSTAVA,
  200.      Jupiterovy mesice, Saturnovy prstence - ASTROKALENDAR
  201.      T∞lesa  zvolenß  nebo   zadanß  v  nabφdce  TELESOªJINE
  202. - vÜechny typy v²poΦtu.
  203. 2.3.1
  204.      TELESOªJINEªZVOLIT
  205.      Nabφdka t∞les, ulo₧en²ch v souboru ELEMENTY.DAT. Po je-
  206. jφm spuÜt∞nφ je zobrazenß prvnφ strana. Jestli₧e je v soubo-
  207. ru ulo₧eno vφce jak 33  t∞les, lze v nabφdce listovat pomocφ
  208. klßves 'PgUp' a 'PgDn'.
  209.      Smazßnφ n∞kterΘho z t∞les  v souboru lze provΘst nasta-
  210. venφm prosvφcenφ na toto t∞leso a stiskem klßvesy 'DEL'.
  211.      ObvyklΘ znaΦenφ t∞les sluneΦnφ soustavy:
  212.      P/nßzev t∞lesa - periodickß kometa,
  213.      C/ - neperiodickß kometa (e z 1) nebo kometa, jejφ₧ te-
  214. oretickß  ob∞₧nß doba  je  tak  velkß (°ßdov∞  desφtky tisφc
  215. let), ₧e pravd∞podobnost p°φÜtφho nßvratu je velmi nφzkß,
  216.      P°ed nßzvem t∞lesa je uvedeno Φφslo v zßvorce - planet-
  217. ka.
  218. 2.3.2
  219.      TELESOªJINEªZADAT
  220.      V tΘto polo₧ce se uskuteΦ≥uje nastavenφ element∙ novΘho
  221. t∞lesa, kterΘ mß b²t  dopln∞no do souboru ELEMENTY.DAT, nebo
  222. pouze nastavenφ  novΘho t∞lesa pro v²poΦet.  Po spuÜt∞nφ na-
  223. bφdky jsou ve vÜech  elementech p°i°azeny hodnoty aktußlnφho
  224. nastavenΘho t∞lesa vΦetn∞ jeho nßzvu (je uveden v okn∞ v²pi-
  225. su). Zm∞na jejich hodnot se  provßdφ zp∙sobem popsan²m v od-
  226. stavci 2.2.  Menu je rozd∞leno na  Φty°i Φßsti, odd∞lenΘ Φa-
  227. rou:
  228.      1)  ULOZIT -  ulo₧enφ nastaven²ch  element∙ do souboru.
  229. Tento  p°φkaz prove∩te  a₧ po  zadßnφ vÜech  element∙ vΦetn∞
  230. nßzvu t∞lesa!
  231.      2) St°ednφ  anomßlie M t∞lesa  pro dan² okam₧ik  urΦen²
  232. datem (Rok,Mesic,Den). Znßte-li  datum pr∙chodu t∞lesa peri-
  233. heliem, zadejte toto datum a M = 0.
  234.      3) Elementy  ob∞₧nΘ drßhy t∞lesa (velkß  poloosa a nebo
  235. vzdßlenost v perihelu q, Φφselnß v²st°ednost e, sklon i, ar-
  236. gument dΘlky perihelia w a dΘlka v²stupnΘho uzlu u) a datum,
  237. k n∞mu₧ se tyto elementy vztahujφ (Epoch).
  238. Toto datum lze zadat dv∞ma zp∙soby:
  239.            a) Rok  a jeho desetinnou  Φßst (RRRR.rrrr) nap°.
  240. 1995.256.
  241.            b)  Datum ve  tvaru RRRRR/MM/DD  (rok/m∞sφc/den).
  242. Musφ b²t dodr₧en poΦet mφst vyhrazen²ch pro jednotlivΘ Φßsti
  243. tohoto data: rok 5, m∞sφc  a den 2, nap°. 01996/03/15 (zßpis
  244. 1996/3/15 bude oznaΦen za chybn²).
  245.      4) Nßzev t∞lesa.
  246.      PovolenΘ hodnoty zadßvan²ch veliΦin:
  247.      Rok: <0,10000>, pouze celß Φφsla,
  248.      Mesic: <1,12>, pouze celß Φφsla,
  249.      Den: <1,32), podle kombinace m∞sφce a roku, reßlnß Φφs-
  250. la,
  251.      M, w, u: <0,360),
  252.      a(-q): <-10,1000) krom∞ nuly,
  253.      e: <0,1),
  254.      i: <0,90>,
  255.      Nazev: maximßln∞ t°icet znak∙.
  256.      Po opuÜt∞nφ menu ZADAT se zadanΘ t∞leso souΦasn∞ p°i°a-
  257. dφ do  aktußlnφho zvolenΘho t∞lesa. Tzn.  ₧e jestli₧e chcete
  258. zadat t∞leso  pouze pro v²poΦet  a neuklßdat ho  do souboru,
  259. staΦφ pouze zadat  jeho elementy a nßzev a  menu opustit bez
  260. pou₧itφ p°φkazu ULOZIT.
  261. 2.4
  262.      DATUM
  263.      Nastavenφ data,  ke kterΘmu se  bude vztahovat v²poΦet.
  264. P°φkazem SYSTEMOVE se do data p°i°adφ systΘmovΘ datum.
  265.      PovolenΘ hodnoty:
  266.      Rok: <0,10000>, pouze celß Φφsla,
  267.      Mesic: <1,12>, pouze celß Φφsla,
  268.      Den: <1,31>  podle kombinace m∞sφce a  roku, pouze celß
  269. Φφsla.
  270. 2.5
  271.      VYPOCET
  272.      Toto menu nabφzφ r∙znΘ  volby zp∙sobu v²poΦtu. Jestli₧e
  273. je zvolen v²poΦet, kter²  nelze provΘst s nastaven²m t∞lesem
  274. (viz 2.3), je p°φkaz bez v²sledku a toto menu je opuÜt∞no.
  275. 2.5.1
  276.      VYPOCETªTABULKA
  277.      P°φkaz  provede v²poΦet  nejd∙le₧it∞jÜφch efemerid  pro
  278. ka₧d² den  nastavenΘho m∞sφce (viz 2.4).  Efemeridy jsou vy-
  279. psßny do tabulky. P°φklad v²pisu:
  280.    Venuse      Rok:1996  Mesic:9
  281. +-------------------------------------------------------------------+
  282. ªd.ª  RA   ª  DE  ª vzdal.ªfazeªel.ª magªvych.ªpruchªvysª zap.ª azi.ª
  283. ª  ª h  minª  ░  'ª  AU   ª    ª ░ ª    ª h m ª h m ª ░ ª h m ª  ░  ª
  284. ª 1ª 7 53.3ª 19 38ª  0.994ª0.67ª 42ª-4.2ª 1 35ª 9 14ª60sª16 54ª122.3ª
  285. ª 2ª 7 58.1ª 19 29ª  1.002ª0.68ª 42ª-4.2ª 1 37ª 9 15ª59sª16 53ª122.0ª
  286. ª 3ª 8  2.8ª 19 19ª  1.009ª0.68ª 42ª-4.2ª 1 38ª 9 16ª59sª16 53ª121.8ª
  287. ª  .       .      .       .    .   .    .     .     .   .     .     ª
  288. ª  .       .      .       .    .   .    .     .     .   .     .     ª
  289. ª  .       .      .       .    .   .    .     .     .   .     .     ª
  290.      d. - den v m∞sφci,
  291.      RA - rektascenze,
  292.      DE - deklinace,
  293.      vzdal. - vzdßlenost od Zem∞,
  294.      faze a) pom∞r osv∞tlenΘ Φßsti k celΘmu disku u planet
  295.           b) doba uplynulß  od novu u M∞sφce (0  - nov, 0.25
  296. - prvnφ Φtvr¥, 0.5 - ·pln∞k, 0.75 - poslednφ Φtvr¥). Fßze je
  297. v tabulce uvedena pouze pro  M∞sφc a planety Merkur, VenuÜe,
  298. Mars a Jupiter (u ostatnφch planet  se fßze liÜφ jen mßlo od
  299. 1).
  300.      el. -  elongace (·hlovß vzdßlenost t∞lesa  od Slunce na
  301. obloze). Je uvedena u vÜech t∞les krom∞ Slunce.
  302.      mag. - magnituda (zdßnlivß hv∞zdnß velikost). Je uvede-
  303. na pouze u planet.
  304.      vych.  - okam₧ik  v²chodu t∞lesa  pro zvolenΘ zem∞pisnΘ
  305. sou°adnice ve zvolenΘm pßsmovΘm Φase, stejn∞ tak jsou uvede-
  306. ny pruch., vys., zap. a azi. (viz 2.6).
  307.      pruch. - okam₧ik  svrchnφho pr∙chodu (kulminace) t∞lesa
  308. (t∞leso je v danΘm dni nejv²Üe nad obzorem).
  309.      vys. -  ·hlovß v²Üka t∞lesa nad  obzorem p°i kulminaci.
  310. Pφsmeno za  v²Ükou znaΦφ, zda kulminace  prob∞hne nad ji₧nφm
  311. (s) nebo severnφm (n) obzorem.
  312.      zap. - okam₧ik zßpadu t∞lesa,
  313.      azi. - azimut zßpadu.
  314. 2.5.2
  315.      VYPOCETªDO SOUBORU
  316.      V²poΦet efemerid je uklßdßn do souboru a souΦasn∞ vypi-
  317. sovßn v podob∞ tabulky do hlavnφho okna programu. Tabulka na
  318. obrazovce   i   v   souboru   je   stejnß   jako  p°i  volb∞
  319. VYPOCETªTABULKA, viz 2.5.1.
  320.      K zadßnφ jmΘna souboru budete vyzvßni ihned po spuÜt∞nφ
  321. tohoto p°φkazu (tedy p°ed v²poΦtem). JmΘno zadßvejte bez po-
  322. pisu cesty. Soubor bude vytvo°en  v aktußlnφm adresß°i na a-
  323. ktußlnφ mechanice. Soubor, jeho₧  jmΘno se shoduje se jmΘnem
  324. ji₧ existujφcφho souboru, nelze zadat.
  325. 2.5.3
  326.      VYPOCETªTISK
  327.      V²pis efemerid danΘho t∞lesa na obrazovku a souΦasn∞ na
  328. tiskßrnu v podob∞ tabulky (viz 2.5.1).
  329.  
  330. 2.5.4
  331.      VYPOCETªASTROKALENDAR
  332.      Tento zp∙sob v²poΦtu je r∙zn² pro r∙znß nastavenß t∞le-
  333. sa:
  334.      a) VÜechna t∞lesa krom∞  Jupiterov²ch m∞sφc∙ a Saturno-
  335. v²ch prstenc∙:
  336.      Graf  zßvislosti  v²chodu,  kulminace  a  zßpadu t∞lesa
  337. v zßvislosti na datu.
  338.      Na svislΘ ose je datum  pro Üest m∞sφc∙ poΦφnaje prvnφm
  339. dnem nastavenΘho  m∞sφce (viz 2.4), na  vodorovnΘ ose je Φas
  340. (uprost°ed je p∙lnoc, vpravo je rßno, vlevo veΦer).
  341.      ZaΦßtek (v  p°φpad∞ v²chodu Slunce) a  konec (v p°φpad∞
  342. zßpadu) obΦanskΘho soumraku (Slunce je mΘn∞ ne₧ 6- pod obzo-
  343. rem) je ohraniΦen modrou Φarou a pφsmenem o.
  344.      Nautick² soumrak  (Slunce je mΘn∞ ne₧  12- pod obzorem)
  345. je vyznaΦen sv∞tle modr²m  Ürafovßnφm a jeho zaΦßtek (konec)
  346. je oznaΦen pφsmenem n.
  347.      Astronomick² soumrak (Slunce je  mΘn∞ ne₧ 18- pod obzo-
  348. rem) je vyznaΦen tmav∞  modr²m Ürafovßnφm, jeho zaΦßtek (ko-
  349. nec) pφsmenem a.
  350.      ┌plnß noc (Slunce je vφce ne₧ 18- pod obzorem) je ohra-
  351. niΦena tuΦnou Φernou Φarou a vyznaΦena Φern²m Ürafovßnφm.
  352.      V²chod a zßpad Slunce je vyznaΦen tenkou Φervenou Φarou
  353. a oznaΦen pφsmeny vS a zS.
  354.      V²chod a  zßpad t∞lesa je vyznaΦen  silnou hn∞dou Φarou
  355. a oznaΦen V a Z.
  356.      Kulminace  t∞lesa  je  vyznaΦena  tenkou  zelenou Φarou
  357. a pφsmenem K.
  358.      b) Pro jupiterovy m∞sφce:
  359.      Graf zdßnliv²ch poloh Φty° galileovsk²ch m∞sφc∙ Jupite-
  360. ra (Io,  Europa, Ganymed, Kallisto) vzhledem  k Jupiteru p°i
  361. pozorovßnφ  v  p°evracejφcφm  dalekohledu  (zßpad  je vlevo,
  362. v²chod vpravo).  Na svislΘ ose jsou  dny nastavenΘho m∞sφce.
  363. VodorovnΘ ·seΦky  vyznaΦujφ 0h sv∞tovΘho Φasu  pro dan² den.
  364. Dvojitß  Φßra uprost°ed  znßzor≥uje zdßnliv²  pr∙m∞r planety
  365. Jupiter. V p°φpad∞, ₧e k°ivka pohybu m∞sφce je mezi svisl²mi
  366. rovnob∞₧kami   p°eruÜena,  prochßzφ   satelit  za  planetou,
  367. v opaΦnΘm p°φpad∞ p°ed planetou.
  368.      c) Pro Saturnovy prstence:
  369.      Graf zdßnlivΘho  sklonu Saturnov²ch prstenc∙.  Na vodo-
  370. rovnΘ ose je datum pro  jeden rok, poΦφnaje nastaven²m m∞sφ-
  371. cem  a rokem.  Na svislΘ  ose je  zdßnliv² sklon. TuΦnß Φßra
  372. znamenß, ₧e  Slunce osv∞tluje tu  stranu prstenc∙, kterß  je
  373. p°ivrßcenß k Zemi (prstence jsou dob°e viditelnΘ). Tenkß Φß-
  374. ra znaΦφ, ₧e Slunce  osv∞tluje stranu odvrßcenou (p°ivrßcenß
  375. strana je stφn∞nß a je Üpatn∞ viditelnß).
  376.      Pod grafem je schematicky znßzorn∞na planeta s prstenci
  377. A a B, odd∞len²mi Cassiniho  d∞lenφm v₧dy pro p°φsluÜn² oka-
  378. m₧ik na ΦasovΘ ose.
  379. 2.5.5
  380.      VYPOCETªPRO DEN
  381.      Graf  zßvislosti v²Üky  t∞lesa nad  obzorem na  azimutu
  382. v pr∙b∞hu zvolenΘho dne (viz  2.4). Pro ka₧dou hodinu danΘho
  383. dne je poloha t∞lesa  vyznaΦena koleΦkem a oznaΦena p°φsluÜ-
  384. nou hodinou.
  385.      Graf zabφrß viditelnou Φßst oblohy v mφst∞ zadan²ch ze-
  386. m∞pisn²ch sou°adnic  (viz 2.6). Obvod kruhu  tvo°φ obzor, ve
  387. st°edu kruhu je nadhlavnφk (zenit). Sm∞rem do st°edu vzr∙stß
  388. v²Üka nad obzorem, ve sm∞ru hodinov²ch ruΦiΦek od nejvyÜÜφho
  389. mφsta kruhu (jihu) vzr∙stß azimut.
  390.      Silnß  Φßra znamenß,  ₧e t∞leso  je nad  obzorem, tenkß
  391. znßzor≥uje pohyb t∞lesa pod obzorem (v²Üku je nutno brßt zß-
  392. pornou).
  393. 2.5.6
  394.      VYPOCETªGLOBUS
  395.      Znßzorn∞nφ hv∞zdnΘ oblohy (hv∞zdnΘho globu) a pohyb t∞-
  396. lesa na nφ. Na globu  jsou znßzorn∞ny souhv∞zdφ a jejich la-
  397. tinskΘ zkratky,  deklinace po 10  stupnφch a rektascenze  po
  398. 1 hodin∞. ╚ervenou teΦkovanou Φarou je vyznaΦena ekliptika.
  399.      Volbou PRO MESIC se zobrazφ  hv∞zdn² globus a drßha t∞-
  400. lesa na n∞m v pr∙b∞hu  nastavenΘho m∞sφce. Rektascenze a de-
  401. klinace st°edu viditelnΘ Φßsti gl≤bu jsou nastavitelnΘ v po-
  402. lo₧kßch RA:  a DE: a  p°i spuÜt∞nφ menu  VYPOCETªGLOBUS majφ
  403. hodnoty  rektascenze a  deklinace t∞lesa  1. dne nastavenΘho
  404. m∞sφce.
  405.      Volbou  POHYB se  zobrazφ hv∞zdn²  gl≤bus, je  spuÜt∞no
  406. p°iΦφtßnφ Φasu k nastavenΘmu datu  a pro ka₧d² okam₧ik je na
  407. gl≤bu znßzorn∞na m∞nφcφ se  poloha t∞lesa ₧lut²m ΦtvereΦkem.
  408. Datum se p°i tom vypisuje v okn∞ pro nßpov∞du.
  409.      Velikost  ΦasovΘho  p°φr∙stku  lze  nastavit  v polo₧ce
  410. SKOK:.  B∞hem pohybu  t∞lesa program  reaguje na  libovolnou
  411. klßvesu a p°i jejφm stisknutφ  je mo₧nΘ pohybovat se v menu.
  412. Stiskem 'ESC'  (i p°i v²poΦtu)  se vÜak uskuteΦnφ  nßvrat do
  413. hlavnφho menu.
  414.      P°i zm∞n∞  RA: nebo DE:  je hv∞zdn² globus  po op∞tovnΘ
  415. volb∞ POHYB vykreslen znovu,  ale v²poΦet pokraΦuje od data,
  416. kdy skonΦil p°edchozφ. P°i  zm∞n∞ SKOK: se gl≤bus nevykreslφ
  417. a po volb∞ POHYB pokraΦuje pohyb t∞lesa jinou rychlostφ.
  418.      PovolenΘ hodnoty zadßvan²ch veliΦin:
  419.      RA: <0,24),
  420.      DE: <-90,90>,
  421.      SKOK: (0,1000).
  422. 2.5.7
  423.      VYPOCETªSOUSTAVA
  424.      Schematick² pohled na  sluneΦnφ soustavu zvn∞jÜku. Vol-
  425. bou VYPOCET se provede  vykreslenφ drah planet a nastavenΘho
  426. t∞lesa. Drßha  nastavenΘho t∞lesa mß  barvu bφlomodrou (bφlß
  427. - drßha je  nad ekliptikou, modrß  - pod ekliptikou).  Drßhy
  428. ostatnφch  planet jsou  sv∞tle a  tmav∞ ÜedΘ.  Po vykreslenφ
  429. drah je  spuÜt∞n pohyb t∞les po  jejich drahßch s ubφhajφcφm
  430. datem, zobrazovan²m  v okn∞ pro  nßpov∞du. Stiskem libovolnΘ
  431. klßvesy (krom∞  'ESC') se vracφte do  menu, ve kterΘm m∙₧ete
  432. nastavit jinou  rychlost ubφhßnφ Φasu v  polo₧ce SKOK:, jinΘ
  433. zv∞tÜenφ v  polo₧ce ZVT: (Φφm menÜφ  nastavφte zv∞tÜenφ, tφm
  434. v∞tÜφ Φßst  sluneΦnφ soustavy se vejde  na obrazovku) a ·hly
  435. otoΦenφ ekliptiky: B: ┌hel  sklonu ekliptiky vzhledem k poh-
  436. ledu  pozorovatele, A:  ·hel otoΦenφ  ekliptiky okolo svislΘ
  437. osy. Ve volb∞ OSY si zvolφte (stiskem 'ENTER'), zda majφ b²t
  438. vykreslovßny  osy pravo·hl²ch  ekliptikßlnφch sou°adnic (osa
  439. x sm∞°uje k jarnφmu bodu, osa z k severnφmu p≤lu ekliptiky).
  440.      P°i  op∞tovnΘm  spuÜt∞nφ  v²poΦtu  p°φkazem VYPOCET se,
  441. jestli₧e byly nastaveny jinΘ ·hly, zv∞tÜenφ nebo vykreslovß-
  442. nφ os, op∞t vykreslφ drßhy a v²poΦet pokraΦuje od data ukon-
  443. Φenφ v²poΦtu minulΘho. Jestli₧e byl zm∞n∞n pouze SKOK:, drß-
  444. hy se znovu nevykreslujφ.
  445.      V okn∞ pro nßpov∞du se  souΦasn∞ s datem vypisujφ b∞hem
  446. pohybu i nßsledujφcφ veliΦiny:
  447.      M - st°ednφ anomßlie,
  448.      R - vzdßlenost od Slunce,
  449.      h  -  heliocentrickß  ekliptikßlnφ  Üφ°ka  (·hel t∞leso
  450. - Slunce - rovina ekliptiky),
  451.      b - heliocentrickß ekliptikßlnφ dΘlka (·hel kter² svφrß
  452. p°φmka spojujφcφ  Slunce a kolm² pr∙m∞t  t∞lesa na ekliptiku
  453. s kladn²m sm∞rem osy x).
  454.      PovolenΘ hodnoty zadßvan²ch veliΦin:
  455.      A: <0,360),
  456.      B: <-90,90>,
  457.      ZVT: (0,1000),
  458.      SKOK: (0,100000).
  459. 2.6
  460.      POLOHA
  461.      V tomto  menu lze zadat zem∞pisnΘ  sou°adnice a pßsmov²
  462. Φas pro v²poΦet.
  463.      Pßsmov² Φas  se zvolφ v nabφdce  PASMOVY CAS, zem∞pisnΘ
  464. sou°adnice v nabφdkßch MESTA nebo SOURADNICE.
  465. 2.6.1
  466.      POLOHAªMESTA
  467.      Nabφdka obsahuje maximßln∞ 33 m∞st naΦφtan²ch ze soubo-
  468. ru MESTA.DAT. Volbou jednoho z m∞st se do aktußlnφch sou°ad-
  469. nic p°i°adφ zem∞pisnΘ sou°adnice tohoto m∞sta.
  470.      Zm∞nu nabφdky m∞st lze  provΘst v souboru MESTA.DAT: na
  471. t°i °ßdky v₧dy napiÜte po  sob∞ nßzev m∞sta, jeho zem∞pisnou
  472. dΘlku a Üφ°ku. Nap°.:
  473. AMSTERODAM
  474. 4.917
  475. 52.367
  476. BERLIN
  477. 13.400
  478. 52.517
  479. BRUSSEL
  480. 4.350
  481. 50.850
  482.  .
  483.  .
  484.  .
  485.  
  486. 2.6.2
  487.      POLOHAªSOURADNICE
  488.      Zem∞pisnou  dΘlku zadßvejte  kladn∞ v  p°φpad∞ v²chodnφ
  489. dΘlky, zßporn∞ v p°φpad∞ zßpadnφ dΘlky.
  490.      Zem∞pisnou  Üφ°ku zadßvejte  kladn∞ pro  Üφ°ku severnφ,
  491. zßporn∞ pro ji₧nφ.
  492.      PovolenΘ hodnoty:
  493.      Zem.delka: <180,-180>,
  494.      Zem.sirka: <-90,90>.
  495. 2.7
  496.      KONEC
  497.      P°φkaz  ANO  v  menu  KONEC  zp∙sobφ  ukonΦenφ programu
  498. a nßvrat do DOSu.
  499. 2.8
  500.      HELP
  501.      Menu, v n∞m₧ je mo₧nΘ vybrat jednu z nßpov∞d:
  502.      PROSTREDI: informace o prost°edφ  v programu (okna, po-
  503. hyb v menu ...). Tuto nßpov∞du lze spustit i z hlavnφho menu
  504. stiskem 'F1'.
  505.      MENU: nßpov∞da k jednotliv²m polo₧kßm v menu programu.
  506.  
  507.      POPIS PROBL╔MU
  508. 3.1
  509.      JULI┴NSK╔ DATUM: PoΦφtß dny v nep°etr₧itΘm sledu od za-
  510. Φßtku julißnskΘ periody,  to je od 1.ledna 4713  p°ed n. l.,
  511. poΦφnaje polednem. Prvnφho ledna 2000 v poledne bude julißn-
  512. skΘ datum 2 451 545.0. V astronomii je vhodnΘ udßvat pozoro-
  513. vßnφ a  poΦφtat p°edpov∞di v  julißnskΘm datu, nebo¥  se tφm
  514. usnadnφ zpracovßnφ pozorovßnφ za  r∙znß obdobφ (neruÜφ r∙znß
  515. dΘlka  m∞sφc∙ a  p°estupnΘ roky).  ╚as se  v takovΘm p°φpad∞
  516. udßvß v desetinn²ch zlomcφch dne. Nap°. 2 451 545.5 oznaΦuje
  517. p∙lnoc z 1. na 2. ledna 2000.
  518.      V²poΦet julißnskΘho data z obΦanskΘho data:
  519.      R - rok,
  520.      M - m∞sφc,
  521.      D - den.
  522.      Pro M > 2: g = R, f = M + 1.
  523.      Pro M A 2: g = R - 1, f = M + 13.
  524.      JD = [365.25 g] + [30.6 f] + D + 1 720 981.5.   (1)
  525.  
  526. kde [a] znaΦφ celou Φßst Φφsla a.
  527.      V²poΦet obΦanskΘho (v praxi b∞₧n∞ u₧φvanΘho) data z da-
  528. ta julißnskΘho:
  529.      z = [JD + 0.5],
  530.      pro z < 2299161 b = 0, c = z + 1524.
  531.      Pro z z b = [(z - 1867216.25) / 36524.25],
  532.              c = z + b - [b / 4] + 1525.
  533.      d = [(c - 122.1)/365.25],
  534.      e = 365 d + [d/4],
  535.      f = [(c - e)/30.6001],
  536.      Den = [c - e + 0.5] - [30.6001 f] + JD + 0.5 - z,
  537.      M∞sφc = f -1 - 12 [f/14],                       (2)
  538.      Rok = d - 4715 - [(7 + Mes) / 10].
  539. 3.2
  540.      SF╔RICK╔ SOU╪ADNICE: SystΘm  sou°adnic, urΦujφcφ jedno-
  541. znaΦn∞ polohu bodu na kouli. Protneme-li kouli rovinou, kte-
  542. rß prochßzφ  jejφm st°edem, dostaneme na  povrchu koule tzv.
  543. HLAVNσ  KRUÄNICI,  jejφ₧  polom∞r  se  rovnß polom∞ru koule.
  544. Zvolφme-li si jednu z rovin, prochßzejφcφmi hlavnφmi kru₧ni-
  545. cemi, za  Z┴KLADNσ ROVINU a na  hlavnφ kru₧nici jφ vytyΦenou
  546. na kouli bod, kter² nazveme PO╚┴TKEM SOU╪ADNIC, m∙₧eme polo-
  547. hu jinΘho  bodu na kouli  vzhledem k poΦßtku  vyjßd°it dv∞ma
  548. sou°adnicemi.
  549.      Prvnφ sou°adnici, oznaΦme ji  obecn∞ D╔LKA, urΦφme jako
  550. odchylku dvou rovin kolm²ch  k zßkladnφ rovin∞ a prochßzejφ-
  551. cφmi st°edem koule, z  nich₧ jedna prochßzφ poΦßtkem sou°ad-
  552. nic a druhß prochßzφ dan²m bodem.
  553.      Druhou sou°adnici,  obecn∞ èσ╪KA, urΦφme  jako odchylku
  554. p°φmky prochßzejφcφ st°edem koule  a dan²m bodem od zßkladnφ
  555. roviny.
  556. 3.3
  557.      ROVNσKOV╔ (EKVATORI┴LNσ)  SOU╪ADNICE: SystΘm sfΘrick²ch
  558. sou°adnic, jeho₧ zßkladnφ rovinou  je rovina zemskΘho rovnφ-
  559. ku, kolmß  k ose rotace  Zem∞. Tato rovina  protφnß nebeskou
  560. sfΘru (pomyslnou kouli o nekoneΦnΘm polom∞ru) v hlavnφ kru₧-
  561. nici, zvanΘ nebesk² rovnφk. Ka₧dß kru₧nice na nebeskΘ sfΘ°e,
  562. rovnob∞₧nß s  rovnφkem, se naz²vß  PARALELA (obdoba zemsk²ch
  563. rovnob∞₧ek). P°φmka, je₧ je prodlou₧enφm zemskΘ osy, protφnß
  564. nebeskou sfΘru ve dvou  nebesk²ch p≤lech, severnφm a ji₧nφm.
  565. Ka₧dß hlavnφ kru₧nice prochßzejφcφ  ob∞ma p≤ly se naz²vß DE-
  566. KLINA╚Nσ KRUÄNICE (obdoba zemsk²ch polednφk∙). Z nich dekli-
  567. naΦnφ kru₧nice prochßzejφcφ na obloze zenitem (nadhlavnφkem)
  568. a souΦasn∞ bodem na obzoru,  sm∞°ujφcφm k jihu, je MERIDI┴N.
  569. PoΦßtkem  sou°adnic je  JARNσ BOD.  To je  bod, ve kterΘm se
  570. nachßzφ na  nebeskΘ sfΘ°e Slunce v  okam₧iku jarnφ rovnoden-
  571. nosti (21. b°ezna).
  572.      Poloha t∞lesa (hv∞zdy, planety) na nebeskΘ sfΘ°e je ur-
  573. Φena  dv∞ma  sou°adnicemi,  kterΘ  naz²vßme  REKTASCENZE (d)
  574. a DEKLINACE  (t). Sou°adnici  d definujeme  jako ·hel, kter²
  575. svφrß  deklinaΦnφ  kru₧nice  t∞lesa  s  deklinaΦnφ  kru₧nicφ
  576. prochßzejφcφ jarnφm bodem. M∞°φme  ji v hodinßch (·hlov²ch),
  577. co₧ je ·hel, o kter² se  pootoΦφ hv∞zdnß obloha za jednu ho-
  578. dinu (1  h = 15-),  minutßch a sekundßch  kladn∞ proti sm∞ru
  579. dennφho pohybu oblohy.
  580.      Sou°adnice t je ·hlovß  vzdßlenost paralely, na nφ₧ t∞-
  581. leso le₧φ, od rovnφku. PoΦφtßme ji  kladn∞ k severu od 0- do
  582. 90- a zßporn∞ k jihu.
  583.      Tyto sou°adnice nejsou zßvislΘ na dennφm pohybu oblohy,
  584. u planet se  m∞nφ za den  nejv²Üe °ßdov∞ o  desφtky ·hlov²ch
  585. minut, u hv∞zd °ßdov∞ desφtky ·hlov²ch sekund za rok. Udßva-
  586. jφ vlastn∞ polohu t∞lesa na pomyslnΘm hv∞zdnΘm gl≤bu. Neboli
  587. bude-li  se pozorovatel  nachßzet v  prostoru na  mφst∞ Zem∞
  588. a nebude  rotovat  s  jejφm  povrchem,  jedin²  pohyb  t∞les
  589. v prostoru, kter² uvidφ,  bude charakterizovßn zm∞nou rovnφ-
  590. kov²ch sou°adnic.
  591.      Prßv∞ z tohoto d∙vodu se  tyto sou°adnice nem∞nφ s otß-
  592. Φenφm Zem∞ a s dennφ dobou a proto nejsou vhodnΘ pro v²poΦet
  593. poloh na skuteΦnΘ, z danΘho mφsta na zemskΘm povrchu pozoro-
  594. vatelnΘ, oblohy. Mφsto rektascenze  zavßdφme tedy novou sou-
  595. °adnici, hodinov² ·hel t. Je to ·hel, kter² svφrß deklinaΦnφ
  596. kru₧nice t∞lesa s meridißnem. Vyjad°uje se op∞t v ΦasovΘ mφ-
  597. °e jako rektascenze, ale ve  sm∞ru dennφho pohybu oblohy. To
  598. znamenß, ₧e pro ka₧dΘ t∞leso  na obloze vzr∙stß s Φasem. Zß-
  599. vislost mezi hodinov²m ·hlem t a rektascenzφ d urΦujeme jako
  600. HV╠ZDN▌ ╚AS
  601.      n = d + t,                                      (3)
  602. co₧ je hodinov² ·hel jarnφho bodu. To znamenß, ₧e v okam₧iku
  603. svrchnφho pr∙chodu jarnφho bodu  meridißnem je 0h0m0s hv∞zd-
  604. nΘho Φasu.
  605.      Hv∞zdn² Φas pro dan² okam₧ik se urΦuje numericky, z po-
  606. zorovßnφ je  odvozena p°ibli₧nß aproximace  pro jeho v²poΦet
  607. v zßvislosti na datu. P°i urΦenφ mφstnφho hv∞zdnΘho Φasu pro
  608. dan² okam₧ik postupujeme takto:
  609.      UrΦφme T - Φasov²  okam₧ik vyjßd°en² v julißnsk²ch sto-
  610. letφch od standardnφ epochy J2000.0:
  611.      T = (JD0 - 2451 545.0) / 36 525,                (4)
  612. kde JD0 je julißnskΘ datum pro dan² den v 0 h sv∞tovΘho Φasu
  613. (UT).
  614.      VypoΦφtßme S0 - hv∞zdn² Φas v Greenwichi v 0 h UT:
  615.      S0 = 6.697 374 558 + 2400.051 336 91 T +
  616.           + 0.000 025 862 T2 - 0.000 000 0017 T3     (5)
  617. (hodnotu S0 je t°eba p°evΘst do intervalu 0 - 24 hodin).
  618.      Mφstnφ hv∞zdn² Φas v obΦanskΘm (v praxi b∞₧n∞ u₧φvanΘm)
  619. Φase t je dßn v²razem
  620.      S = S0 + 1.002 737 9093 t + P + l / 15 ,        (6)
  621. kde l  je zem∞pisnß dΘlka  pozorovacφho mφsta a  P je rozdφl
  622. mφstnφho pßsmovΘho a sv∞tovΘho Φasu.
  623. 3.4
  624.      OBZORNσKOV╔  (HORIZONT┴LNσ) SOU╪ADNICE:  SystΘm sfΘric-
  625. k²ch  sou°adnic, jeho₧  zßkladnφ rovinou  je rovina  obzoru,
  626. kolmß ke  sm∞ru zemskΘ tφ₧e v  mφst∞ pozorovßnφ. Tato rovina
  627. protφnß  oblohu v  hlavnφ kru₧nici  zvanΘ obzor.  Vertikßlnφ
  628. p°φmka, ta₧enß v prodlou₧enΘm  sm∞ru tφ₧nice, protφnß oblohu
  629. ve dvou  bodech: v ZENITU (nadhlavnφku)  a NADIRU (podno₧nφ-
  630. ku). Ka₧dß hlavnφ kru₧nice prochßzejφcφ zenitem a nadirem se
  631. naz²vß VERTIK┴L. Vertikßl prochßzejφcφ nebesk²mi p≤ly (meri-
  632. dißn) protφnß obzor v severnφm a ji₧nφm bod∞. PoΦßtek obzor-
  633. nφkov²ch sou°adnic je ji₧nφ bod. VÜechny kru₧nice rovnob∞₧nΘ
  634. s obzorem se naz²vajφ ALMUKANTAR┴TY.
  635.      Poloha t∞lesa  na obloze je  urΦena dv∞ma sou°adnicemi,
  636. kterΘ naz²vßme AZIMUT A a V▌èKA (·hlovß) NAD OBZOREM h.
  637.      A  je ·hel,  kter² svφrß  vertikßl prochßzejφcφ t∞lesem
  638. s meridißnem. PoΦφtßme  jej (pouze v  astronomii) od ji₧nφho
  639. bodu sm∞rem k zßpadu od 0- do 360-.
  640.      Druhß sou°adnice h  je ·hlovß vzdßlenost almukantarßty,
  641. prochßzejφcφ t∞lesem, od obzoru.  PoΦφtß se kladn∞ od obzoru
  642. k zenitu od 0- do 90-, zßporn∞ od obzoru k nadiru.
  643.  
  644.  
  645.  
  646.  
  647.  
  648.  
  649.  
  650.  
  651.  
  652.  
  653.  
  654.  
  655.  
  656.  
  657.  
  658.  
  659.                              (obr.    1.)     RovnφkovΘ    a
  660. obzornφkovΘ sou°adnice.
  661.      T - t∞leso,
  662.      d - rektascenze,
  663.      t - deklinace,
  664.      t - hodinov² ·hel,
  665.      A - azimut,
  666.      h - v²Üka nad obzorem,
  667.      n - hv∞zdn² Φas,
  668.      AL - almukantarßt,
  669.      PL - paralela,
  670.      NR - nebesk² rovnφk,
  671.      NSP - nebesk² severnφ p≤l,
  672.      ZSP, ZJP - zemsk² severnφ a ji₧nφ p≤l.
  673. 3.5
  674.      V▌CHOD, Z┴PAD a KULMINACE nebeskΘho t∞lesa:
  675.      V▌CHOD je  Φasov² okam₧ik, ve  kterΘm t∞leso na  obloze
  676. vystupujφcφ nad obzor prßv∞ prochßzφ obzorem.
  677.      Z┴PAD  je Φasov²  okam₧ik, kdy  prochßzφ obzorem t∞leso
  678. klesajφcφ pod obzor.
  679.      Zdßnliv²  v²chod  a  zßpad  je  ovlivn∞n REFRAKCσ (ohyb
  680. sv∞tla p°i pr∙chodu atmosfΘrou). Refrakce p°i obzoru je 34',
  681. uspiÜuje v²chod a opo₧∩uje zßpad t∞lesa a₧ o n∞kolik minut.
  682.      KULMINACE  (svrchnφ pr∙chod)  je okam₧ik,  kdy je b∞hem
  683. svΘho  dennφho pohybu  nebeskΘ t∞leso  nejv²Üe nad  obzorem.
  684. Kulminace nastßvß v okam₧iku pr∙chodu t∞lesa meridißnem.
  685.      AZIMUT Z┴PADU: azimut bodu, v  n∞m₧ se t∞leso na obloze
  686. nachßzφ v  okam₧iku zßpadu. Azimut  v²chodu v tent²₧  den je
  687. roven zßpornΘ hodnot∞ azimutu zßpadu.
  688.      V²poΦet okam₧iku v²chodu, zßpadu a azimutu zßpadu t∞le-
  689. sa:
  690.      1)  VypoΦteme greenwichsk²  hv∞zdn² Φas  pro 0  h UT S0
  691. podle (5).
  692.      2) Pro geometrick² v²chod a zßpad platφ:
  693. hodinov² ·hel t v okam₧iku zßpadu (+) a v²chodu (-):
  694.  t0 = Z arccos (- tg SZ tg t),                       (7)
  695.              +  - sin t  +
  696.  A0 = arccos ª --------- ª,                          (8)
  697.              +   cos SZ  +
  698. kde SZ je zem∞pisnß Üφ°ka pozorovacφho stanoviÜt∞, t je dek-
  699. linace t∞lesa.
  700.      SkuteΦn² v²chod  (zßpad) nastane, nachßzφ-li  se t∞leso
  701. na skuteΦnΘm (ne geometrickΘm) obzoru. V praxi je nutno brßt
  702. v ·vahu tyto vlivy:
  703.      refrakci u obzoru (34'),
  704.      u Slunce a M∞sφce pr∙m∞r disku (32'),
  705.      u M∞sφce paralaxu (57').
  706.      Azimut A a hodinov² ·hel t t∞lesa p°i skuteΦnΘm v²chodu
  707. (zßpadu) je dßn v²razy
  708.      A = A0 + dA,                                    (9)
  709.      t = t0 + dt,                                    (10)
  710. kde
  711.                        Z sin SZ
  712.      dA = Z ------------------------------,
  713.               +-------------------------+
  714.              - cos (SZ - t) cos (SZ + t)
  715.                           Z
  716.      dt = Z ------------------------------.
  717.               +-------------------------+
  718.              - cos (SZ - t) cos (SZ + t)
  719. ZnamΘnko + platφ pro zßpad, - pro v²chod.
  720. Pro hv∞zdy, planety Z = 34',
  721. pro hornφ okraj Slunce Z = 50',
  722. pro hornφ okraj M∞sφce Z = - 7'.
  723.      3) Okam₧ik v²chodu (zßpadu) vypoΦteme ze vztahu
  724.                     +     l - t      +
  725.      tV = 0.9972695 ªd - ------- - S0ª,              (11)
  726.                     +      15        +
  727. kde l je zem∞pisnß dΘlka.
  728.      V²poΦet okam₧iku kulminace t∞lesa:
  729.                         +     l       +
  730.          tK = 0.9972695 ªd - --- - S0 ª.             (12)
  731.                         +     15      +
  732.      Okam₧ik  v²chodu, zßpadu  a kulminace  t∞lesa vyjde  ve
  733. sv∞tovΘm Φase (UT),  tzn. ₧e je k n∞mu  nutnΘ p°iΦφst rozdφl
  734. mezi mφstnφm pßsmov²m Φasem a Φasem sv∞tov²m.
  735. 3.6
  736.      OB╚ANSK▌, NAUTICK▌ a ASTRONOMICK▌ SOUMRAK:
  737.      ObΦansk² soumrak je doba mezi zßpadem (v²chodem) Slunce
  738. a okam₧ikem, kdy je Slunce 6- pod obzorem.
  739.      Nautick² soumrak  je doba mezi okam₧iky,  kdy je Slunce
  740. od 6- do 12- pod obzorem.
  741.      Astronomick²  soumrak  je  doba  mezi  okam₧iky, kdy je
  742. Slunce od 12- do 18- pod obzorem.
  743.      V²poΦet zaΦßtk∙ (konc∙) soumrak∙:
  744.      tZ - Φas konce soumraku (p°i zßpadu Slunce),
  745.      tV - Φas zaΦßtku soumraku (svφtßnφ, p°i v²chodu Slunce).
  746.      E - Φasovß rovnice (viz nφ₧e),
  747.      tS - deklinace Slunce,
  748.      SZ - zem∞pisnß Üφ°ka.
  749.  
  750.      tZ = T0 + 12 - E,
  751.      tV = 12 - T0 - E,                               (13)
  752. kde
  753.                   +  sin hS - sin SZ sin tS  +
  754.            arccos ª ------------------------ ª
  755.                   +      cos SZ cos tS       +
  756.      T0 = -------------------------------------,     (14)
  757.                            15
  758. p°iΦem₧ hS = -6- v p°φpad∞ obΦanskΘho soumraku,
  759.              -12- v p°φpad∞ nautickΘho soumraku,
  760.              -18- v p°φpad∞ astronomickΘho soumraku.
  761.      Pokud je hodnota zlomku v arccos mimo interval <-1, 1>,
  762. pro danΘ hodnoty SZ a tS soumrak nekonΦφ (nezaΦφnß).
  763.  
  764.  
  765. 3.7
  766.      ╚ASOV┴ ROVNICE.
  767.      PRAV▌ SLUNE╚Nσ ╚AS je Φas m∞°en² hodinov²m ·hlem Slunce
  768. na obloze. Prav² sluneΦnφ Φas  je nerovnom∞rn² a proto zavß-
  769. dφme ST╪EDNσ  SLUNE╚Nσ ╚AS (v  praxi u₧φvan² Φas  - tedy Φas
  770. naÜich hodin), kter² je m∞°en² pomocφ hodinovΘho ·hlu druhΘ-
  771. ho st°ednφho  Slunce (myÜlen² bod, kter²  se pohybuje rovno-
  772. m∞rn∞ po  nebeskΘm rovnφku, nikoliv tedy  po ekliptice a ne-
  773. rovnom∞rn∞ jako pravΘ Slunce).
  774.      Rozdφl mezi st°ednφm sluneΦnφm Φasem a prav²m sluneΦnφm
  775. Φasem se  naz²vß ╚ASOV┴ ROVNICE  E. M∞nφ se  v pr∙b∞hu roku,
  776. maximßlnφch   hodnot   dosahuje   v   obdobφ  °φjen/listopad
  777. a ·nor/b°ezen (Z15 minut).
  778.      ╚asovß rovnice se poΦφtß p°ibli₧n∞ numericky:
  779.      JD - julißnskΘ datum pro dan² okam₧ik,
  780.      o - sklon ekliptiky k rovnφku,
  781.      e - numerickß v²st°ednost drßhy Zem∞,
  782.      MS  - st°ednφ  anomßlie Slunce  (opak st°ednφ  anomßlie
  783. Zem∞),
  784.      Ls - st°ednφ ekliptikßlnφ dΘlka Slunce.
  785.      E - Φasovß rovnice v hodinßch.
  786.  
  787.      A = y sin 2LS - 2e sin MS + 4e y sin MS cos 2Ls -
  788.         y2 sin 4LS    5 (e2 sin 2MS)
  789.      - ----------- - ----------------,
  790.             2                4
  791. kde y = tg2 (o/2).
  792.           3600 A    180
  793.      E = -------- --------.                          (15)
  794.             15       I
  795.  
  796.  
  797. 3.8
  798.      POHYB T╠LESA KOLEM SLUNCE PO ELIPTICK╔ DR┴ZE:
  799. 3.9
  800.      ELIPTICK┴ DR┴HA: Drßha ve tvaru elipsy, v jejφm₧ jednom
  801. ohnisku le₧φ Slunce. U eliptickΘ drßhy vystupujφ tyto prvky:
  802. VELK┴ OSA = nejv∞tÜφ pr∙m∞r  elipsy AB, kter² je p∙len st°e-
  803. dem elipsy S na VELKOU POLOOSU a.  Body F1 a F2 na velkΘ ose
  804. se naz²vajφ ohniska; vzdßlenost ohniska  od st°edu S je dΘl-
  805. kovß v²st°ednost  (excentricita) l. NUMERICK┴  (Φφselnß) EX-
  806. CENTRICITA e je  pom∞r l/a. Tvar a velikost  drßhy jsou pln∞
  807. urΦeny velkou  poloosou a a  excentricitou e. Nap°φklad  pro
  808. kruhovou drßhu je polom∞r roven velkΘ poloose a e = 0.
  809.      Body A a B jsou APSIDY. Le₧φ-li centrßlnφ t∞leso (Slun-
  810. ce)  v ohnisku  F1, naz²vß  se apsida  A PERIHELIUM a apsida
  811. B AFELIUM. Vzdßlenost ªAF1ª = q se naz²vß VZD┴LENOST V PERI-
  812. HELU. Platφ
  813.             q
  814.      a = -------.                                    (16)
  815.           1 - e
  816.  
  817.  
  818.  
  819.  
  820.  
  821.  
  822.  
  823.  
  824.                              (obr. 2.) eliptickß drßha
  825. 3.10
  826.      ANOM┴LIE: ┌hel vystupujφcφ v teorii pohybu planety (pro
  827. jednoduchost p°edpoklßdejme pod nßzvem planeta jakΘkoliv t∞-
  828. leso obφhajφcφ  po elipse) okolo  Slunce. Elipsa na  obr. 3.
  829. vyznaΦuje drßhu planety. V danΘm okam₧iku je planeta na drß-
  830. ze kolem  Slunce v bod∞  G. Mysleme si  dßle kru₧nici, jejφ₧
  831. st°ed a  polom∞r jsou toto₧nΘ  se st°edem a  velkou poloosou
  832. elipsy. Kolmice  spuÜt∞nß v bod∞ G  na velkou poloosu protne
  833. tuto kru₧nici v bod∞ G'.  ┌hel, kter² svφrß spojnice bodu g'
  834. se st°edem  elipsy a sm∞r k  perihelu, se naz²vß EXCENTRICK┴
  835. ANOM┴LIE E. Kdyby planeta obφhala kolem Slunce po tΘto kru₧-
  836. nici  konstantnφ rychlostφ  se stejnou  dobou ob∞hu  jako mß
  837. v eliptickΘ drßze, nalΘzala by se v danΘm okam₧iku blφ₧e pe-
  838. rihelu  v bod∞  G''. ┌hel,  kter² by  svφral v tomto p°φpad∞
  839. pr∙vodiΦ bodu  G'' se sm∞rem  k perihelu, se  naz²vß ST╪EDNσ
  840. ANOM┴LIE M. Vztah mezi st°ednφ a excentrickou anomßliφ defi-
  841. nuje KEPLEROVA ROVNICE:
  842.      M = E - e sin E,                                (17)
  843. kde e je numerickß excentricita drßhy.
  844.      PRAV┴ ANOM┴LIE  v je ·hel, kter²  svφrß pr∙vodiΦ t∞lesa
  845. se sm∞rem k perihelu.
  846.  
  847.  
  848.  
  849.  
  850.  
  851.  
  852.  
  853.  
  854.  
  855.  
  856.  
  857.                              (obr. 3.)
  858. 3.11
  859.      ROVINA EKLIPTIKY: Rovina, v  nφ₧ le₧φ ob∞₧nß drßha Zem∞
  860. kolem Slunce.
  861. 3.12
  862.      ELEMENTY DR┴HY: Sedm zßkladnφch veliΦin, kterΘ popisujφ
  863. drßhu planety v prostoru okolo Slunce. Jsou to:
  864.      (1) a - VELK┴ POLOOSA drßhy.
  865.      (2) e - NUMERICK┴ EXCENTRICITA.
  866.      (3) U - D╔LKA V▌STUPN╔HO UZLU.
  867.                  V▌STUPN▌ UZEL - bod, ve kterΘm drßha plane-
  868. ty protφnß  rovinu ekliptiky. Planeta v  n∞m p°echßzφ z jihu
  869. na sever (nad ekliptiku).
  870.                  DΘlka v²stupnΘho uzlu  je ·hlovß vzdßlenost
  871. v²stupnΘho uzlu od jarnφho bodu.
  872.      (4) i - SKLON DR┴HY:  odchylka ob∞₧nΘ roviny planety od
  873. ekliptiky.
  874.      (5) w - ARGUMENT D╔LKY PERIHELIA: ·hlovß vzdßlenost pe-
  875. rihelia od v²stupnΘho uzlu.
  876.      (6) P - OKAMÄIK PR┘CHODU PERIHELIEM.
  877.      (7) T - OB╠ÄN┴ DOBA.
  878.                +--+
  879.           360 - a3
  880.      T = -----------,                                (18)
  881.               k
  882. kde a  je hlavnφ poloosa  drßhy v AU  (astronomickß jednotka
  883. - st°ednφ vzdßlenost  Zem∞ od Slunce;  1 AU =  149.6 106 km)
  884. a k je Gaussova gravitaΦnφ konstanta, k=0.985607669.
  885.      Elementy  a, e  urΦujφ tvar  drßhy, U,  i polohu roviny
  886. drßhy v prostoru, w orientaci  eliptickΘ drßhy v tΘto rovin∞
  887. a P, T polohu t∞lesa v tΘto drßze.
  888.  
  889.  
  890.  
  891.  
  892.  
  893.  
  894.  
  895.  
  896.  
  897.  
  898.  
  899.  
  900.  
  901.  
  902.  
  903.        (obr. 4.) drßha planety  v prostoru a elementy drßhy.
  904. Osa X sm∞°uje k jarnφmu bodu,  osa Z k severnφmu p≤lu eklip-
  905. tiky. P - perihelium, F - Slunce, S - st°ed elipsy.
  906. 3.13
  907.      PRAVO┌HL╔  HELIOCENTRICK╔ ROVNσKOV╔  SOU╪ADNICE: SystΘm
  908. pravo·hl²ch sou°adnic v prostoru,  jejich₧ poΦßtkem je Slun-
  909. ce. Osa  x sm∞°uje k jarnφmu  bodu, osa z k  severnφmu p≤lu.
  910. Rovina, v nφ₧ le₧φ osy le₧φ osy x a y, je rovnob∞₧nß s rovi-
  911. nou zemskΘho rovnφku.
  912. 3.14
  913.      PRAVO┌HL╔ HELIOCENTRICK╔  EKLIPTIK┴LNσ SOU╪ADNICE: Sys-
  914. tΘm pravo·hl²ch  sou°adnic v prostoru s  poΦßtkem ve Slunci.
  915. Osa x sm∞°uje k jarnφmu bodu,  osa z k severnφmu p≤lu eklip-
  916. tiky. Osy x a y le₧φ v rovin∞ ekliptiky.
  917. 3.15
  918.      PRAVO┌HL╔  GEOCENTRICK╔  ROVNσKOV╔  SOU╪ADNICE:  SystΘm
  919. pravo·hl²ch sou°adnic s osami rovnob∞₧n²mi s pravo·hl²mi he-
  920. liocentrick²mi rovnφkov²mi  osami, ale s  poΦßtkem ve st°edu
  921. Zem∞.
  922. 3.16
  923.      V▌PO╚ET ST╪EDNσ ANOM┴LIE M T╠LESA pro zadanΘ datum td:
  924.           360 t0
  925.      M = -------- + M0,                              (19)
  926.             T
  927. kde T je ob∞₧nß doba t∞lesa,  t0 je datum pro znßmou st°ednφ
  928. anomßlii  M0. Znßme-li  okam₧ik pr∙chodu  t∞lesa periheliem,
  929. dosadφme toto datum za t0 a M0 = 0.
  930. 3.17
  931.      V▌PO╚ET EXCENTRICK╔ ANOM┴LIE E  ze znßmΘ st°ednφ anomß-
  932. lie M a numerickΘ v²st°ednosti drßhy e.
  933. ╪eÜφme Keplerovu  rovnici (14). Tu nelze  °eÜit p°φmo, proto
  934. je nutnΘ pou₧φt numerickΘ metody postupn²ch aproximacφ.
  935.      Newtonova p°ibli₧nß metoda:
  936.      Prvnφ hodnotu E0 urΦφme jako
  937.      E0 = M,
  938. dalÜφ ze vztahu
  939.      E1 = M + e sin E0, ....
  940.      En = M + e sin En-1;                            (20)
  941. tento postup opakujeme  tak dlouho, a₧ se hodnoty  En a En-1
  942. od sebe neliÜφ vφce, ne₧ je po₧adovanß p°esnost.
  943.      M  i  E  je  nutno  dosadit  do  rovnice  v  radißnech,
  944. dosazujeme-li je  ve stupnφch, je  t°eba numerickou v²st°ed-
  945. nost p°evΘst rovn∞₧ na stupn∞ (vynßsobit ji 180/I).
  946. 3.18
  947.      V▌PO╚ET  HELIOCENTRICK▌CH  SOU╪ADNIC  PLANETY  x,  y NA
  948. OB╠ÄN╔ DR┴ZE.
  949.      Osa x je toto₧nß s velkou  osou elipsy, osa y je rovno-
  950. b∞₧nß s malou osou elipsy a prochßzφ ohniskem (Sluncem). Po-
  951. Φßtek sou°adnic je tedy ve Slunci a kladnß Φßst osy x sm∞°u-
  952. je k periheliu.
  953.      x = a (cos E - e),
  954.             +------+
  955.      y = a - 1 - e2  sin E,                             (21)
  956. kde a  je hlavnφ poloosa elipsy,  e je numerickß v²st°ednost
  957. a E excentrickß anomßlie.
  958.      Znßme-li  pravou anomßlii  t∞lesa v  pro dan²  okam₧ik,
  959. postupujeme p°i v²poΦtu takto:
  960.      VypoΦφtßme vzdßlenost t∞lesa od Slunce
  961.           a (1 - e2)
  962.      R = -------------,
  963.           1 + e cos v
  964.      sou°adnice x, y urΦφme ze vztah∙
  965.      x = R cos v,                                    (22)
  966.      y = R sin v.
  967. 3.19
  968.      V▌PO╚ET   PRAVO┌HL▌CH    ROVNσKOV▌CH   HELIOCENTRICK▌CH
  969. SOU╪ADNIC xH, yH, zH:
  970.      x, y - sou°adnice t∞lesa na ob∞₧nΘ drßze (viz 3.18).
  971.      xH = Px x + Qx y,
  972.      yH = Py x + Qy y,                               (23)
  973.      zH = Pz x + Qz y,
  974. kde
  975.      Px = A1 cos w + A2 sin w,
  976.      Py = B1 cos w + B2 sin w,
  977.      Pz = C1 cos w + C2 sin w,
  978.      Qx = A2 cos w - A1 sin w,                       (24)
  979.      Qy = B2 cos w - B1 sin w,
  980.      Qz = C2 cos w - C1 sin w,
  981. v nich₧ znaΦφ
  982.      A1 = cos U
  983.      B1 = sin U cos o,
  984.      C1 = sin U sin o,
  985.      A2 = - cos i sin U,                             (25)
  986.      B2 = cos i cos U cos o - sin i cos o,
  987.      C2 = cos i sin U sin o + sin i cos o,
  988. kde o je sklon ekliptiky k rovnφku.
  989.      VeliΦiny  Px,  Py,  ...  Qz  jsou  sm∞rovΘ kosiny drßhy
  990. a nezßvisφ na Φase.
  991.      Vzdßlenost t∞lesa od Slunce
  992.           +---------------+
  993.      R = - XH2 + YH2 + ZH2 .                         (26)
  994. 3.20
  995.      V▌PO╚ET  PRAVO┌HL▌CH   EKLIPTIK┴LNσCH  HELIOCENTRICK▌CH
  996. SOU╪ADNIC xe, ye, ze:
  997.      x, y - sou°adnice t∞lesa na ob∞₧nΘ drßze (viz 3.18).
  998.      xe = Px x + Qx y,
  999.      ye = Py x + Qy y,                               (27)
  1000.      ze = Pz x + Qz y,
  1001. kde
  1002.      Px = cos w cos U - sin w sin U cos i,
  1003.      Py = cos w sin U + sin w cos U cos i,
  1004.      Pz = sin w sin i,
  1005.      Qx = - sin w cos U - cos w sin U cos i,         (28)
  1006.      Qy = - sin w sin U + cos w cos U cos i,
  1007.      Qz = cos w sin i.
  1008. 3.21
  1009.      V▌PO╚ET    PRAVO┌HL▌CH    ROVNσKOV▌CH    GEOCENTRICK▌CH
  1010. SOU╪ADNIC X, Y, Z:
  1011.      X = xH + xS,
  1012.      Y = yH + yS,                                    (29)
  1013.      Z = zH + zS,
  1014. kde  xS,  yS,  zS   jsou  pravo·hlΘ  geocentrickΘ  rovnφkovΘ
  1015. sou°adnice Slunce.
  1016.      Vzdßlenost t∞lesa od Zem∞
  1017.           +------------+
  1018.      r = - X2 + Y2 + Z2 .                            (30)
  1019. 3.22
  1020.      UR╚ENσ PRAVO┌HL▌CH GEOCENTRICK▌CH ROVNσKOV▌CH SOU╪ADNIC
  1021. SLUNCE pro datum JD:
  1022.      1. ╚as T je poΦet dnφ uplynul²ch od 1. 1. 2000
  1023.      T = JD - 2451545.                               (31)
  1024.      2.  VypoΦφtßme  st°ednφ  anomßlii  Slunce  MS a st°ednφ
  1025. ekliptikßlnφ dΘlku Slunce LS:
  1026.      MS = 357.528 + 0.9856003 T,                     (32)
  1027.      LS = 280.460 + 0.9856474 T.                     (33)
  1028.      3. UrΦφme skuteΦnou ekliptikßlnφ dΘlku Slunce lS:
  1029.      lS  = LS + 1.915 sin MS + 0.02 sin 2MS          (34)
  1030. (hodnoty MS, LS a lS je nutno p°evΘst do intervalu <0,360)).
  1031.      4. UrΦφme vzdßlenost Zem∞ od Slunce
  1032.      R = 1.00014 - 0.01675 cos MS - 0.00014 cos 2MS. (35)
  1033.      5.  Pravo·hlΘ rovnφkovΘ  geocentrickΘ sou°adnice Slunce
  1034. xS, yS, zS jsou rovny
  1035.      xS = R cos lS,
  1036.      yS = R sin lS cos o,                            (36)
  1037.      zS = R sin lS sin o,
  1038. kde o je sklon ekliptiky k rovnφku.
  1039. 3.23
  1040.      SF╔RICK╔ ROVNσKOV╔ SOU╪ADNICE T╠LESA (d, t):
  1041.      X, Y, Z - pravo·hlΘ geocentrickΘ sou°adnice t∞lesa.
  1042.                            Y
  1043.      Pro X > 0  d = arctg ---,
  1044.                            X
  1045.  
  1046.                            Y
  1047.      pro X < 0  d = arctg --- + 180,                 (37)
  1048.                            X
  1049.      pro X = 0 a Y > 0  d = 90,
  1050.      pro X = 0 a Y < 0  d = 270.
  1051. d vyjde ve stupnφch, pro p°evod  na hodiny je nutno ji vyd∞-
  1052. lit patnßcti.
  1053.                     Z
  1054.      t = arctg -------------                         (38)
  1055.                  +--------+
  1056.                 -  X2 + Y2
  1057. 3.24
  1058.      ELONGACE T╠LESA
  1059. je ·hlovß vzdßlenost t∞lesa od Slunce na obloze.
  1060.            +                                         +
  1061. e = arccos ª sin t sin tS + cos t cos tS cos (d - dS)ª, (39)
  1062.            +                                         +
  1063. kde d a  t jsou rovnφkovΘ (sfΘrickΘ) sou°adnice  t∞lesa a dS
  1064. a tS jsou rovnφkovΘ sou°adnice Slunce.
  1065. 3.25
  1066.      F┴ZE PLANETY f
  1067. je pom∞r osv∞tlenΘ Φßsti kotouΦku planety k celΘmu disku.
  1068.           1 + cos i
  1069.      f = -----------,                                (40)
  1070.               2
  1071.      kde    i   je    fßzov²   ·hel    planety   (tj.   ·hel
  1072. Slunce-planeta-Zem∞); pro n∞j platφ
  1073.               R2 + r2 - RZ2
  1074.      cos i = ---------------,                        (41)
  1075.                   2 R r
  1076.      R - vzdßlenost planety od Slunce,
  1077.      r - vzdßlenost planety od Zem∞,
  1078.      RZ - vzdßlenost Zem∞ od Slunce.
  1079.  
  1080.  
  1081.  
  1082. 3.26
  1083.      F┴ZE M╠SσCE fM PRO JULI┴NSK╔ DATUM JD:
  1084.                +  JD - 1 721 088.5     +
  1085.      fM = FRAC ª --------------------- ª,            (42)
  1086.                +       29.53059        +
  1087.      FRAC a je desetinnß Φßst Φφsla a.
  1088.      fM = 0.00  pro prvnφ Φtvr¥,
  1089.           0.25  pro ·pln∞k,
  1090.           0.50  pro poslednφ Φtvr¥,
  1091.           0.75  pro nov.
  1092. 3.27
  1093.      ZD┴NLIV┴ VELIKOST (MAGNITUDA) PLANET:
  1094.      Magnituda odpovφdß pozorovanΘ  jasnosti t∞lesa na oblo-
  1095. ze. Zßvisφ nejen na  skuteΦnΘ jasnosti t∞lesa (absolutnφ ve-
  1096. likost), ale i na jeho vzdßlenosti.
  1097.      Jsou-li I1,  I2 intenzity osv∞tlenφ  p∙sobenΘho zß°enφm
  1098. dvou t∞les, jsou jejich zdßnlivΘ  velikosti m1, m2 dßny Pog-
  1099. sonovou rovnicφ:
  1100.      m2 - m1 = 2.5 (log I1 - log I2)
  1101.      Jednotkov² rozdφl m2 - m1  se naz²vß jedna magnituda (1
  1102. mag). Rozdφlu  5 mag odpovφdß  pom∞r intenzit 1:100.  ╚φm je
  1103. t∞leso slabÜφ, tφm v∞tÜφ Φφslo oznaΦuje jeho magnitudu (nej-
  1104. slabÜφ hv∞zdy viditelnΘ pouh²m okem majφ velikost 6 mag, Po-
  1105. lßrka 2.2, Vega 0.1, Sφrius  -1.6, VenuÜe -4.5, ·pln∞k -12.6
  1106. a Slunce -26.6).
  1107.      Zdßnlivß velikost planety zßvisφ  p°edevÜφm na jejφ po-
  1108. loze v∙Φi Zemi a Slunci. SpoΦφtßme ji ze vztahu
  1109.      m = g + 5 log R r,                              (43)
  1110.      kde  R  je  vzdßlenost  planety  od  Slunce,  r od Zem∞
  1111. a g znaΦφ jistou konstantu  (urΦenou z pozorovßnφ), kterß je
  1112. pro ka₧dou planetu jinß.
  1113.     Merkur: g = -0.42 + 0.038 i - 0.000273 i2 + 0.000002 i3,
  1114.     kde i je fßzov² ·hel planety,
  1115.     VenuÜe: g = -4.4 + 0.0009 i + 0.000239 i2 -
  1116.                                           - 0.00000065 i3,
  1117.     Mars: g = -1.52 + 0.01486 i,
  1118.     Jupiter: g = -9.40,
  1119.     Saturn: g = -8.88 + 0.044 i - 2.6 ªsin Bª + 1.25 sin2B,
  1120. kde B je saturnocentrickß Üφ°ka Zem∞,
  1121.     sin B = sin J cos t sin (d - N) - cos J sin t,   (44)
  1122. d  a t  jsou  rektascenze  a deklinace  Saturna, hodnoty
  1123. J a N v radißnech urΦφme z v²raz∙
  1124.     J = 0.116756 - 0.007612 T + 0.000224 T2,
  1125.     N = 2.241289 - 0.073827 T - 0.004086 T2,
  1126.          JD - 2 433 282.423
  1127.     T = --------------------.
  1128.               36525
  1129.     Uran: g = -7.19,
  1130.     Neptun: g = -6.87,
  1131.     Pluto: g = -1.01.
  1132. 3.28
  1133.      VLIV PRECESE NA ELEMENTY DR┴HY:
  1134.      PRECESE je dlouhoperiodick² pohyb zemskΘ osy, zp∙soben²
  1135. gravitaΦnφmi silami  M∞sφce a Slunce  (lunisolßrnφ precese).
  1136. Osa  Zem∞ opφÜe  povrchovou plochu  ku₧ele jednou  za 25 700
  1137. let.  Osa tohoto  PRECESNσHO  KUÄELE  mφ°φ k  p≤lu ekliptiky
  1138. a poloviΦnφ ·hel  u vrcholu se  rovnß sklonu ekliptiky  v∙Φi
  1139. rovnφku  (23-27'). Precesnφm  pohybem se  m∞nφ jednak poloha
  1140. nebeskΘho p≤lu  na obloze, jednak  poloha nebeskΘho rovnφku,
  1141. tedy i  pr∙seΦφku rovnφku s ekliptikou,  jarnφho bodu. Pon∞-
  1142. vad₧ jarnφ bod definuje  zßkladnφ sm∞r v systΘmu rovnφkov²ch
  1143. sou°adnic,  m∞nφ  se  zßrove≥  i  rovnφkovΘ sou°adnice hv∞zd
  1144. a elementy drßhy ob∞₧n²ch t∞les.  Musφme je proto v₧dy vzta-
  1145. hovat na  urΦitou, p°esn∞ Φasov∞  definovanou polohu jarnφho
  1146. bodu (pro danou EPOCHU).  Tu vyjad°ujeme obvykle ve zlomcφch
  1147. roku (nap°. 2000.0).
  1148.      REDUKCE DR┴HOV▌CH ELEMENT┘ Z JEDN╔ EPOCHY DO DRUH╔:
  1149.      t0 - poΦßteΦnφ epocha,
  1150.      t - koneΦnß epocha,
  1151.      i0 - sklon drßhy k rovin∞ ekliptiky pro epochu t0,
  1152.      w0 - argument dΘlky perihelia pro epochu t0,
  1153.      U0 - dΘlka v²stupnΘho uzlu pro epochu t0.
  1154.      i, w, U - vÜe pro epochu t.
  1155.      k0, k - epochy t0, t vyjßd°enΘ v tisφcinßch let od roku
  1156. 1900.0:
  1157.            t0 - 1900         t - 1900
  1158.      k0 = -----------,  k = ----------.
  1159.              1000              1000
  1160. Jestli₧e T = k - k0,
  1161. vypoΦφtßme nßsledujφcφ veliΦiny:
  1162.      n = (0.130852777 - 0.001875 k0 + 0.000158333 k02)T
  1163.       + (-0.000936111 + 0.000158333 k0)T2 + 0.000013888 T3,
  1164.      n0 = 173.950833 + 9.130277778 k0 + 0.015555555 k02
  1165.         - (2.415 + 0.015277777 k0)T + 0.000833333 T2,
  1166.      n = n0 + (13.96011389 + 0.061747222 k0 +
  1167.        + 0.000072222 k02)T + (0.030875 + 0.000072222 k0)T2+
  1168.        + 0.000027777 T3.
  1169. Sklon drßhy i je pak roven
  1170. i = arccos (cos i0 cos n + sin i0 sin n cos (U0 - n0). (45)
  1171. DΘlku v²stupnΘho uzlu U urΦφme ze vztah∙
  1172.      sin (U - n) sin i = sin i0 sin (U0 - n0),       (46)
  1173.      cos (U - n) sin i = - sin n cos i0
  1174.                          + cos n sin i0 cos (U0 - n0),
  1175. Vzdßlenost perihelu  w = w0 + wD, p°iΦem₧
  1176.      sin wD sin i = - sin n sin (U0 - n0),           (47)
  1177.      cos wD  sin i = sin i0 cos n -
  1178.                      - cos i0 sin n cos (U0 - n0).
  1179.      Zatφmco M∞sφc  a Slunce p∙sobφ  na zemskou osu,  p∙sobφ
  1180. p°ita₧livost planet na polohu roviny zemskΘ drßhy. Tφm vzni-
  1181. kß periodickß zm∞na sklonu  ekliptiky k rovnφku. Pro julißn-
  1182. skΘ datum JD lze tento sklon aproximovat vztahem
  1183.      o = 23.4392911 - 0.013004166 T - 0.00000164 T2  (48)
  1184.          + 0.000000503 T3,
  1185. kde T je Φas m∞°en² v julißnsk²ch stoletφch od r. 2000.0
  1186.           JD - 2451545
  1187.      T = --------------.
  1188.               36525
  1189. 3.29
  1190.      TRANSFORMACE   ROVNσKOV▌CH  SOU╪ADNIC   NA  OBZORNσKOV╔
  1191. v mφst∞ o danΘ zem∞pisnΘ Üφ°ce SZ.
  1192.      t je  hodinov² ·hel t∞lesa,  t je jeho  deklinace, A je
  1193. azimut a h v²Üka nad obzorem.
  1194.      1. UrΦφme pravo·hlΘ obzornφkovΘ sou°adnice XO, YO, ZO
  1195.      XO = cos t cos t sin SZ - sin t cos SZ,
  1196.      YO = cos t sin t,
  1197.      ZO = cos t cos t cos SZ + sin t sin SZ.
  1198.      2. Azimut A urΦφme ze vztah∙
  1199.                             YO
  1200.      Pro XO > 0  A = arctg ---,
  1201.                             XO
  1202.                             YO
  1203.      pro XO < 0  A = arctg --- + 180,                (49)
  1204.                             XO
  1205.      pro XO = 0 a YO > 0  A = 90,
  1206.      pro XO = 0 a YO < 0  A = 270,
  1207.  
  1208. a v²Üka
  1209.                       ZO
  1210.      h = arctg ---------------.                      (50)
  1211.                  +----------+
  1212.                 -  XO2 + YO2
  1213.  
  1214. 3.30
  1215.      UR╚ENσ ROVNσKOV▌CH SOU╪ADNIC M╠SσCE pro datum JD:
  1216.      1. UrΦφme  Φas T m∞°en²  v julißnsk²ch stoletφch  od r.
  1217. 2000.0
  1218.           JD - 2451545
  1219.      T = --------------.
  1220.               36525
  1221.      2. VypoΦφtßme nßsledujφcφ veliΦiny:
  1222.      Ekliptikßlnφ dΘlka
  1223.      le = 218.3166544 + 481267.8813 T +
  1224.           + 6.29 sin(134.9 + 477198.85 T) -
  1225.           - 1.27 sin(259.2 - 413335.38 T) +
  1226.           + 0.66 sin(235.7 + 890534.23 T) +
  1227.           + 0.21 sin(269.9 + 954397.7 T) +
  1228.           - 0.19 sin(357.5 + 35999.05 T) -
  1229.           - 0.11 sin(186.6 + 966404.05 T),
  1230.      ekliptikßlnφ Üφ°ka
  1231.      be = 5.13 sin(93.3 + 483202.03 T) +
  1232.           + 0.28 sin(228.2 + 960400.87 T) -
  1233.           - 0.28 sin(318.3 + 6003.18 T) -
  1234.           - 0.17 sin(217.6 - 407332.2 T),
  1235.      horizontßlnφ  paralaxa (·hel,  pod kter²m  se z  danΘho
  1236. t∞lesa jevφ rovnφkov² polom∞r Zem∞) M∞sφce
  1237.      I = 0.9508 + 0.0518 cos(134.9 + 477198.85 T) +
  1238.          + 0.0095 cos(259.2 - 413335.38 T) +
  1239.          + 0.0078 cos(235.7 + 890534.23 T) +
  1240.          + 0.0028 cos(269.9 + 954397.70 T).
  1241.      3.  Vzdßlenost  M∞sφce  od  Zem∞,  vyjßd°enß v zemsk²ch
  1242. polom∞rech
  1243.             1
  1244.      R = -------.                                    (51)
  1245.           sin I
  1246.      RovnφkovΘ sou°adnice M∞sφce (d, t):
  1247.                            m
  1248.      Pro l > 0  d = arctg ---,
  1249.                            l
  1250.                            m
  1251.      pro l < 0  d = arctg --- + 180,                 (52)
  1252.                            l
  1253.      pro l = 0 a m > 0  d = 90,
  1254.      pro l = 0 a m < 0  d = 270,
  1255.      t = arcsin n,                                   (53)
  1256. kde
  1257.      l = cos(be) cos(le),
  1258.      m = 0.9175 cos(be) sin(le) - 0.3978 sin(be),
  1259.      n = 0.3978 cos(be) sin(le) + 0.9175 sin(be).
  1260. 3.31
  1261.      POLOHY GALILEOVSK▌CH DRUÄIC JUPITERA:
  1262.      PoΦφtajφ se x-ovΘ sou°adnice m∞sφc∙ Io, Europa, Ganymed
  1263. a Kallisto vzhledem k planet∞ Jupiter p°i pozorovßnφ v p°ev-
  1264. racejφcφm dalekohledu. Jednotkou  je Jupiter∙v rovnφkov² po-
  1265. lom∞r.
  1266.      X1 .. X4 - x-ovΘ sou°adnice dru₧ic.
  1267.      d - Φas ve dnech od 1. 1. 1900, 12h UT:
  1268.      d = JD - 2 415 020.
  1269.      St°ednφ anomßlie Zem∞ MZ,  st°ednφ anomßlie Jupitera MJ
  1270. a rozdφl  heliocentrick²ch st°ednφch  dΘlek Zem∞  a Jupitera
  1271. LZJ jsou dßny vztahy:
  1272.      Mz = 358.476 + 0.985 6003 d,
  1273.      MJ = 225.328 + 0.083 0853 d,
  1274.      LZJ = 221.647 + 0.902 5179 d.
  1275.      A = 1.92 sin MZ + 0.02 sin 2MZ,
  1276.      B = 5.537 sin MJ + 0.167 sin 2MJ,
  1277.      K = LZJ + A - B,
  1278.           +--------------------+
  1279.      D = - 28.07 - 10.406 cos K ,
  1280.           I arcsin ( sin K/D )
  1281.      P = ----------------------,
  1282.                  180
  1283.      P p°evedeme do intervalu <-90, 90).
  1284.      u1 = 84.5506 + 203.405863 (d - D/173) + P - B,
  1285.      u2 = 41.5015 + 101.2916323 (d - D/173) + P - B,
  1286.      u3 = 109.977 + 50.2345169 (d - D/173) + P - B,
  1287.      u4 = 176.3586 + 21.4879802 (d - D/173) + P - B,
  1288.      X1 = -5.906 sin u1,
  1289.      X2 = -9.397 sin u2,                             (54)
  1290.      X3 = -14.989 sin u3,
  1291.      X4 = -26.364 sin u4.
  1292.      Sou°adnice jsou kladnΘ (zßpornΘ), je-li dru₧ice v²chod-
  1293. n∞ (zßpadn∞) od planety.  Je-li absolutnφ hodnota x-ovΘ sou-
  1294. °adnice menÜφ  ne₧ jedna a sou°adnice  se zv∞tÜuje, prochßzφ
  1295. m∞sφc za Jupiterem, jestli₧e se zmenÜuje, prochßzφ p°ed pla-
  1296. netou.
  1297. 3.32
  1298.      V▌PO╚ET ZD┴NLIV╔HO SKLONU SATURNOV▌CH PRSTENC┘:
  1299.      Nejprve  vypoΦteme heliocentrickΘ  rovnφkovΘ sou°adnice
  1300. Saturna X,  Y, Z (viz  3.19), sfΘrickΘ rovnφkovΘ  sou°adnice
  1301. Saturna d,  t (viz 3.23) a  jeho heliocentrickΘ ekliptikßlnφ
  1302. sou°adnice Xe, Ye, Ze (viz 3.20).
  1303.      UrΦφme Φas T:
  1304.           JD - 2433282.4234
  1305.      T = -------------------.
  1306.               36524.22
  1307.      Rektascenze a deklinace severnφho  p≤lu Saturna dS a tS
  1308. urΦφme ze vztah∙:
  1309.      dS = 38.416375 - 0.034 T,
  1310.      tS = 83.32 - 0.004 T.
  1311.      J = arccos (cos i cos o - sin i sin o cos U),
  1312.                          sin i sin U
  1313.      N = arctg ---------------------------------,
  1314.                 cos i sin o + sin i cos o cos U
  1315.      kde i je sklon a  U dΘlka v²stupnΘho uzlu drßhy Saturna
  1316. a o je sklon ekliptiky k rovnφku.
  1317.      ┌hel z urΦφme ze vztah∙:
  1318.      sin z = sin o sin U,
  1319.      cos z = sin i cos o + cos i sin o cos U.
  1320.                 +                                        +
  1321.      I = arccos ªcos J sin tS + sin J cos tS sin (N - dS)ª,
  1322.                 +                                        +
  1323.                         - cos J cos (N - dS)
  1324. L = z + arctg ------------------------------------------.
  1325.                cos J cos tS sin (N - dS) - sin J sin tS
  1326.      Heliocentrickou ekliptikßlnφ dΘlku  Saturna l urΦφme ze
  1327. vztah∙:
  1328.      sin l = Ye,
  1329.      cos l = Xe.
  1330.      Saturnocentrickß ekliptikßlnφ dΘlka Slunce lS je rovna:
  1331.                      ªtg (l - U)ª
  1332.      lS = L + arctg --------------.
  1333.                          cos i
  1334.      VypoΦφtßme saturnocentrickou deklinaci Zem∞ a Slunce DZ
  1335. a DS:
  1336.            +                                         +
  1337. DZ = arcsinª-sin tS sin t - cos tS cos t cos (dS - d)ª, (55)
  1338.            +                                         +
  1339.      DS = - arcsin ( sin lS sin I).                  (56)
  1340.      Saturnocentrickß deklinace Zem∞  DZ je rovna zdßnlivΘmu
  1341. sklonu  prstenc∙ p°i  pohledu ze  Zem∞, jsou-li  znamΘnka DS
  1342. a DZ stejnΘ, je k zemi p°ivrßcena osv∞tlenß strana prstenc∙.
  1343.      POPIS PROGRAMU
  1344. 4.1
  1345.      MODUL MATH:
  1346.      Obsahuje matematickΘ funkce.
  1347. Sinus
  1348. function Sinus(x:real):real;
  1349.      Vracφ sinus argumentu x, kter² je ve stupnφch.
  1350. Cosin
  1351. function Cosin(x:real):real;
  1352.      Vracφ kosinus argumentu x, kter² je ve stupnφch.
  1353. Arcsin
  1354. function Arcsin(x:real):real;
  1355.      Vracφ arkussinus argumentu x. V²sledek je v radißnech.
  1356. Arcsinus
  1357. function Arcsinus(x:real):real;
  1358.      Vracφ arkussinus argumentu x. V²sledek je ve stupnφch.
  1359. Arccosin
  1360. function Arccosin(x:real):real;
  1361.      Vracφ  arkuskosinus argumentu  x. V²sledek  je ve stup-
  1362.      nφch.
  1363. Arctangen
  1364. function Arctangen(x:real):real;
  1365.      Vracφ  arkustangens argumentu  x. V²sledek  je ve stup-
  1366.      nφch.
  1367. Tangen
  1368. function Tangen(x:real):real;
  1369.      Vracφ tangens argumentu x, kter² je udßn ve stupnφch.
  1370. Sgn
  1371. function Sgn(x:real):integer;
  1372.      Vracφ  signum  (znamΘnko)  Φφsla  x.  Je-li  x  > 0, je
  1373.      sgn(x) = 1,
  1374.      x < 0  sgn(x) = -1,
  1375.      x = 0 sgn(x) = 0.
  1376. Log
  1377. function Log(x:real):real;
  1378.      Vracφ dekadick² logaritmus argumentu x.
  1379. Cel
  1380. function Cel(x:real):real;
  1381.      Vracφ celou Φßst argumentu x (menÜφ celΘ Φφslo)
  1382.      Cel( 3.6 ) = 3,
  1383.      Cel(-2.1 ) = -3.
  1384. Uhel
  1385. function Uhel(Sin,Cos:real):real;
  1386.      Vracφ ·hel, jeho₧ sinus = Sin a kosinus = Cos.
  1387. 4.2
  1388.      MODUL PRO
  1389.      Obsahuje procedury a funkce kterΘ usnad≥ujφ b∞h progra-
  1390.      mu a prßci v grafickΘm re₧imu.
  1391. ReadWord
  1392. procedure ReadWord(X:XSour;Y:YSour;MaxZnaku:word;var a:word);
  1393.      Umo₧≥uje  naΦφtat prom∞nnou  a typu  word z  klßvesnice
  1394.      v grafickΘm re₧imu. Na sou°adnicφch X a Y se utvo°φ bφ-
  1395.      l² rßmeΦek  (jeho prav² hornφ roh),  jeho₧ dΘlka je zß-
  1396.      vislß na maximßlnφm mo₧nΘm  poΦtu zadan²ch Φφslic (pro-
  1397.      m∞nnß MaxZnaku).  Zadßvßnφ probφhß z  klßvesnice pomocφ
  1398.      Φφsel  a  klßvesy  <Backspace>.  Zadßvßnφ konΦφ stiskem
  1399.      <ENTER>.
  1400. ReadReal
  1401. procedure ReadReal(X:XSour;Y:YSour;MaxZnaku:word;var a:real);
  1402.      Procedura  funguje obdobn∞  jako ReadWord  ale prom∞nnß
  1403.      a je typu real.
  1404. ReadStr
  1405. procedure ReadStr(X:XSour;Y:YSour;MaxZnaku:word;var a:string);
  1406.      Procedura  funguje obdobn∞  jako ReadWord  ale umo₧≥uje
  1407.      naΦφtat prom∞nnou typu string.
  1408. Nestisk
  1409. procedure Nestisk(X:XSour;Y:YSour;S:string;Velikost:VelikostMenu);
  1410.      Procedura vypisuje text S  v "nestisklΘm tlaΦφtku", je-
  1411.      ho₧ hornφ prav² roh mß  sou°adnice X, Y. Parametr Veli-
  1412.      kost udßvß v²Üku tlaΦφtka (1: 10 pixel∙, 2: 16 pixel∙).
  1413.      DΘlka tlaΦφtka je dßna dΘlkou textu.
  1414. Stisk
  1415. procedure Stisk(X:XSour;Y:YSour;S:string;Velikost:VelikostMenu);
  1416.      Procedura vypisuje text S ve "stisklΘm tlaΦφtku", jeho₧
  1417.      hornφ prav²  roh mß sou°adnice X,  Y. Parametr Velikost
  1418.      udßvß v²Üku tlaΦφtka (1: 10 pixel∙, 2: 16 pixel∙). DΘl-
  1419.      ka tlaΦφtka je dßna dΘlkou textu.
  1420. Ram
  1421. procedure Ram(x1,y1,x2,y2:XSour);
  1422.      Procedura  vykreslφ  "plastick²"  rßmeΦek,  vystupujφcφ
  1423.      z  plochy, vypln∞n²  tmav∞ modrou  barvou, o ·hlop°φΦce
  1424.      [x1,y1] - [x2,y2].
  1425. RamInv
  1426. procedure RamInv(x1,y1,x2,y2:XSour);
  1427.      Procedura  vykreslφ  "plastick²"  rßmeΦek,  zapadl²  do
  1428.      plochy,    vypln∞n²   bφlou    barvou,   o   ·hlop°φΦce
  1429.      [x1,y1] - [x2,y2].
  1430. Uvod
  1431. procedure Uvod;
  1432.      Procedura zobrazuje ·vod  programu. Ze souboru UVOD.OBR
  1433.      je naΦten nßpis Polohy t∞les sluneΦnφ soustavy. Ze sou-
  1434.      bor∙ ZEME.OBR, MARS.OBR,  JUPITER.OBR a SATURN.OBR jsou
  1435.      naΦteny obrßzky planet. Hv∞zdy v pozadφ jsou rozmφst∞ny
  1436.      nßhodn∞ p°i ka₧dΘm spuÜt∞nφ programu.┌vod konΦφ stiskem
  1437.      libovolnΘ klßvesy.
  1438. Help
  1439. procedure Help(Strana:word);
  1440.      Procedura vypφÜe  do hlavnφho okna  programu p°φsluÜnou
  1441.      stranu ze souboru TELESA.HLP. Jedna strana mß 45 °ßdk∙.
  1442. HelpMenu
  1443. procedure HelpMenu;
  1444.      Umo₧≥uje v²b∞r jednΘ z polo₧ek v menu HELPªMENU.
  1445. PosunMenu
  1446. procedure PosunMenu(OrdKla:integer;var PlhHlTlac:HlPoloha;
  1447.                     var OrdKlaHl:byte;var CtiKlavesu:boolean);
  1448.      Procedura umo₧≥uje  p°eskok z jednoho  do druhΘho (sou-
  1449.      sednφho) vno°enΘho menu, ani₧ by bylo nutno odchßzet do
  1450.      hlavnφho menu. Ve skuteΦnosti je vno°enΘ menu opuÜt∞no,
  1451.      ale novß  klßvesa nenφ naΦφtßna a  spouÜtφ se jinΘ ved-
  1452.      lejÜφ menu.
  1453. RAHMinStr
  1454. procedure RAHMinStr(RA:real;var HStr,MinStr:StringSmall);
  1455.      P°evßdφ rektascenzi RA na  hodiny a minuty, jejich₧ nu-
  1456.      merickΘ hodnoty jsou konvertovßny na jejich reprezenta-
  1457.      ci  v °et∞zci  znak∙ (HStr,  MinStr). Minuty  jsou zao-
  1458.      krouhleny na jedno desetinnΘ mφsto.
  1459. DEStupMStr
  1460. procedure DEStupMStr(DE:real;var StupStr,MStr:StringSmall);
  1461.      P°evßdφ deklinaci DE na stupn∞ a ·hlovΘ minuty, jejich₧
  1462.      numerickΘ hodnoty jsou konvertovßny na jejich reprezen-
  1463.      taci v °et∞zci znak∙ (StupStr, MStr). Minuty jsou zaok-
  1464.      rouhleny na celΘ Φφslo.
  1465. UpStr
  1466. procedure UpStr(var S:string);
  1467.      P°evßdφ vÜechny  znaky °et∞zce S na  velkß pφsmena. Ne-
  1468.      pφsmenovΘ znaky a velkß pφsmena ponechßvß beze zm∞ny.
  1469. Napoveda
  1470. procedure Napoveda(a,b,c,d:NapisNapov);
  1471.      Vypisuje  do okna  nßpov∞dy text,  sestßvajφcφ ze  Φty°
  1472.      °ßdk∙ (a, b, c, d). P°edtφm je obsah okna nßpov∞dy sma-
  1473.      zßn.
  1474. NeniSoubor
  1475. procedure NeniSoubor(Soubor:string);
  1476.      Vypisuje do okna nßpov∞dy hlßÜenφ o nenalezenφ souboru,
  1477.      jeho₧ jmΘno je uvedeno  v prom∞nnΘ Soubor. Toto hlßÜenφ
  1478.      je doprovßzeno  pφpnutφm a po  stisku libovolnΘ klßvesy
  1479.      je obsah okna pro nßpov∞du vymazßn.
  1480. NeniMisto
  1481. procedure NeniMisto;
  1482.      VypφÜe do okna pro  nßpov∞du hlßÜenφ o nedostatku mφsta
  1483.      na  disku,  doprovßzenΘ  pφpnutφm.  Po stisku libovolnΘ
  1484.      klßvesy je obsah okna vymazßn.
  1485. Beep
  1486. procedure Beep;
  1487.      Vydß krßtk² zvukov² signßl o dΘlce 3 setiny sekundy.
  1488. XMenu
  1489. function XMenu(Znaku:byte):XSour;
  1490.      Vracφ Üφ°ku svislΘho menu  v zßvislosti na poΦtu znak∙,
  1491.      kterΘ obsahujφ nßzvy jeho jednotliv²ch polo₧ek.
  1492. YMenu
  1493. function YMenu(Polozek:byte):YSour;
  1494.      Vracφ v²Üku  svislΘho menu v zßvislosti  na poΦtu polo-
  1495.      ₧ek, kterΘ toto menu obsahuje.
  1496. Prestup
  1497. function Prestup(Rok:word):boolean;
  1498.      Mß hodnotu true, je-li Rok p°estupn², jinak false.
  1499. DobDen
  1500. function DobDen(Rok,Mes,Den:word):boolean;
  1501.      Mß hodnotu  true v p°φpad∞,  ₧e kombinace roku,  m∞sφce
  1502.      a dne (Rok, Mes, Den)  je p°φpustnß jako kalendß°nφ da-
  1503.      tum. Jinak mß hodnotu false.
  1504. DobSoub
  1505. function DobSoubor(Soubor:string):boolean;
  1506.      Hodnotu true mß v p°φpad∞,  ₧e jmΘno souboru Soubor ne-
  1507.      obsahuje ₧ßdnΘ  nepovolenΘ znaky a v  p°φpad∞ ₧e soubor
  1508.      tohoto nßzvu jeÜt∞ neexistuje.
  1509. OrdKlavesa
  1510. function OrdKlavesa:byte;
  1511.      Funkce  Φekß na  stisk klßvesy  a vracφ  jejφ ordinßlnφ
  1512.      Φφslo.
  1513. Mezera
  1514. function Mezera(M:byte):string;
  1515.      Vracφ °et∞zec vypln∞n² M mezerami.
  1516. Nuly
  1517. function Nuly(Pocet:byte):string;
  1518.      Vracφ °et∞zec vypln∞n² nulami poΦtu Pocet.
  1519. ExistSoubor
  1520. function ExistSoubor(Soubor:string):boolean;
  1521.      Hledß, zda  v aktußlnφm adresß°i  na aktußlnφ mechanice
  1522.      existuje soubor  Soubor. Existuje-li, mß  hodnotu true,
  1523.      jinak false.
  1524. NovaPoloha
  1525. function NovaPoloha(OrdKla:byte;PlhTlac,MaxPoloha:byte):byte;
  1526.      Vracφ Φφslo, kterΘ udßvß polohu prosvφcenΘho polφΦka ve
  1527.      svislΘm  menu. Tato  poloha zßvisφ  na poloze p°edchozφ
  1528.      (PlhTlac), na stisklΘ klßvese  (OrdKla) a poΦtu polo₧ek
  1529.      v menu (MaxPoloha).
  1530. PocetDni
  1531. function PocetDni(Rok,Mes:word):word;
  1532.      Vracφ  poΦet  dnφ  v  zadanΘm  kalendß°nφm m∞sφci (Mes)
  1533.      v roce (Rok).
  1534. Odchod
  1535. function Odchod(OrdKla:byte):boolean;
  1536.      Mß hodnotu true, jestli₧e stisk klßvesy, jejφ₧ ordinßl-
  1537.      nφ Φφslo urΦuje prom∞nnß  OrdKla, zp∙sobφ opuÜt∞nφ vno-
  1538.      °enΘho menu.
  1539. ZlomekRoku
  1540. function ZlomekRoku(Rok,Mes,Den:word):real;
  1541.      Vracφ zadanΘ kalendß°nφ datum (Rok, Mes, Den) vyjßd°enΘ
  1542.      ve zlomku roku.
  1543. 4.3
  1544.      MODUL VYPOCTY
  1545.      Obsahuje slo₧it∞jÜφ v²poΦty, t²kajφcφ se nebeskΘ mecha-
  1546. niky.
  1547. MsLs
  1548. procedure MsLs(var MS,LS:real;JD:real);
  1549.      Procedura p°i°adφ do prom∞nnΘ  MS st°ednφ anomßlii a LS
  1550.      st°ednφ ekliptikßlnφ  dΘlku Slunce pro  julißnskΘ datum
  1551.      JD podle podle rovnic (32) a (33).
  1552. Prevod
  1553. procedure Prevod(X,Y,Z,SinA,CosA,SinB,CosB,CosASinB,SinASinB:real;
  1554.                  var XGr:XSour;var YGr:YSour);
  1555.      P°evßdφ  prostorovΘ sou°adnice  X, Y,  Z na obrazovkovΘ
  1556.      XGr,  YGr. Prom∞nnΘ  SinA, CosA,  SinB, CosB,  CosASinB
  1557.      a SinASinB  urΦujφ siny, kosiny  a jejich souΦiny  ·hl∙
  1558.      A a B:
  1559.      B - ·hel odklonu osy Z od roviny obrazovky,
  1560.      A  -  ·hel  otoΦenφ  prostorovΘ  soustavy  okolo osy Z;
  1561.      A = 0, jestli₧e osa X mφ°φ ven z obrazovky.
  1562. PravRovSourSlunce
  1563. procedure PravRovSourSlunce(var XS,YS,ZS:real;JD:real);
  1564.      PoΦφtß  pravo·hlΘ   rovnφkovΘ  geocentrickΘ  sou°adnice
  1565.      Slunce XS, YS a ZS pro datum JD podle rovnic (36).
  1566. RektDeklMesice
  1567. procedure RektDeklMesice(var RA,DE,Vzdal:real;JD:real);
  1568.      PoΦφtß rektascenzi RA, deklinaci DE a vzdßlenost od Ze-
  1569.      m∞ Vzdal v zemsk²ch polom∞rech M∞sφce pro datum JD pod-
  1570.      le rovnic (51), (52) a (53).
  1571. KonstantyRov
  1572. procedure KonstantyRov(var p1,p2,p3,q1,q2,q3:real;Skl,Arg,Dlu,o:real);
  1573.      PoΦφtß sm∞rovΘ  rovnφkovΘ kosiny drßhy  t∞lesa z jejφch
  1574.      element∙:
  1575.      Skl - sklon drßhy,
  1576.      Arg - argument dΘlky perihelia,
  1577.      Dlu - dΘlka v²stupnΘho uzlu,
  1578.      o - sklon ekliptiky k rovnφku,
  1579.      podle rovnic  (24) (p1 ..  p3 =  PX  .. PZ, q1  .. q3 =
  1580.      QX .. QZ).
  1581. KonstantyEklip
  1582. procedure KonstantyEklip(var p1,p2,p3,q1,q2,q3:real;Skl,Arg,Dlu:real);
  1583.      PoΦφtß sm∞rovΘ  ekliptikßlnφ kosiny drßhy  t∞lesa z je-
  1584.      jφch element∙:
  1585.      Skl - sklon drßhy,
  1586.      Arg - argument dΘlky perihelia,
  1587.      Dlu - dΘlka v²stupnΘho uzlu,
  1588.      podle rovnic (28).
  1589. HelcentrRovSour
  1590. procedure HelcentrRovSour(var X,Y,Z:real;M,Pol,Exc,p1,p2,p3,
  1591.                           q1,q2,q3:real);
  1592.      PoΦφtß  pravo·hlΘ  rovnφkovΘ  heliocentrickΘ sou°adnice
  1593.      t∞lesa X, Y, Z z t∞chto veliΦin:
  1594.      M - st°ednφ anomßlie t∞lesa,
  1595.      Pol - hlavnφ poloosa drßhy,
  1596.      Exc - numerickß v²st°ednost drßhy,
  1597.      p1 .. q3 - sm∞rovΘ  rovnφkovΘ kosiny drßhy,
  1598.      podle rovnic (23).
  1599. HelcentrEklipSour
  1600. procedure HelcentrEklipSour(var X,Y,Z:real;V,Pol,Exc,p1,p2,p3,
  1601.                             q1,q2,q3:real);
  1602.      PoΦφtß pravo·hlΘ heliocentrickΘ ekliptikßlnφ sou°adnice
  1603.      X, Y, Z  z pravΘ anomßlie V, hlavnφ  poloosy drßhy Pol,
  1604.      numerickΘ  v²st°ednosti  drßhy  Exc  a sm∞rov²ch kosin∙
  1605.      drßhy  pro  ekliptikßlnφ  sou°adnice  (p1  .. g3) podle
  1606.      vzorc∙ (22) a (27).
  1607. RektDekl
  1608. procedure RektDekl(var RA,DE:real;X,Y,Z,XS,YS,ZS:real);
  1609.      PoΦφtß rektascenzi (RA) a  deklinaci (DE) z pravo·hl²ch
  1610.      heliocentrick²ch  rovnφkov²ch  sou°adnic  t∞lesa  X, Y,
  1611.      Z  a pravo·hl²ch  geocentrick²ch rovnφkov²ch  sou°adnic
  1612.      Slunce XS, YS, ZS podle vzorc∙ (29), (37) a (38).
  1613. RedukceElementu
  1614. procedure RedukceElementu(var i,w,u:real;t0,t:real);
  1615.      P°evßdφ elementy  drßhy (i - sklon,  w - argument dΘlky
  1616.      perihelia, u  - dΘlka v²stupnΘho  uzlu) z epochy  t0 do
  1617.      epochy t.  Epochy musφ b²t vyjßd°eny  ve zlomcφch roku.
  1618.      P°evod je proveden podle rovnic (45), (46) a (47).
  1619. ObcDat
  1620. procedure ObcDat(JD:real;var Rok,Mes:word;var Den:real);
  1621.      PoΦφtß obΦanskΘ datum (Rok, Mes, Den) z julißnskΘho da-
  1622.      ta JD podle vzorc∙ (2).
  1623. Merkur
  1624. procedure Merkur(var a,e,i,Arg,u,Epoch,TM0,M0:real);
  1625.      Procedura  vracφ elementy  ob∞₧nΘ drßhy  planety Merkur
  1626.      a epochu Epoch k nφ₧ se tyto elementy vztahujφ.
  1627.      a - hlavnφ poloosa drßhy,
  1628.      e - numerickß v²st°ednost,
  1629.      i - sklon,
  1630.      Arg - argument dΘlky perihelia,
  1631.      u - dΘlka v²stupnΘho uzlu,
  1632.      TM0 - julißnskΘ datum pro st°ednφ anomßlii M0.
  1633. Venuse
  1634. procedure Venuse(var a,e,i,Arg,u,Epoch,TM0,M0:real);
  1635.      Vracφ elementy ob∞₧nΘ drßhy planety VenuÜe. P°φsluÜnost
  1636.      prom∞nn²ch  k  element∙m  je  stejnß  jako  u procedury
  1637.      Merkur.
  1638. Zeme
  1639. procedure Zeme(var a,e,TM0,M0:real);
  1640.      Vracφ n∞kterΘ  elementy ob∞₧nΘ drßhy  Zem∞. P°φsluÜnost
  1641.      prom∞nn²ch  k  element∙m  je  stejnß  jako  u procedury
  1642.      Merkur.
  1643. Mars
  1644. procedure Mars(var a,e,i,Arg,u,Epoch,TM0,M0:real);
  1645.      Vracφ elementy  ob∞₧nΘ drßhy planety  Mars. P°φsluÜnost
  1646.      prom∞nn²ch  k  element∙m  je  stejnß  jako  u procedury
  1647.      Merkur.
  1648. Jupiter
  1649. procedure Jupiter(var a,e,i,Arg,u,Epoch,TM0,M0:real);
  1650.      Vracφ elementy  ob∞₧nΘ drßhy planety  Jupiter. P°φsluÜ-
  1651.      nost prom∞nn²ch k element∙m  je stejnß jako u procedury
  1652.      Merkur.
  1653. Saturn
  1654. procedure Saturn(var a,e,i,Arg,u,Epoch,TM0,M0:real);
  1655.      Vracφ elementy ob∞₧nΘ drßhy planety Saturn. P°φsluÜnost
  1656.      prom∞nn²ch  k  element∙m  je  stejnß  jako  u procedury
  1657.      Merkur.
  1658. Uran
  1659. procedure Uran(var a,e,i,Arg,u,Epoch,TM0,M0:real);
  1660.      Vracφ elementy  ob∞₧nΘ drßhy planety  Uran. P°φsluÜnost
  1661.      prom∞nn²ch  k  element∙m  je  stejnß  jako  u procedury
  1662.      Merkur.
  1663. Neptun
  1664. procedure Neptun(var a,e,i,Arg,u,Epoch,TM0,M0:real);
  1665.      Vracφ elementy ob∞₧nΘ drßhy planety Neptun. P°φsluÜnost
  1666.      prom∞nn²ch  k  element∙m  je  stejnß  jako  u procedury
  1667.      Merkur.
  1668. Pluto
  1669. procedure Pluto(var a,e,i,Arg,u,Epoch,TM0,M0:real);
  1670.      Vracφ elementy ob∞₧nΘ  drßhy planety Pluto. P°φsluÜnost
  1671.      prom∞nn²ch  k  element∙m  je  stejnß  jako  u procedury
  1672.      Merkur.
  1673. StrHvCasGren
  1674. function StrHvCasGren(JD:real):real;
  1675.      Vracφ  st°ednφ hv∞zdn²  Φas v  Greenwiche pro julißnskΘ
  1676.      datum JD v 0h UT. V²poΦet je proveden podle vzorce (5).
  1677. ExcentrAnom
  1678. function ExcentrAnom(M,n:real):real;
  1679.      Vracφ  excentrickou  anomßlii   t∞lesa  vypoΦφtanou  ze
  1680.      st°ednφ  anomßlie  M  a  numerickΘ  v²st°ednosti  drßhy
  1681.      n podle Newtonovy aproximace pro v²poΦet Keplerovy rov-
  1682.      nice (20).
  1683. EklipDelSlunce
  1684. function EklipDelSlunce(MS,LS:real):real;
  1685.      Vracφ skuteΦnou ekliptikßlnφ dΘlku Slunce vypoΦtenou ze
  1686.      st°ednφ anomßlie Slunce MS a st°ednφ ekliptikßlnφ dΘlky
  1687.      LS podle rovnice (34).
  1688. VzdalZeme
  1689. function VzdalZeme(JD:real):real;
  1690.      Vracφ vzdßlenost Zem∞ od  Slunce pro julißnskΘ datum JD
  1691.      urΦenou ze vzorce (35).
  1692. SklonEkliptiky
  1693. function SklonEkliptiky(JD:real):real;
  1694.      Vracφ  sklon ekliptiky  k  rovnφku  pro datum  JD podle
  1695.      vzorce (48).
  1696. JulDat
  1697. function JulDat(Rok,Mes:integer;Den:real):real;
  1698.      Vracφ julißnskΘ datum pro  obΦanskΘ datum Rok, Mes, Den
  1699.      vypoΦφtanΘ ze vzorc∙ (1).
  1700. FazePlanety
  1701. function FazePlanety(R,Vzdal,RZ:real):real;
  1702.      Vracφ  fßzi planety  urΦenou ze  vzdßlenosti planety od
  1703.      Slunce   R,   vzdßlenosti   planety   od   Zem∞   Vzdal
  1704.      a vzdßlenosti Zem∞ od Slunce RZ ze vzorce (40).
  1705. Elongace
  1706. function Elongace(RA,DE,JD:real):real;
  1707.      Vracφ elongaci t∞lesa pro  julißnskΘ datum JD z rovnice
  1708.      (39). RA je rektascnze a DE je deklinace t∞lesa pro to-
  1709.      to datum.
  1710. SinSaturncentrSirZem
  1711. function SinSaturncentrSirZem(RA,DE,JD:real):real;
  1712.      Vracφ sinus saturnocentrickΘ Üφ°ky  Zem∞. RA je rektas-
  1713.      cenze a  DE je deklinace  planety Saturn pro  datum JD.
  1714.      V²poΦet je proveden podle rovnice (44).
  1715. Magnituda
  1716. function Magnituda(RS,Vzdal,JD,RA,DE:real;Objekt:string):real;
  1717.      Vracφ  magnitudu planety,  jejφ₧ nßzev  urΦuje prom∞nnß
  1718.      Objekt,  urΦenou podle  vzorce (43).  RS je  vzdßlenost
  1719.      planety od Slunce, Vzdal od Zem∞, JD je julißnskΘ datum
  1720.      pro dan²  okam₧ik, RA je rektascenze  a DE je deklinace
  1721.      planety.
  1722. CasRov
  1723. function CasRov(JD:real):real;
  1724.      Vracφ velikost  ΦasovΘ rovnice v hodinßch  pro datum JD
  1725.      podle vzorce (15).
  1726. gMerkur
  1727. function gMerkur(i:real):real;
  1728.      Vracφ hodnotu g pro urΦenφ magnitudy Merkura. i je jeho
  1729.      fßzov² ·hel.
  1730. gVenuse
  1731. function gVenuse(i:real):real;
  1732.      Vracφ hodnotu g pro VenuÜi, i je fßzov² ·hel.
  1733. gMars
  1734. function gMars(i:real):real;
  1735.      Vracφ hodnotu g pro Mars, i je fßzov² ·hel.
  1736. gJupiter
  1737. function gJupiter:real;
  1738.      Vracφ hodnotu g pro Jupiter, i je fßzov² ·hel.
  1739. gSaturn
  1740. function gSaturn(i,JD,RA,DE:real):real;
  1741.      Vracφ  hodnotu g  pro Saturn,  i je  fßzov² ·hel, RA je
  1742.      rektascenze, DE  deklinace a JD je  julißnskΘ datum pro
  1743.      dan² okam₧ik.
  1744. gUran
  1745. function gUran:real;
  1746.      Vracφ hodnotu g pro Uran.
  1747. gNeptun
  1748. function gNeptun:real;
  1749.      Vracφ hodnotu g pro Neptun.
  1750. gPluto
  1751. function gPluto:real;
  1752.      Vracφ hodnotu g pro Pluto.
  1753. 4.4
  1754.      MODUL PROCED
  1755.      Obsahuje  procedury, kterΘ  umo₧≥ujφ v²stup  v²poΦt∙ na
  1756. obrazovku.
  1757. HvezdObloha
  1758. procedure HvezdObloha(RAStr:real;DEStr:integer);
  1759.      Vykreslφ do hlavnφho okna hv∞zdn² globus se souhv∞zdφmi
  1760.      a  jejich  zkratkami,  naΦten²mi  ze souboru SOUHV.DAT.
  1761.      Prom∞nnΘ RAStr  a DEStr urΦujφ  rektascenzi a deklinaci
  1762.      st°edu viditelnΘ Φßsti globu.
  1763. DrahaTelesa
  1764. procedure DrahaTelesa(RADE:PoleSour;RAStr:real;DEStr:integer);
  1765.      Vykreslφ na  hv∞zdn² globus (kter²  musφ b²t d°φve  vy-
  1766.      kreslen procedurou HvezdObloha)  drßhu t∞lesa za m∞sφc.
  1767.      Prom∞nnß RADE  obsahuje rektascenze a  deklinace t∞lesa
  1768.      pro ka₧d²  den z 31.  RAStr a DEStr  majφ stejn² v²znam
  1769.      jako u procedury HvezdObloha.
  1770. PolohaTelesa
  1771. procedure PolohaTelesa(RA,DE,RAStr,SinDEStr,CosDEStr,SinA,CosA,
  1772.                        CosASinB,SinASinB:real;var XGr:XSour;
  1773.                        var YGr:YSour;var Viditelnost:boolean);
  1774.      Vracφ v prom∞nn²ch XGr a YGr obrazovkovΘ sou°adnice t∞-
  1775.      lesa, zobrazovanΘho na  hv∞zdnΘm globu. Viditelnost ur-
  1776.      Φuje, zda t∞leso p°i danΘm nastavenφ globu bude, Φi ne-
  1777.      bude viditelnΘ  (zda bude na  p°ivrßcenΘ stran∞ globu).
  1778.      Prom∞nnΘ RA  a DE jsou rektascenze  a deklinace t∞lesa,
  1779.      RAStr  je  rektascenze  st°edu  viditelnΘ  Φßsti globu,
  1780.      SinDEStr  a  CosDEStr  jsou  sinus  a kosinus deklinace
  1781.      st°edu, SinA, CosA, CosASinB, SinASinB jsou siny, kosi-
  1782.      ny a jejich nßsobky ·hl∙: A = 15 RAStr, B = DEStr.
  1783. JupMesice
  1784. procedure JupMesice(Rok,Mes:word);
  1785.      Vykresluje do hlavnφho  okna polohy Jupiterov²ch m∞sφc∙
  1786.      pro m∞sφc,  urΦen² prom∞nnou Mes v  roce Rok. Blφ₧e viz
  1787.      popis polo₧ky menu VYPOCETªASTROKALENDAR (2.5.4).
  1788. SatPrstence
  1789. procedure SatPrstence(Rok,Mes:word);
  1790.      Vykresluje do hlavnφho okna zßvislost zdßnlivΘho sklonu
  1791.      Saturnov²ch  prstenc∙ pro  jeden rok,  poΦφnaje m∞sφcem
  1792.      Mes  v   roce  Rok.  Blφ₧e   viz  popis  polo₧ky   menu
  1793.      VYPOCETªASTROKALENDAR (2.5.4).
  1794. SoustavaPlan
  1795. procedure SoustavaPlan(Objekt:string;TM0,M0,Pol,Exc,Skl,Arg,Dlu,Epoch,
  1796.                        JD:real;RokHl,MesHl,DenHl:word);
  1797.      Procedura  vytvß°φ prost°edφ  popsanΘ v  odstavci 2.5.7
  1798.      (VYPOCETªSOUSTAVA). Prom∞nnß Objekt obsahuje nßzev zvo-
  1799.      lenΘho t∞lesa,  TM0 je okam₧ik,  vyjßd°en² v julißnskΘm
  1800.      datu  pro znßmou  st°ednφ anomßlii  t∞lesa M0. Parametr
  1801.      Pol je hlavnφ poloosa  drßhy, Exc je numerickß v²st°ed-
  1802.      nost,  Skl sklon  drßhy, Arg  argument dΘlky  perihelia
  1803.      a Dlu  je dΘlka v²stupnΘho  uzlu. Epoch je  Φasov² oka-
  1804.      m₧ik, vyjßd°en² ve zlomku  roku, ke kterΘmu se vztahujφ
  1805.      uvedenΘ elementy. JD je julißnskΘ datum, kter²m v²poΦet
  1806.      zaΦφnß, RokHl, MesHl, DenHl je pak toto datum vyjßd°enΘ
  1807.      v obΦanskΘm kalendß°i (Rok, M∞sφc, Den).
  1808. 4.5
  1809.      VLASTNσ PROGRAM
  1810. Vypis
  1811. procedure Vypis;
  1812.      VypφÜe do okna v²pisu aktußlnφ veliΦiny:
  1813.      Rok,  m∞sφc,  den,  zem∞pisnΘ  sou°adnice, nßzev t∞lesa
  1814.      a pßsmov² Φas.
  1815. VychodZapad
  1816. procedure VychodZapad(RA,DE,JD:real;var TV,TZ,TK,Vys,Azi:real);
  1817.      Vracφ  v  prom∞nn²ch  TV,  TZ,  TK,  Vys a Azi okam₧iky
  1818.      v²chodu, zßpadu a kulminace, v²Üku nad obzorem p°i kul-
  1819.      minaci a azimut zßpadu  t∞lesa, jeho₧ rektascenze je RA
  1820.      a deklinace  DE. JD je  julißnskΘ datum, ke  kterΘmu se
  1821.      v²poΦet vztahuje.  V²poΦet se provßdφ  podle rovnic (9)
  1822.      a (10).
  1823. Soumraky
  1824. procedure Soumraky(var TVO,TZO,TVN,TZN,TVA,TZA:real;DeklSlun,JD:real);
  1825.      Pro  den vyjßd°en²  julißnsk²m datem  JD vracφ  zaΦßtek
  1826.      a  konec  obΦanskΘho  soumraku  (TVO,  TZO), nautickΘho
  1827.      soumraku  (TVN,  TZN)  a  astronomickΘho soumraku (TVA,
  1828.      TZA). Parametr DeklSlun udßvß deklinaci Slunce pro dan²
  1829.      den. V²poΦet je proveden podle v²raz∙ (13).
  1830. Teleso
  1831. procedure Teleso;
  1832.      Procedura vytvß°φ menu a umo₧≥uje volbu t∞lesa (viz me-
  1833.      nu TELESO, odstavec 2.3).
  1834. Datum
  1835. procedure Datum;
  1836.      Procedura vytvß°φ  menu a umo₧≥uje  nastavenφ data (viz
  1837.      menu DATUM, odstavec 2.4).
  1838. Astrok
  1839. procedure Astrok;
  1840.      Procedura vykresluje do hlavnφho menu astrokalendß° pro
  1841.      aktußlnφ t∞leso (pro  vÜechna t∞lesa krom∞ Jupiterov²ch
  1842.      m∞sφc∙    a    Saturnov²ch     prstenc∙,    viz    menu
  1843.      VYPOCETªASTROKALENDAR, odstavec 2.5.4).
  1844. Tabulka
  1845. procedure Tabulka(Soub,Tisk:boolean;Soubor:string);
  1846.      Procedura poΦφtß a vypisuje  do hlavnφho okna efemeridy
  1847.      pro aktußlnφ  t∞leso pro aktußlnφ  m∞sφc. Parametr Soub
  1848.      urΦuje, zda mß b²t v²poΦet souΦasn∞ uklßdßn do souboru,
  1849.      jeho₧ nßzev je v parametru  Soubor. Tisk urΦuje, zda mß
  1850.      souΦasn∞ probφhat  tisk tabulky na  tiskßrn∞. (Viz menu
  1851.      VYPOCETªTABULKA, odstavec 2.5.1.)
  1852. Pro_Den
  1853. procedure Pro_Den;
  1854.      Procedura zobrazuje v hlavnφm okn∞ zßvislost obzornφko-
  1855.      v²ch sou°adnic  na Φase pro aktußlnφ  t∞leso a aktußlnφ
  1856.      datum (viz menu VYPOCETªPRO DEN, odstavec 2.5.5).
  1857. Globus
  1858. procedure Globus;
  1859.      Procedura vytvß°φ menu a  prost°edφ pro zobrazovßnφ t∞-
  1860.      lesa na hv∞zdnΘm globu (viz menu VYPOCETªGLOBUS, odsta-
  1861.      vec 2.5.6).
  1862. Vypocet
  1863. procedure Vypocet;
  1864.      Procedura  vytvß°φ menu  a umo₧≥uje  volbu r∙zn²ch typ∙
  1865.      v²poΦt∙ (viz menu VYPOCET, odstavec 2.5).
  1866. Poloha
  1867. procedure Poloha;
  1868.      Procedura  vytvß°φ  menu  a  umo₧≥uje volbu zem∞pisn²ch
  1869.      sou°adnic a pßsmovΘho Φasu (viz menu POLOHA, odstavec 2.6).
  1870. MenuHelpu
  1871. procedure MenuHelpu;
  1872.      Procedura  vytvß°φ menu  a umo₧≥uje  volbu r∙zn²ch typ∙
  1873.      nßpov∞dy (viz menu HELP, odstavec 2.8).
  1874. Konec
  1875. procedure Konec(var Kon:boolean);
  1876.      Procedura vytvß°φ menu pro  opuÜt∞nφ programu (viz menu
  1877.      KONEC,  odstavec 2.7).  V prom∞nnΘ  Kon vracφ podmφnku,
  1878.      zda mß b²t program ukonΦen.
  1879. Vlastnφ  t∞lo  programu  spouÜtφ  ·vod  a  vytvß°φ prost°edφ
  1880. a hlavnφ menu programu.
  1881.  
  1882.  
  1883.  
  1884.      Z┴V╠R
  1885.      V  prßci  jsem  pou₧il  v²poΦty,  vypl²vajφcφ ze zßkon∙
  1886. klasickΘ nebeskΘ mechaniky. Vzorce jsem sßm neodvozoval, ale
  1887. pou₧il   ji₧   existujφcφ   postupy,   kterΘ   jsem   vyΦetl
  1888. z literatury.
  1889.      V²sledky v²poΦt∙  jsem srovnßval s  ·daji, uveden²mi ve
  1890. hv∞zdß°sk²ch roΦenkßch 1995, 1996 a  1997 i s vlastnφm pozo-
  1891. rovßnφm (M∞sφc,  VenuÜe, Mars, Jupiter  a kometa Hale-Bopp).
  1892. Odchylky v²poΦt∙ nep°esßhly 1 ·hlovΘ minuty v p°φpad∞ planet
  1893. a Slunce a  5 ·hlov²ch minut  v p°φpad∞ M∞sφce.  U ostatnφch
  1894. t∞les (planetek,  komet), jejich₧ v²b∞r je  ulo₧en v souboru
  1895. ELEMENTY.DAT, byly  maximßlnφ hodnoty odchylek  rovn∞₧ 5 mi-
  1896. nut.
  1897.      ╚asovΘ ·daje (nap°. v²chody a zßpady t∞les) se od ·daj∙
  1898. v roΦenkßch neliÜφ o vφce ne₧ 5 minut.
  1899.      Pro  vizußlnφ pozorovßnφ  (p°φpadn∞ mal²m dalekohledem)
  1900. jsou tedy v²sledky naprosto dostaΦujφcφ (na p°esnΘ zam∞°ovß-
  1901. nφ planet jsem pochopiteln∞ ani nebyl technicky vybaven).
  1902.      Aplikace poΦφtaΦ∙ v tΘto problematice je dnes ji₧ tΘm∞°
  1903. neodmyslitelnß,  nebo¥  mnohonßsobn∞  zkracuje  i  zp°es≥uje
  1904. zdlouhavΘ v²poΦty, kterΘ bylo d°φve nutno provßd∞t ruΦn∞.
  1905.  
  1906.  
  1907.  
  1908.  
  1909.  
  1910.  
  1911.  
  1912.  
  1913.  
  1914.      SEZNAM POUÄIT╔ LITERATURY
  1915.  1. Zden∞k Pokorn², AstronomickΘ algoritmy pro kalkulßtory,
  1916.     Hv∞zdßrna a planetßrium hl. m. Prahy, Praha 1988
  1917.  2. Astronomickß p°φruΦka, Academia, Praha 1992
  1918.  3. Vladimφr  Van²sek,  Zßklady  astronomie  a astrofyziky,
  1919.     Academia, Praha 1980
  1920.  4. Zemlja i vselennaja 4/88, Nauka, Moskva 1988
  1921.  5. Pavel  Andrle,  Zßklady  nebeskΘ  mechaniky,  Academia,
  1922.     Praha 1971
  1923.  6. V. K.  Abalakin, Osnovy efemeridnoj  astronomii, Nauka,
  1924.     Moskva 1979
  1925.  7. Mapa oblohy 2000.0, Kartografie Praha 1995
  1926.  8. I.  Zajonc  -  P.   Ragas,  Atlas  s·hvezdφ,  SlovenskΘ
  1927.     ·stredie amatΘrskej astron≤mie v Hurbanove 1978
  1928.  9. Vladimφr Van²sek, Hv∞zdß°sk² zem∞pis, Orbis, Praha 1953
  1929. 10.  J. Kleczek  - Z.  èvestka, Astronomick²  a astronautick²
  1930.     slovnφk, Orbis, Praha 1963
  1931. 11. Martin  Kvoch,   Programovßnφ  v  Turbo   Pascalu  7.0,
  1932.     Nakladatelstvφ KOPP, ╚eskΘ Bud∞jovice 1995
  1933. 12. O. Montenbruck - T.  Pfleger, Astronomy on the Personal
  1934.     Computer, Springer-Verlag Berlin Heidelberg 1991
  1935. 13. Hv∞zdß°skß roΦenka 1995, Hv∞zdßrna a planetßrium hl. m.
  1936.     Prahy, Praha 1994
  1937. 14. Hv∞zdß°skß roΦenka 1996, Hv∞zdßrna a planetßrium hl. m.
  1938.     Prahy, Praha 1995
  1939. 15. Hv∞zdß°skß roΦenka 1997, Hv∞zdßrna a planetßrium hl. m.
  1940.     Prahy, Praha 1996
  1941. 16. Astronomickß roΦenka 1996, Slovenskß ·strednß hvezdßre≥
  1942.     Hurbanovo, Hurbanovo 1995
  1943. 17. N.   J.   Kondrat∞v,   Astronomie   pro  letce,  Stßtnφ
  1944.     nakladatelstvφ technickΘ literatury, Praha 1954
  1945. 18. O. E.  Kßdner, Astronomickß navigace  pro letce, Stßtnφ
  1946.     nakladatelstvφ technickΘ literatury, Praha 1954
  1947. 19. J. èirok² - M. èirokß, Zßklady astronomie v p°φkladech,
  1948.     Stßtnφ pedagogickΘ nakladatelstvφ, Praha 1966
  1949. 20. B. Mⁿller, Zßklady astron≤mie, ALFA, Bratislava 1980
  1950.  
  1951.  
  1952.  
  1953.  
  1954.  
  1955.  
  1956.  
  1957.  
  1958.  
  1959.  
  1960.  
  1961.  
  1962.  
  1963.  
  1964.  
  1965.  
  1966.  
  1967.  
  1968.  
  1969.  
  1970.  
  1971.  
  1972.  
  1973.  
  1974.      DISKUSE
  1975.      ODCHYLKY V▌PO╚T┘:
  1976.      Odchylky jsem urΦoval  podle hv∞zdß°sk²ch roΦenek 1995,
  1977. 1996  a  1997.  Nßsledujφcφ  tabulka  obsahuje  rozdφly mezi
  1978. veliΦinami  uvßd∞n²mi  v  roΦenkßch  a hodnotami vypoΦten²mi
  1979. programem  pro  Slunce  a  M∞sφc.  Je  v₧dy uvedena pr∙m∞rnß
  1980. odchylka (i) a maximßlnφ  odchylka (max), kterΘ m∙₧e v²poΦet
  1981. dosßhnout.
  1982.             +---------------+
  1983.             ª  RA   ª   DE  ª
  1984.             ª  min  ª   '   ª
  1985. +-----------+-------+-------ª
  1986. ªSlunce ª i ª 0.049 ª 0.048 ª
  1987. ª       ªmaxª 0.1   ª 1     ª
  1988. +-------+---+-------+-------ª
  1989. ªM∞sφc  ª   ª 0.300 ª 2.714 ª
  1990. ª       ªmaxª 0.5   ª 5     ª
  1991. +---------------------------+
  1992.      Proto₧e vÜak  program vypisuje rektascenzi  s p°esnostφ
  1993. na desetiny  minuty a deklinaci  s p°esnostφ na  celΘ ·hlovΘ
  1994. minuty, nemajφ pr∙m∞rnΘ odchylky u Slunce smysl, proto₧e tu-
  1995. to p°esnost nep°ekraΦujφ. U Slunce je tedy p°esnost v²sledk∙
  1996. dßna  nikoliv  pr∙m∞rnou  odchylkou,  ale  p°esnostφ v²stupu
  1997. programu. Stejn∞ tak je tomu i u planet. U vÜech planet jsou
  1998. odchylky zhruba stejnΘ, a proto jsem je sjednotil a neuvßdφm
  1999. je pro ka₧dou planetu zvlßÜ¥:
  2000.      +--------------------------+
  2001.      ª  RA   ª  DE   ªvzdßlenostª
  2002.      ª  min  ª   '   ª    AU    ª
  2003. +----+-------+-------+----------ª
  2004. ª i  ª 0.036 ª 0.071 ª 0.000143 ª
  2005. ªmax ª 0.1   ª 1     ª 0.001    ª
  2006. +-------------------------------+
  2007. (Vzdßlenost je v programu uvßd∞na s p°esnostφ na 0.001 AU).
  2008.      U fßze a u magnitudy planet se nevyskytla ₧ßdnß odchyl-
  2009. ka, u nich je tedy  p°esnost dßna p°esnostφ v²stupu programu
  2010. (fßze - setiny, magnituda - desetiny mag).
  2011.      U  t∞les ze  souboru ELEMENTY.DAT  jsou odchylky vyÜÜφ,
  2012. zßvislΘ   p°edevÜφm   na   p°esnosti   zadan²ch  orbitßlnφch
  2013. element∙.  Nejv∞tÜφ  odchylky  v  rektascenzi  jsou  5 minut
  2014. v rektascenzi, 20 ' v deklinaci a 0.003 AU ve vzdßlenosti.
  2015.      ╚asovΘ odchylky (v²chod∙, pr∙chod∙ a zßpad∙ t∞les) jsou
  2016. uvedeny v tΘto tabulce:
  2017.             +--------------------------+
  2018.             ª v²chod ª pr∙chod ª zßpad ª
  2019.             ª  min   ª   min   ª  min  ª
  2020. +-----------+--------+---------+-------ª
  2021. ªSlunce ª i ª  6.162 ª  1.813  ª 6.637 ª
  2022. ª       ªmaxª  8     ª  2      ª 9     ª
  2023. +-------+---+--------+---------+-------ª
  2024. ªM∞sφc  ª i ª  1.600 ª  1.133  ª 0.800 ª
  2025. ª       ªmaxª  3     ª  3      ª 3     ª
  2026. +-------+---+--------+---------+-------ª
  2027. ªplanetyª i ª  4.072 ª  1.857  ª 4.929 ª
  2028. ª       ªmaxª  6     ª  2      ª 6     ª
  2029. +--------------------------------------+
  2030.  
  2031.  
  2032.      RYCHLOST V▌PO╚┘:
  2033.      Rychlost   v²poΦt∙  jsem   prov∞°oval  na   poΦφtaΦφ  s
  2034. procesorem  80386  (takt  40  MHz)  s  p°esnostφ  na  setiny
  2035. sekundy.
  2036.      1. V▌PO╚ETªTABULKA
  2037.      Nßsledujφcφ  tabulka udßvß  zßvislost rychlosti v²poΦtu
  2038. na m∞sφci v roce pro n∞kterß t∞lesa. Je v₧dy uvedena celkovß
  2039. doba (urΦenß pr∙m∞rem z deseti m∞°enφ) jednoho v²pisu efeme-
  2040. rid pro dan² m∞sφc (m) a Φas, kter² p°ipadß na jeden v²poΦet
  2041. (d) (1. den v m∞sφci), obojφ v sekundßch.
  2042.  
  2043.  
  2044.  
  2045.  
  2046.  
  2047.  
  2048.  
  2049.  
  2050.  
  2051.  
  2052.  
  2053.  
  2054.  
  2055.  
  2056.       +-----------------------------------------------------------+
  2057. +-----ª   Slunce     ª   M∞sφc      ª   Merkur     ª   VenuÜe     ª
  2058. ªm∞sφcª   m      d   ª   m      d   ª   m      d   ª   m      d   ª
  2059. ª  1. ª 4.267  0.138 ª 6.396  0.206 ª 6.684  0.216 ª 6.401  0.206 ª
  2060. ª  2. ª 3.822  0.137 ª 5.794  0.207 ª 5.949  0.212 ª 5.547  0.198 ª
  2061. ª  3. ª 4.047  0.131 ª 6.388  0.206 ª 6.514  0.210 ª 6.064  0.196 ª
  2062. ª  4. ª 4.009  0.134 ª 6.207  0.207 ª 6.433  0.214 ª 6.046  0.202 ª
  2063. ª  5. ª 4.241  0.137 ª 6.393  0.206 ª 6.465  0.209 ª 6.313  0.204 ª
  2064. ª  6. ª 4.075  0.136 ª 6.190  0.206 ª 6.388  0.213 ª 5.849  0.195 ª
  2065. ª  7. ª 4.250  0.137 ª 6.434  0.208 ª 6.683  0.216 ª 6.371  0.206 ª
  2066. ª  8. ª 4.230  0.136 ª 6.410  0.207 ª 6.459  0.208 ª 6.289  0.203 ª
  2067. ª  9. ª 4.063  0.135 ª 6.206  0.207 ª 6.403  0.213 ª 6.131  0.204 ª
  2068. ª 10. ª 4.235  0.137 ª 6.405  0.207 ª 6.645  0.214 ª 6.250  0.202 ª
  2069. ª 11. ª 4.206  0.140 ª 6.221  0.207 ª 6.510  0.217 ª 6.300  0.210 ª
  2070. ª 12. ª 4.349  0.140 ª 6.427  0.207 ª 6.668  0.215 ª 6.525  0.210 ª
  2071. +--------------------+--------------+--------------+--------------ª
  2072.         ª i    0.137 ª        0.207 ª        0.213 ª        0.203 ª
  2073.         +---------------------------------------------------------+
  2074.  
  2075.       +--------------------------------------------+
  2076. +-----ª   Saturn     ª   P/Halley   ª  (1) Ceres   ª
  2077. ªm∞sφcª   m      d   ª   m      d   ª   m      d   ª
  2078. ª  1. ª 6.094  0.197 ª 6.337  0.204 ª 5.874  0.189 ª
  2079. ª  2. ª 5.508  0.197 ª 5.765  0.206 ª 5.351  0.191 ª
  2080. ª  3. ª 6.058  0.195 ª 6.341  0.205 ª 5.877  0.190 ª
  2081. ª  4. ª 5.909  0.197 ª 6.135  0.205 ª 5.685  0.190 ª
  2082. ª  5. ª 6.098  0.197 ª 6.317  0.204 ª 5.877  0.190 ª
  2083. ª  6. ª 5.897  0.197 ª 6.070  0.202 ª 5.740  0.191 ª
  2084. ª  7. ª 6.179  0.199 ª 6.285  0.203 ª 5.760  0.186 ª
  2085. ª  8. ª 6.179  0.199 ª 6.371  0.206 ª 5.931  0.191 ª
  2086. ª  9. ª 5.987  0.200 ª 6.135  0.205 ª 5.778  0.193 ª
  2087. ª 10. ª 6.174  0.199 ª 6.301  0.203 ª 5.976  0.193 ª
  2088. ª 11. ª 6.006  0.200 ª 6.145  0.205 ª 5.850  0.195 ª
  2089. ª 12. ª 6.198  0.200 ª 6.388  0.206 ª 6.007  0.194 ª
  2090. +--------------------+--------------+--------------ª
  2091.         ª i    0.198 ª        0.205 ª        0.191 ª
  2092.         +------------------------------------------+
  2093.      Z tabulky je patrnΘ,  ₧e dΘlka v²poΦtu zßvisφ p°edevÜφm
  2094. na po4tu veliΦin, kterΘ se  pro danΘ t∞leso poΦφtajφ, a dßle
  2095. i na numerickΘ v²st°ednosti drßhy (Φφm vyÜÜφ je v²st°ednost,
  2096. tφm dΘle trvß numerickß metoda °eÜenφ Keplerovy rovnice):
  2097.      Merkur: e = 0.206,
  2098.      VenuÜe: e = 0.007,
  2099.      Saturn: e = 0.052
  2100.      Halleyova kometa: e = 0.967,
  2101.      planetka Ceres: e = 0.077.
  2102.  
  2103.  
  2104.      2. V▌PO╚ETªASTROKALEND┴╪:
  2105.      DΘlka  v²poΦt∙  je  aritmetick²m  pr∙m∞rem  z  dvanßcti
  2106. m∞°enφ, z nich₧ p°i ka₧dΘm je nastaven jin² kalendß°nφ m∞sφc
  2107. pro zaΦßtek v²poΦtu.
  2108.      M∞sφc:     22.840 s,
  2109.      Merkur:    21.260 s  (e = 0.206),
  2110.      Jupiter:   21.101 s  (e = 0.048),
  2111.      P/Halley:  21.518 s  (e = 0.967),
  2112.      (1) Ceres: 21.023 s  (e = 0.077).
  2113.      Proto₧e ka₧d²  v²pis sestßvß p°ibli₧n∞  z 183 samostat-
  2114. n²ch v²poΦt∙ pro ka₧d² den  v danΘm p∙lroce (tato hodnota se
  2115. m∞nφ podle nastavenφ prvnφho m∞sφce), p°ipadß na jeden v²po-
  2116. Φet pr∙m∞rn∞ 0.116 s. Tento v²poΦet sestßvß z urΦenφ rektas-
  2117. cenze  a deklinace  danΘho t∞lesa,  jeho v²chodu,  kulminace
  2118. a zßpadu, urΦenφ rektascenze a deklinace Slunce a z nich je-
  2119. ho v²chod, zßpad  a okam₧iky zaΦßtk∙ a konc∙  vÜech t°φ sou-
  2120. mrak∙ (obΦanskΘho, nautickΘho a astronomickΘho).
  2121.  
  2122.      V▌PO╚ETªASTROKALEND┴╪  pro Jupiterovy  m∞sφce trvß pr∙-
  2123. m∞rn∞ 22.101 s, co₧ znamenß 0.014 s pro jeden ze 1600 v²poΦ-
  2124. t∙ (50 pro ka₧d² ze 32 dn∙) urΦujφcφch sou°adnice vÜech Φty°
  2125. satelit∙, kterΘ prob∞hnou.
  2126.  
  2127.      V▌PO╚ETªASTROKALEND┴╪ pro Saturnovy prstence:
  2128.      Pr∙m∞rnß  doba  v²poΦtu  je  7.695  s,  na jeden ze 183
  2129. v²poΦt∙ tedy p°ipadß 0.042 s.
  2130.  
  2131.      3. V▌PO╚ETªGLOBUS:
  2132.      Nßsledujφcφ  tabulka udßvß  pr∙m∞rnou dΘlku  trvßnφ 100
  2133. krok∙  v²poΦtu  (ka₧d²  krok  zahrnuje  v²poΦet  rovnφkov²ch
  2134. sou°adnic  t∞lesa a  jeho  umφst∞nφ  na hv∞zdn²  globus) pro
  2135. n∞kterß t∞lesa  v sekundßch. DΘlka je  rozliÜena podle toho,
  2136. zda se t∞leso  pohybuje po viditelnΘ Φßsti globu  (a tedy je
  2137. p°i   ka₧dΘm   kroku   smazßna   jeho   poloha  a  vypoΦtena
  2138. a nakreslena  novß) -  vp°edu, nebo  pohybuje-li se  na jeho
  2139. zadnφ stran∞ - vzadu.
  2140.            +-----------------+
  2141. +----------ª vp°edu ª vzadu  ª
  2142. ªSlunce    ª 2.689  ª 2.290  ª
  2143. ªM∞sφc     ª 3.713  ª 3.272  ª
  2144. ªMerkur    ª 3.560  ª 3.188  ª
  2145. ªJupiter   ª 3.472  ª 3.007  ª
  2146. ªP/Halley  ª 3.757  ª 3.367  ª
  2147. ª(1) Ceres ª 3.453  ª 3.012  ª
  2148. +----------------------------+
  2149.  
  2150.      4. V▌PO╚ETªPRO DEN:
  2151.      DΘlka trvßnφ  v²poΦtu nezßvisφ na  t∞lese, cel² v²poΦet
  2152. prob∞hne v pr∙m∞ru za 0.880 s.
  2153.  
  2154.      5. V▌PO╚ETªSOUSTAVA:
  2155.      Rychlost  tohoto  v²poΦtu  zßvisφ  nejmΘn∞  ze vÜech na
  2156. zvolenΘm  t∞lese,  proto₧e  ve  v∞tÜin∞  p°φpad∙ se poΦφtajφ
  2157. polohy  vφce t∞les,  je zßvislß  p°edevÜφm na  jejich poΦtu.
  2158. NicmΘn∞  p°esto uvßdφm  dΘlku trvßnφ  100 krok∙  v²poΦtu pro
  2159. n∞kterß   t∞lesa  (v   sekundßch),  u   nich₧  je  nastaveno
  2160. standardnφ zv∞tÜenφ:
  2161. +------------------+
  2162. ªMerkur   ª 13.588 ª
  2163. ªVenuÜe   ª 13.827 ª
  2164. ªZem∞     ª 11.276 ª
  2165. ªMars     ª 14.765 ª
  2166. ªJupiter  ª 16.516 ª
  2167. ªSaturn   ª 18.246 ª
  2168. ªUran     ª 17.249 ª
  2169. ªNeptun   ª 15.642 ª
  2170. ªPluto    ª 14.653 ª
  2171. ªP/Halley ª 17.468 ª
  2172. +------------------+
  2173.  
  2174.  
  2175.  
  2176.  
  2177.  
  2178.  
  2179.  
  2180.  
  2181.  
  2182.  
  2183.  
  2184.  
  2185.  
  2186.  
  2187.  
  2188.  
  2189.  
  2190.  
  2191.  
  2192.  
  2193.  
  2194.  
  2195.  
  2196.  
  2197.  
  2198.  
  2199.  
  2200.  
  2201.