From jhollan na amper....muni.cz Fri Dec 1 22:22:19 2006 From: jhollan na amper....muni.cz (Jan Hollan) Date: Fri, 1 Dec 2006 22:22:19 +0100 (CET) Subject: [IAN] zodiac visible continuously (fwd) Message-ID: something for your pleasure... hope Christian Buil won't object. For science, the continuous band of light along ecliptics was discovered in a small town (Senftenberg, \v{Z}amberk), some 100 km north from Brno where I live... amazing. Wish such sky returns again to our world... cheers, jenik ---------- Forwarded message ---------- Date: Fri, 1 Dec 2006 22:11:35 +0100 (CET) From: Jan Hollan To: christian.buil na wanadoo... Subject: zodiac visible continuously Dear Christian, I dared to apply a curve in gimp to the last image of your Pic du Midi all-sky gallery, to make zodiac visible at the first glance. May I obtain your consent to leave it on my pages? Currently it is at http://amper.ped.muni.cz/light/zodiac/ I know of no other image showing continuous zodiac band, just about those two made by you... Just today I learned that the existence of continuous band of light between Gegenschein and standard zodiac light near the Sun was first reported and published Theodor Brorsen when he lived in Bohemia, in 1854 (http://en.wikipedia.org/wiki/Theodor_Brorsen). I wonder if Arabs or even Sumers did not notice it thousands of years earlier... best regards jenik From redakce na ian... Thu Dec 7 14:51:44 2006 From: redakce na ian... (redakce na ian...) Date: Thu, 7 Dec 2006 14:51:44 +0100 (CET) Subject: [IAN] IAN ALERT Message-ID: <20061207135144.679A2472F7@mika2....cz> Dnes v noci by mohl letet raketoplan. Pocasi v USA i u nas ale vypada spatne. From redakce na ian... Sat Dec 9 19:02:44 2006 From: redakce na ian... (redakce na ian...) Date: Sat, 9 Dec 2006 19:02:44 +0100 (CET) Subject: [IAN] IAN ALERT Message-ID: <20061209180244.CACDE47363@mika2....cz> Postupne zaciname dalsi prenos pokusu o start raketoplanu. Naplno po pulnoci... From redakce na ian... Sun Dec 10 02:07:43 2006 From: redakce na ian... (redakce na ian...) Date: Sun, 10 Dec 2006 02:07:43 +0100 (CET) Subject: [IAN] IAN ALERT Message-ID: <20061210010743.52A5E472FE@mika2....cz> za 45 min velmi pravdepodobne odleti raketoplan! From redakce na ian... Fri Dec 22 22:29:29 2006 From: redakce na ian... (redakce na ian...) Date: Fri, 22 Dec 2006 22:29:29 +0100 (CET) Subject: [IAN] IAN ALERT Message-ID: <20061222212929.2C84A4735A@mika2....cz> Raketoplan Discovery pristava! Sledujte online prenos v IAN! From redakce na ian... Sat Dec 23 11:24:09 2006 From: redakce na ian... (redakce na ian...) Date: Sat, 23 Dec 2006 11:24:09 +0100 (CET) Subject: [IAN] IAN ALERT Message-ID: <20061223102409.04BA447357@mika2....cz> Krasny darek k Vanocum: uz je to oficialni – Ceska republika se 1.ledna stane clenem Evropske jizni observatore!! From mino na dekona... Sat Dec 23 18:58:13 2006 From: mino na dekona... (=?iso-8859-2?Q?Milan_Len=E8o?=) Date: Sat, 23 Dec 2006 18:58:13 +0100 Subject: [IAN] Urcenie polohy hviezdy Message-ID: <001f01c726bb$eb034b70$51157f5b@milan> Dobrý deň, Uz dlhsi cas ma zaujima ako zistit aktualnu polohu hviezdy na základe jej Rektascenzie a Deklinácie. Na zaciatku bude dana poloha pozorovatela na Zemi, aktualny cas a datum. Vysledok budu asi dva údaje - azimut a sklon k obzoru v stupnoch. Hladal som po internete ale nic som o tom nenasiel. Dakujem za rady.. ------------- další část --------------- HTML příloha byla odstraněna... URL: From PetrKubala na seznam... Sat Dec 23 20:29:37 2006 From: PetrKubala na seznam... (=?us-ascii?Q?Petr=20Kubala?=) Date: Sat, 23 Dec 2006 20:29:37 +0100 (CET) Subject: =?us-ascii?Q?Re=3A=20=5BIAN=5D=20Urcenie=20polohy=20hviezdy?= In-Reply-To: <001f01c726bb$eb034b70$51157f5b@milan> Message-ID: <2198.3217-9313-1773889124-1166902177@seznam...> Dobrý den, Nevím přesně co máte na mysli. Tyto souřadnice (azimut a výška nad obzorem) se mění s časem a jsou závislé také na místě pozorování. Výška nad obzorem se uvádí ve stupních od obzoru (0-90°) takže zenit má 90°. Azimut od jižního (myslím) bodu ve stupních 0-360°. Přepočet mezi rektacenzi a deklinací existuje a je velmi složitý..jedná se o vzorce sice jednoduché, ale výpočet je otravný :- v úvahu se bere nejen zeměpisná souřadnice pozorovatele, ale také hvězdný čas... cos z = sin fí sinDE + cos fí cos DE cos t sin z sin A = cos DE sin t sin z cos A = - cos fí sin DE + sinDE + sin fí cos DE cos t A - azimut z - zenitová vzdálenost z = 90 - h , kde h je výška nad obzorem..čili obzor má z = 90, zenit z = 0 fí - zeměpisná šířka t - hvězdný čas DE - deklinace Pochopitelně existují i vztahy pro převod naopak. kdyby jste je chtěl, mohu poslat. S pozdravem Petr Kubala redakce IAN ------------ Původní zpráva ------------ Od: Milan Lenčo Předmět: [IAN] Urcenie polohy hviezdy Datum: 23.12.2006 19:02:07 ---------------------------------------- Dobrý deň, Uz dlhsi cas ma zaujima ako zistit aktualnu polohu hviezdy na základe jej Rektascenzie a Deklinácie. Na zaciatku bude dana poloha pozorovatela na Zemi, aktualny cas a datum. Vysledok budu asi dva údaje - azimut a sklon k obzoru v stupnoch. Hladal som po internete ale nic som o tom nenasiel. Dakujem za rady.. S pozdravem Petr Kubala --------------------------------------------------------------- e-mail: PetrKubala na seznam... internet: http://kubala.astronomie.cz icq: 225-832-898 Instantní astronomické noviny: www.ian.cz From petr.scheirich na centrum... Sat Dec 23 21:50:52 2006 From: petr.scheirich na centrum... (Petr Scheirich) Date: Sat, 23 Dec 2006 21:50:52 +0100 Subject: [IAN] Urcenie polohy hviezdy In-Reply-To: <2198.3217-9313-1773889124-1166902177@seznam...> References: <001f01c726bb$eb034b70$51157f5b@milan> <2198.3217-9313-1773889124-1166902177@seznam...> Message-ID: <200612232150.12426@centrum...> Zdravim, existuje i trochu jednodussi varianta, nez prevadet systemy sferickych souradnic, a sice prevest sfericke souradnice na pravouhle, transformaci provest v nich, a potom zpet prevest pravouhle souradnice na sfericke. Je to vsechno popsano na strankach http://nebmech.astronomy.cz (bohuzel mi v tuto chvili rada stranek ze serveru astronomy.cz nejde zobrazit, ale verim, ze ten problem je jen docasny). Petr Scheirich >Nevím přesně co máte na mysli. Tyto souřadnice (azimut a výška nad obzorem) se mění s časem a jsou závislé také na místě pozorování. Výška nad obzorem se uvádí ve stupních od obzoru (0-90°) takže zenit má 90°. Azimut od jižního (myslím) bodu ve stupních 0-360°. Přepočet mezi rektacenzi a deklinací existuje a je velmi složitý..jedná se o vzorce sice jednoduché, ale výpočet je otravný :- v úvahu se bere nejen zeměpisná souřadnice pozorovatele, ale také hvězdný čas... > >cos z = sin fí sinDE + cos fí cos DE cos t >sin z sin A = cos DE sin t >sin z cos A = - cos fí sin DE + sinDE + sin fí cos DE cos t > >A - azimut >z - zenitová vzdálenost z = 90 - h , kde h je výška nad obzorem..čili obzor má z = 90, zenit z = 0 >fí - zeměpisná šířka >t - hvězdný čas >DE - deklinace > >Pochopitelně existují i vztahy pro převod naopak. kdyby jste je chtěl, mohu poslat. > >S pozdravem > >Petr Kubala >redakce IAN > > >------------ Původní zpráva ------------ >Od: Milan Lenčo >Předmět: [IAN] Urcenie polohy hviezdy >Datum: 23.12.2006 19:02:07 >---------------------------------------- >Dobrý deň, > Uz dlhsi cas ma zaujima ako zistit aktualnu polohu hviezdy na základe jej >Rektascenzie a Deklinácie. Na zaciatku bude dana poloha pozorovatela na Zemi, >aktualny cas a datum. Vysledok budu asi dva údaje - azimut a sklon k obzoru v >stupnoch. Hladal som po internete ale nic som o tom nenasiel. Dakujem za rady.. > > > >S pozdravem > >Petr Kubala > >--------------------------------------------------------------- >e-mail: PetrKubala na seznam... > >internet: http://kubala.astronomie.cz > >icq: 225-832-898 > >Instantní astronomické noviny: www.ian.cz > >_______________________________________________ >Ian mailing list >Ian na amper....muni.cz >http://amper.ped.muni.cz/mailman/listinfo/ian > From sandler na ujf....cz Sun Dec 24 03:06:14 2006 From: sandler na ujf....cz (Karel Sandler) Date: Sun, 24 Dec 2006 03:06:14 +0100 Subject: [IAN] Urcenie polohy hviezdy References: <001f01c726bb$eb034b70$51157f5b@milan> Message-ID: <003501c72700$17443de0$0b01a8c0@ajax> From: "Milan Lenčo" > Uz dlhsi cas ma zaujima ako zistit aktualnu polohu hviezdy na > základe jej Rektascenzie a Deklinácie. Na zaciatku bude dana > poloha pozorovatela na Zemi, aktualny cas a datum. Vysledok > budu asi dva údaje - azimut a sklon k obzoru v stupnoch. Hladal > som po internete ale nic som o tom nenasiel. Dakujem za rady.. Popsat zde celý postup dost dobře nelze, vše potřebné můžete najít např. v knize "Astronomická příručka", nakl. Academia, Praha 1992. Zde jen několik poznámek. Celý postup záleží na tom, s jakou přesností požadujete výsledek. Předpokládám, že Vám postačí jít ne příliš pod 1'. Potom lze zanedbat rozdíl mezi časem UTC a UT, nutaci, roční a denní aberaci, paralaxu i vlastní pohyb dané hvězdy a některé další jemnosti. Postačí započítat precesi hvězdy, t.j. převést její ekvatoreální souřadnice z ekvinokcia Vašeho katalogu na ekvinokcium současné. Nyní zbývají už jen dva kroky. V tom prvním je třeba pro daný čas a zeměpisnou délku určit místní hvězdný čas, tedy hodinový úhel jarního bodu. Ve druhém kroku odečtením rektascenze hvězdy získáme její hodinový úhel a na řadu přicházejí vztahy uvedené v předchozím příspěvku, kde t je hodinový úhel hvězdy (nikoliv hvězdný čas). Nyní zbývá započíst už jen refrakci. Karel Sandler From jhollan na amper....muni.cz Sun Dec 24 11:26:19 2006 From: jhollan na amper....muni.cz (Jan Hollan) Date: Sun, 24 Dec 2006 11:26:19 +0100 (CET) Subject: [IAN] Urcenie polohy hviezdy In-Reply-To: <003501c72700$17443de0$0b01a8c0@ajax> Message-ID: http://amper.ped.muni.cz/jenik/astro/ obsahuje skript star_pos.php, ktery to pocita. Text skriptu lze precist jako star_pos.txt. Zalozeno je to na star_pos.pas, tenhle zdrojovy text i binarku do linuxu a *.exe pro M$ systemy lze najit nekde na adresach udanych pod na konci vystupu toho php. Napr. exe je na http://astro.sci.muni.cz/pub/hollan/programmes/exe287/ Pro pohodlne lokalni uzivani je ale potreba jeste stahnout *.dbf s Bright star katalogem (aby clovek pro jasne hvezdy nemusel zadne RA a Decl psat). (nevedel jsem, jestli to mam online jako php, su rad, ze jo, nemel bych cas to tam takhle ted davat). vesele Vanoce preje jh From mino na dekona... Sun Dec 24 14:26:03 2006 From: mino na dekona... (=?utf-8?Q?Milan_Len=C4=8Do?=) Date: Sun, 24 Dec 2006 14:26:03 +0100 Subject: [IAN] Urcenie polohy hviezdy Message-ID: <013401c7275f$0fca48c0$05357f5b@milan> Dobrý deň, Vypočítať polohu hviezdy potrebujem pre program na ktorom teraz pracujem. Je to databáza hviezd, ukladá informácie o hviezdach prip. aj ich fotky. Ako bonus k tomu chcem dať ešte observatórium. Lenže som skôr programátor ako astronóm a preto aj ked som si skúšal vypočítať polohu hviezdy vyšli mi veľmi zvláštne čísla :( .. Preto by som Vás chcel poprosiť či by ste mi napísali taký ukážkový výpočet. Povedzme že chceme vypočítať polohu hviezdy 'Sirius A' ak: Deklinácia Siriusa A = ?16° 42' 58" (neviem či je potrebná aj Rektascenzia) Súradnice pozorovateľa: 22 v.d. a 48 s.š. Čas a dátum: 0 hod. 40 min. AM, 25. december (prosinec) 2006 (neviem či je potrebný aj rok) Observatórium v tomto programe slúži len informatívne čiže nutáciu, ročnú a dennú aberáciu, paralaxiu aj vlastný pohyb hviezdy môžeme zanedbať.. Ďakujem všetkým.. ------------- další část --------------- HTML příloha byla odstraněna... URL: From krupa na centrum... Sun Dec 24 21:55:09 2006 From: krupa na centrum... (Milan Krupa) Date: Sun, 24 Dec 2006 21:55:09 +0100 Subject: [IAN] Urcenie polohy hviezdy In-Reply-To: <013401c7275f$0fca48c0$05357f5b@milan> References: <013401c7275f$0fca48c0$05357f5b@milan> Message-ID: <200612242155.15086@centrum...> Zdroják programu pro přepočet souřadnic v BASICu je třeba tady: http://media.skytonight.com/binary/altaz.bas ______________________________________________________________ > Od: mino na dekona... > Komu: > Datum: 24.12.2006 18:07 > Předmět: Re: Re: [IAN] Urcenie polohy hviezdy > >Dobrý deň, > Vypočítať polohu hviezdy potrebujem pre program na ktorom teraz pracujem. Je to databáza hviezd, ukladá informácie o hviezdach prip. aj ich fotky. Ako bonus k tomu chcem dať ešte observatórium. Lenže som skôr programátor ako astronóm a preto aj ked som si skúšal vypočítať polohu hviezdy vyšli mi veľmi zvláštne čísla :( .. Preto by som Vás chcel poprosiť či by ste mi napísali taký ukážkový výpočet. >Povedzme že chceme vypočítať polohu hviezdy 'Sirius A' ak: > Deklinácia Siriusa A = -16° 42' 58" (neviem či je potrebná aj Rektascenzia) > Súradnice pozorovateľa: 22 v.d. a 48 s.š. > Čas a dátum: 0 hod. 40 min. AM, 25. december (prosinec) 2006 (neviem či je potrebný aj rok) >Observatórium v tomto programe slúži len informatívne čiže nutáciu, ročnú a dennú aberáciu, paralaxiu aj vlastný pohyb hviezdy môžeme zanedbať.. > Ďakujem všetkým.. > > > >_______________________________________________ >Ian mailing list >Ian na amper....muni.cz >http://amper.ped.muni.cz/mailman/listinfo/ian > > From mino na dekona... Wed Dec 27 19:32:54 2006 From: mino na dekona... (=?windows-1250?Q?Milan_Len=E8o?=) Date: Wed, 27 Dec 2006 19:32:54 +0100 Subject: [IAN] Urcenie polohy hviezdy References: <013401c7275f$0fca48c0$05357f5b@milan> <200612242155.15086@centrum...> Message-ID: <000e01c729e5$6d4ad9a0$f7567f5b@milan> Dobrý deň, Tak ten program počíta nejak veľmi zvláštne. Výsledok počíta zo zadanej Rektascenzie, Deklinácie hviezdy, z polohy pozorovateľa a z aktuálneho času. Vôbec nezarátava aktuálny dátum, ktorý tiež ovplyvňuje aktuálnu polohu hviezdy. Na to aby som to pochopil mi úplne stačí vzorový výpočet. Tak napr. chceme vypočítať polohu hviezdy 'Sirius A' ak: > Deklinácia Siriusa A = -16° 42' 58.017" > Rektascenzia Siriusa A= 06h 45m 08.9173s > Súradnice pozorovateľa: 22 v.d. a 48 s.š. > Čas a dátum: 0 hod. 40 min. AM, 25. december (prosinec) 2006 (neviem či je potrebný aj rok) >nutáciu, ročnú a dennú aberáciu, paralaxiu aj vlastný pohyb hviezdy môžeme >zanedbať.. Ďakujem vopred.. ----- Original Message ----- From: "Milan Krupa" To: Sent: Sunday, December 24, 2006 9:55 PM Subject: Re: Re: [IAN] Urcenie polohy hviezdy Zdroják programu pro přepočet souřadnic v BASICu je třeba tady: http://media.skytonight.com/binary/altaz.bas ______________________________________________________________ > Od: mino na dekona... > Komu: > Datum: 24.12.2006 18:07 > Předmět: Re: Re: [IAN] Urcenie polohy hviezdy > >Dobrý deň, > Vypočítať polohu hviezdy potrebujem pre program na ktorom teraz pracujem. Je to databáza hviezd, ukladá informácie o hviezdach prip. aj ich fotky. Ako bonus k tomu chcem dať ešte observatórium. Lenže som skôr programátor ako astronóm a preto aj ked som si skúšal vypočítať polohu hviezdy vyšli mi veľmi zvláštne čísla :( .. Preto by som Vás chcel poprosiť či by ste mi napísali taký ukážkový výpočet. >Povedzme že chceme vypočítať polohu hviezdy 'Sirius A' ak: > Deklinácia Siriusa A = -16° 42' 58" (neviem či je potrebná aj Rektascenzia) > Súradnice pozorovateľa: 22 v.d. a 48 s.š. > Čas a dátum: 0 hod. 40 min. AM, 25. december (prosinec) 2006 (neviem či je potrebný aj rok) >Observatórium v tomto programe slúži len informatívne čiže nutáciu, ročnú a dennú aberáciu, paralaxiu aj vlastný pohyb hviezdy môžeme zanedbať.. > Ďakujem všetkým.. > > > >_______________________________________________ >Ian mailing list >Ian na amper....muni.cz >http://amper.ped.muni.cz/mailman/listinfo/ian > > __________ Informacia od NOD32 1937 (20061224) __________ Tato sprava bola preverena antivirusovym systemom NOD32. http://www.eset.sk -------------------------------------------------------------------------------- _______________________________________________ Ian mailing list Ian na amper....muni.cz http://amper.ped.muni.cz/mailman/listinfo/ian __________ Informacia od NOD32 1937 (20061224) __________ Tato sprava bola preverena antivirusovym systemom NOD32. http://www.eset.sk From krupa na centrum... Wed Dec 27 22:42:29 2006 From: krupa na centrum... (Milan Krupa) Date: Wed, 27 Dec 2006 22:42:29 +0100 Subject: [IAN] Urcenie polohy hviezdy In-Reply-To: <000e01c729e5$6d4ad9a0$f7567f5b@milan> References: 013401c7275f$0fca48c0$05357f5b@milan> <000e01c729e5$6d4ad9a0$f7567f5b@milan> Message-ID: <200612272242.16342@centrum...> Tohle už by fungovat mělo: Program využívá některé funkce VisualBasicu: ( DateDiff - počítá rozdíl ve dnech mezi dvěma datumy) ===================================== Const PI As Double = 3.14159265358979 Private Sub Command1_Click() RaToAzim 6.758, -16.725, "27.12.2006 22:30", 1, 15, 50 ' výpočet pro Sirius End Sub Public Sub RaToAzim(RA, DECL, DATUM, UTCDIF, LONGIT, LAT) CAS = Hour(DATUM) + (Minute(DATUM) / 60) DJ2000 = DateDiff("d", "1.1.2000", DATUM) + ((CAS - UTCDIF) / 24) - 0.5 LST = 100.46 + 0.985647 * DJ2000 + LONGIT + 15 * (CAS - UTCDIF) Do While (LST <= 0) LST = LST + 360 Loop Do While (LST >= 360) LST = LST - 360 Loop HA = LST - RA * 15 Do While (HA <= 0) HA = HA + 360 Loop Do While (HA >= 360) HA = HA - 360 Loop ELEVACE = dasin(dsin(DECL) * dsin(LAT) + dcos(DECL) * dcos(LAT) * dcos(HA)) AZIMUT = datan2(dsin(HA), dcos(HA) * dsin(LAT) - dtan(DECL) * dcos(LAT)) + 180 If (AZIMUT >= 360) Then AZIMUT = AZIMUT - 360 End If MsgBox AZIMUT & vbCrLf & ELEVACE End Sub Public Function dsin(X) dsin = Sin(PI / 180 * X) End Function Public Function dcos(X) dcos = Cos(PI / 180 * X) End Function Public Function dtan(X) dtan = Tan(PI / 180 * X) End Function Public Function dasin(X) dasin = 180 / PI * Atn(X / Sqr(-X * X + 1)) End Function Public Function datan(X) datan = 180 / PI * Atn(X) End Function Public Function datan2(Y, X) If ((X = 0) And (Y = 0)) Then datan2 = 0 Else If (X = 0) Then X = 0.00001 End If A = datan(Y / X) If (X < 0) Then A = A + 180 End If If (Y < 0 And X > 0) Then A = A + 360 End If datan2 = A End If End Function ===================================== ______________________________________________________________ > Od: mino na dekona... > Komu: "Diskuze ctenaru Instantnich astronomickych novin" > Datum: 27.12.2006 19:34 > Předmět: Re: Re: [IAN] Urcenie polohy hviezdy > >Dobrý deň, >Tak ten program počíta nejak veľmi zvláštne. Výsledok počíta zo zadanej Rektascenzie, Deklinácie hviezdy, z polohy pozorovateľa a z aktuálneho času. Vôbec nezarátava aktuálny dátum, ktorý tiež ovplyvňuje aktuálnu polohu hviezdy. Na to aby som to pochopil mi úplne stačí vzorový výpočet. >Tak napr. chceme vypočítať polohu hviezdy 'Sirius A' ak: >> Deklinácia Siriusa A = -16° 42' 58.017" >> Rektascenzia Siriusa A= 06h 45m 08.9173s >> Súradnice pozorovateľa: 22 v.d. a 48 s.š. >> Čas a dátum: 0 hod. 40 min. AM, 25. december (prosinec) 2006 >(neviem či je potrebný aj rok) >>nutáciu, ročnú a dennú aberáciu, paralaxiu aj vlastný pohyb hviezdy môžeme >zanedbať.. > >Ďakujem vopred.. > > >----- Original Message ----- From: "Milan Krupa" >To: >Sent: Sunday, December 24, 2006 9:55 PM >Subject: Re: Re: [IAN] Urcenie polohy hviezdy > > >Zdroják programu pro přepočet souřadnic v BASICu je třeba tady: > >http://media.skytonight.com/binary/altaz.bas > > > >______________________________________________________________ >> Od: mino na dekona... >> Komu: >> Datum: 24.12.2006 18:07 >> Předmět: Re: Re: [IAN] Urcenie polohy hviezdy >> >>Dobrý deň, >> Vypočítať polohu hviezdy potrebujem pre program na ktorom teraz >pracujem. Je to databáza hviezd, ukladá informácie o hviezdach prip. aj >ich fotky. Ako bonus k tomu chcem dať ešte observatórium. Lenže som skôr >programátor ako astronóm a preto aj ked som si skúšal vypočítať polohu >hviezdy vyšli mi veľmi zvláštne čísla :( .. Preto by som Vás chcel >poprosiť či by ste mi napísali taký ukážkový výpočet. >>Povedzme že chceme vypočítať polohu hviezdy 'Sirius A' ak: >> Deklinácia Siriusa A = -16° 42' 58" (neviem či je potrebná aj >Rektascenzia) >> Súradnice pozorovateľa: 22 v.d. a 48 s.š. >> Čas a dátum: 0 hod. 40 min. AM, 25. december (prosinec) 2006 >(neviem či je potrebný aj rok) >>Observatórium v tomto programe slúži len informatívne čiže nutáciu, ročnú >a dennú aberáciu, paralaxiu aj vlastný pohyb hviezdy môžeme zanedbať.. >> > Ďakujem všetkým.. >> >> >> >>_______________________________________________ >>Ian mailing list >>Ian na amper....muni.cz >>http://amper.ped.muni.cz/mailman/listinfo/ian >> >> > > > > >__________ Informacia od NOD32 1937 (20061224) __________ > >Tato sprava bola preverena antivirusovym systemom NOD32. >http://www.eset.sk > > > > >-------------------------------------------------------------------------------- > > >_______________________________________________ >Ian mailing list >Ian na amper....muni.cz >http://amper.ped.muni.cz/mailman/listinfo/ian > > >__________ Informacia od NOD32 1937 (20061224) __________ > >Tato sprava bola preverena antivirusovym systemom NOD32. >http://www.eset.sk > > > > >_______________________________________________ >Ian mailing list >Ian na amper....muni.cz >http://amper.ped.muni.cz/mailman/listinfo/ian > > From tomas.graf na vsb... Thu Dec 28 08:25:12 2006 From: tomas.graf na vsb... (Tomas Graf) Date: Thu, 28 Dec 2006 08:25:12 +0100 Subject: [IAN] Urcenie polohy hviezdy In-Reply-To: <200612272242.16342@centrum...> References: 013401c7275f$0fca48c0$05357f5b@milan> <000e01c729e5$6d4ad9a0$f7567f5b@milan> <200612272242.16342@centrum...> Message-ID: <1167290712.459371586f4ea@posta....cz> Dobry den, asi dva roky pouzivam tuto "stavebnici": http://www.astro-toolbox.com/index.html Tomas Graf From mino na dekona... Thu Dec 28 21:54:07 2006 From: mino na dekona... (=?windows-1250?Q?Milan_Len=E8o?=) Date: Thu, 28 Dec 2006 21:54:07 +0100 Subject: [IAN] Urcenie polohy hviezdy References: 013401c7275f$0fca48c0$05357f5b@milan><000e01c729e5$6d4ad9a0$f7567f5b@milan> <200612272242.16342@centrum...> Message-ID: <003101c72ac2$516c1bd0$0401a8c0@milan> VisualBasic nemam, tak som program prepisal do Pascalu. V pascale nie je funkcia DateDiff, takze som si musel vytvorit vlastnu. Celkovo si teda niesom isty spravnostou programu a preto Vam ho posielam ci by ste mi ho prosim Vas skontrolovali: http://data1.edisk.cz/stahni/98516/STARS.EXE_11.23kB.html . Napr. pri priklade hviezdy Sirius A kde pozorovatel je na suradnici 15vd a 50sš v case 22:30 27.12.2006, ktory ste spomenuli v predchazdajucom prispevku, mi vysla Elevacia: 18,956 a Azimut 151,972.. Elevacia sa podla planetaria zda byt spravna a rovnako aj Azimut, ale ten len v pripade ze sa pocita od severu, nie od juhu.. ----- Original Message ----- From: "Milan Krupa" To: Sent: Wednesday, December 27, 2006 10:42 PM Subject: Re: Re: [IAN] Urcenie polohy hviezdy Tohle už by fungovat mělo: Program využívá některé funkce VisualBasicu: ( DateDiff - počítá rozdíl ve dnech mezi dvěma datumy) ===================================== Const PI As Double = 3.14159265358979 Private Sub Command1_Click() RaToAzim 6.758, -16.725, "27.12.2006 22:30", 1, 15, 50 ' výpočet pro Sirius End Sub Public Sub RaToAzim(RA, DECL, DATUM, UTCDIF, LONGIT, LAT) CAS = Hour(DATUM) + (Minute(DATUM) / 60) DJ2000 = DateDiff("d", "1.1.2000", DATUM) + ((CAS - UTCDIF) / 24) - 0.5 LST = 100.46 + 0.985647 * DJ2000 + LONGIT + 15 * (CAS - UTCDIF) Do While (LST <= 0) LST = LST + 360 Loop Do While (LST >= 360) LST = LST - 360 Loop HA = LST - RA * 15 Do While (HA <= 0) HA = HA + 360 Loop Do While (HA >= 360) HA = HA - 360 Loop ELEVACE = dasin(dsin(DECL) * dsin(LAT) + dcos(DECL) * dcos(LAT) * dcos(HA)) AZIMUT = datan2(dsin(HA), dcos(HA) * dsin(LAT) - dtan(DECL) * dcos(LAT)) + 180 If (AZIMUT >= 360) Then AZIMUT = AZIMUT - 360 End If MsgBox AZIMUT & vbCrLf & ELEVACE End Sub Public Function dsin(X) dsin = Sin(PI / 180 * X) End Function Public Function dcos(X) dcos = Cos(PI / 180 * X) End Function Public Function dtan(X) dtan = Tan(PI / 180 * X) End Function Public Function dasin(X) dasin = 180 / PI * Atn(X / Sqr(-X * X + 1)) End Function Public Function datan(X) datan = 180 / PI * Atn(X) End Function Public Function datan2(Y, X) If ((X = 0) And (Y = 0)) Then datan2 = 0 Else If (X = 0) Then X = 0.00001 End If A = datan(Y / X) If (X < 0) Then A = A + 180 End If If (Y < 0 And X > 0) Then A = A + 360 End If datan2 = A End If End Function ===================================== ______________________________________________________________ > Od: mino na dekona... > Komu: "Diskuze ctenaru Instantnich astronomickych novin" > > Datum: 27.12.2006 19:34 > Předmět: Re: Re: [IAN] Urcenie polohy hviezdy > >Dobrý deň, >Tak ten program počíta nejak veľmi zvláštne. Výsledok počíta zo zadanej Rektascenzie, Deklinácie hviezdy, z polohy pozorovateľa a z aktuálneho času. Vôbec nezarátava aktuálny dátum, ktorý tiež ovplyvňuje aktuálnu polohu hviezdy. Na to aby som to pochopil mi úplne stačí vzorový výpočet. >Tak napr. chceme vypočítať polohu hviezdy 'Sirius A' ak: >> Deklinácia Siriusa A = -16° 42' 58.017" >> Rektascenzia Siriusa A= 06h 45m 08.9173s >> Súradnice pozorovateľa: 22 v.d. a 48 s.š. >> Čas a dátum: 0 hod. 40 min. AM, 25. december (prosinec) 2006 >(neviem či je potrebný aj rok) >>nutáciu, ročnú a dennú aberáciu, paralaxiu aj vlastný pohyb hviezdy môžeme >zanedbať.. > >Ďakujem vopred.. > > >----- Original Message ----- From: "Milan Krupa" >To: >Sent: Sunday, December 24, 2006 9:55 PM >Subject: Re: Re: [IAN] Urcenie polohy hviezdy > > >Zdroják programu pro přepočet souřadnic v BASICu je třeba tady: > >http://media.skytonight.com/binary/altaz.bas > > > >______________________________________________________________ >> Od: mino na dekona... >> Komu: >> Datum: 24.12.2006 18:07 >> Předmět: Re: Re: [IAN] Urcenie polohy hviezdy >> >>Dobrý deň, >> Vypočítať polohu hviezdy potrebujem pre program na ktorom teraz >pracujem. Je to databáza hviezd, ukladá informácie o hviezdach prip. aj >ich fotky. Ako bonus k tomu chcem dať ešte observatórium. Lenže som skôr >programátor ako astronóm a preto aj ked som si skúšal vypočítať polohu >hviezdy vyšli mi veľmi zvláštne čísla :( .. Preto by som Vás chcel >poprosiť či by ste mi napísali taký ukážkový výpočet. >>Povedzme že chceme vypočítať polohu hviezdy 'Sirius A' ak: >> Deklinácia Siriusa A = -16° 42' 58" (neviem či je potrebná aj >Rektascenzia) >> Súradnice pozorovateľa: 22 v.d. a 48 s.š. >> Čas a dátum: 0 hod. 40 min. AM, 25. december (prosinec) 2006 >(neviem či je potrebný aj rok) >>Observatórium v tomto programe slúži len informatívne čiže nutáciu, ročnú >a dennú aberáciu, paralaxiu aj vlastný pohyb hviezdy môžeme zanedbať.. >> > Ďakujem všetkým.. >> >> >> >>_______________________________________________ >>Ian mailing list >>Ian na amper....muni.cz >>http://amper.ped.muni.cz/mailman/listinfo/ian >> >> > > > > >__________ Informacia od NOD32 1937 (20061224) __________ > >Tato sprava bola preverena antivirusovym systemom NOD32. >http://www.eset.sk > > > > >-------------------------------------------------------------------------------- > > >_______________________________________________ >Ian mailing list >Ian na amper....muni.cz >http://amper.ped.muni.cz/mailman/listinfo/ian > > >__________ Informacia od NOD32 1937 (20061224) __________ > >Tato sprava bola preverena antivirusovym systemom NOD32. >http://www.eset.sk > > > > >_______________________________________________ >Ian mailing list >Ian na amper....muni.cz >http://amper.ped.muni.cz/mailman/listinfo/ian > > __________ Informacia od NOD32 1941 (20061228) __________ Tato sprava bola preverena antivirusovym systemom NOD32. http://www.eset.sk -------------------------------------------------------------------------------- _______________________________________________ Ian mailing list Ian na amper....muni.cz http://amper.ped.muni.cz/mailman/listinfo/ian __________ Informacia od NOD32 1941 (20061228) __________ Tato sprava bola preverena antivirusovym systemom NOD32. http://www.eset.sk From exebece na gmail... Thu Dec 28 23:42:00 2006 From: exebece na gmail... (=?ISO-8859-1?Q?Rudolf_Nov=E1k?=) Date: Thu, 28 Dec 2006 23:42:00 +0100 Subject: [IAN] Urcenie polohy hviezdy In-Reply-To: <003101c72ac2$516c1bd0$0401a8c0@milan> References: <000e01c729e5$6d4ad9a0$f7567f5b@milan> <200612272242.16342@centrum...> <003101c72ac2$516c1bd0$0401a8c0@milan> Message-ID: <4b26a280612281442l37e6e541t78670a8bd8128664@mail....com> Dobry den pokud programujete v Packalu, tak my jsme pred lety dali dokopy balik ruznych astro programu, ktere toto vsechno delaji. (hlavne Jenik Hollan, pak take Honza Janca, Tomas Rezek, Leo Ondra a dalsi)... Ke stazeni jsou ze stranek Jenika Hollana (zadejte si do guglu hollan programmes pascal a urcite neco najdete - ma to na amper.ped.muni.cz nekde a bylo to i na archivnim DVD IAN). To Vam dost ulehci praci. Pokud byste chtel nektere z tech programu vylepsit (pridat jim XML vystup, pripadne neco dalsiho) - urcite sbirku o Vasi praci radi rozsirime... Hezky vecer Rudolf Novak 2006/12/28, Milan Lenčo : > VisualBasic nemam, tak som program prepisal do Pascalu. V pascale nie je > funkcia DateDiff, takze som si musel vytvorit vlastnu. Celkovo si teda > niesom isty spravnostou programu a preto Vam ho posielam ci by ste mi ho > prosim Vas skontrolovali: > http://data1.edisk.cz/stahni/98516/STARS.EXE_11.23kB.html . > Napr. pri priklade hviezdy Sirius A kde pozorovatel je na suradnici 15vd a > 50sš v case 22:30 27.12.2006, ktory ste spomenuli v predchazdajucom > prispevku, mi vysla Elevacia: 18,956 a Azimut 151,972.. Elevacia sa podla > planetaria zda byt spravna a rovnako aj Azimut, ale ten len v pripade ze sa > pocita od severu, nie od juhu.. > > ----- Original Message ----- > From: "Milan Krupa" > To: > Sent: Wednesday, December 27, 2006 10:42 PM > Subject: Re: Re: [IAN] Urcenie polohy hviezdy > > > Tohle už by fungovat mělo: > > Program využívá některé funkce VisualBasicu: > ( DateDiff - počítá rozdíl ve dnech mezi dvěma datumy) > ===================================== > > Const PI As Double = 3.14159265358979 > > > Private Sub Command1_Click() > > RaToAzim 6.758, -16.725, "27.12.2006 22:30", 1, 15, 50 ' výpočet pro > Sirius > > End Sub > > > > > > Public Sub RaToAzim(RA, DECL, DATUM, UTCDIF, LONGIT, LAT) > CAS = Hour(DATUM) + (Minute(DATUM) / 60) > DJ2000 = DateDiff("d", "1.1.2000", DATUM) + ((CAS - UTCDIF) / 24) - 0.5 > LST = 100.46 + 0.985647 * DJ2000 + LONGIT + 15 * (CAS - UTCDIF) > > Do While (LST <= 0) > LST = LST + 360 > Loop > Do While (LST >= 360) > LST = LST - 360 > Loop > HA = LST - RA * 15 > Do While (HA <= 0) > HA = HA + 360 > Loop > Do While (HA >= 360) > HA = HA - 360 > Loop > ELEVACE = dasin(dsin(DECL) * dsin(LAT) + dcos(DECL) * dcos(LAT) * > dcos(HA)) > AZIMUT = datan2(dsin(HA), dcos(HA) * dsin(LAT) - dtan(DECL) * dcos(LAT)) + > 180 > If (AZIMUT >= 360) Then > AZIMUT = AZIMUT - 360 > End If > > > MsgBox AZIMUT & vbCrLf & ELEVACE > > End Sub > > > > > Public Function dsin(X) > dsin = Sin(PI / 180 * X) > End Function > > > > Public Function dcos(X) > dcos = Cos(PI / 180 * X) > End Function > > > Public Function dtan(X) > dtan = Tan(PI / 180 * X) > End Function > > Public Function dasin(X) > dasin = 180 / PI * Atn(X / Sqr(-X * X + 1)) > End Function > > > Public Function datan(X) > datan = 180 / PI * Atn(X) > End Function > > > Public Function datan2(Y, X) > If ((X = 0) And (Y = 0)) Then > datan2 = 0 > Else > If (X = 0) Then > X = 0.00001 > End If > A = datan(Y / X) > If (X < 0) Then > A = A + 180 > End If > If (Y < 0 And X > 0) Then > A = A + 360 > End If > datan2 = A > End If > End Function > > > ===================================== > > > > > ______________________________________________________________ > > Od: mino na dekona.sk > > Komu: "Diskuze ctenaru Instantnich astronomickych novin" > > > > Datum: 27.12.2006 19:34 > > Předmět: Re: Re: [IAN] Urcenie polohy hviezdy > > > >Dobrý deň, > >Tak ten program počíta nejak veľmi zvláštne. Výsledok počíta zo zadanej > Rektascenzie, Deklinácie hviezdy, z polohy pozorovateľa a z aktuálneho > času. Vôbec nezarátava aktuálny dátum, ktorý tiež ovplyvňuje aktuálnu > polohu hviezdy. Na to aby som to pochopil mi úplne stačí vzorový výpočet. > >Tak napr. chceme vypočítať polohu hviezdy 'Sirius A' ak: > >> Deklinácia Siriusa A = -16° 42' 58.017" > >> Rektascenzia Siriusa A= 06h 45m 08.9173s > >> Súradnice pozorovateľa: 22 v.d. a 48 s.š. > >> Čas a dátum: 0 hod. 40 min. AM, 25. december (prosinec) 2006 > >(neviem či je potrebný aj rok) > >>nutáciu, ročnú a dennú aberáciu, paralaxiu aj vlastný pohyb hviezdy > môžeme >zanedbať.. > > > >Ďakujem vopred.. > > > > > >----- Original Message ----- From: "Milan Krupa" > >To: > >Sent: Sunday, December 24, 2006 9:55 PM > >Subject: Re: Re: [IAN] Urcenie polohy hviezdy > > > > > >Zdroják programu pro přepočet souřadnic v BASICu je třeba tady: > > > >http://media.skytonight.com/binary/altaz.bas > > > > > > > >______________________________________________________________ > >> Od: mino na dekona.sk > >> Komu: > >> Datum: 24.12.2006 18:07 > >> Předmět: Re: Re: [IAN] Urcenie polohy hviezdy > >> > >>Dobrý deň, > >> Vypočítať polohu hviezdy potrebujem pre program na ktorom teraz > >pracujem. Je to databáza hviezd, ukladá informácie o hviezdach prip. aj > >ich fotky. Ako bonus k tomu chcem dať ešte observatórium. Lenže som skôr > >programátor ako astronóm a preto aj ked som si skúšal vypočítať polohu > >hviezdy vyšli mi veľmi zvláštne čísla :( .. Preto by som Vás chcel > >poprosiť či by ste mi napísali taký ukážkový výpočet. > >>Povedzme že chceme vypočítať polohu hviezdy 'Sirius A' ak: > >> Deklinácia Siriusa A = -16° 42' 58" (neviem či je potrebná aj > >Rektascenzia) > >> Súradnice pozorovateľa: 22 v.d. a 48 s.š. > >> Čas a dátum: 0 hod. 40 min. AM, 25. december (prosinec) 2006 > >(neviem či je potrebný aj rok) > >>Observatórium v tomto programe slúži len informatívne čiže nutáciu, > ročnú > >a dennú aberáciu, paralaxiu aj vlastný pohyb hviezdy môžeme zanedbať.. > >> > > Ďakujem všetkým.. > >> > >> > >> > >>_______________________________________________ > >>Ian mailing list > >>Ian na amper.ped.muni.cz > >>http://amper.ped.muni.cz/mailman/listinfo/ian > >> > >> > > > > > > > > > >__________ Informacia od NOD32 1937 (20061224) __________ > > > >Tato sprava bola preverena antivirusovym systemom NOD32. > >http://www.eset.sk > > > > > > > > > >-------------------------------------------------------------------------------- > > > > > >_______________________________________________ > >Ian mailing list > >Ian na amper.ped.muni.cz > >http://amper.ped.muni.cz/mailman/listinfo/ian > > > > > >__________ Informacia od NOD32 1937 (20061224) __________ > > > >Tato sprava bola preverena antivirusovym systemom NOD32. > >http://www.eset.sk > > > > > > > > > >_______________________________________________ > >Ian mailing list > >Ian na amper.ped.muni.cz > >http://amper.ped.muni.cz/mailman/listinfo/ian > > > > > > > > > __________ Informacia od NOD32 1941 (20061228) __________ > > Tato sprava bola preverena antivirusovym systemom NOD32. > http://www.eset.sk > > > > > -------------------------------------------------------------------------------- > > > _______________________________________________ > Ian mailing list > Ian na amper.ped.muni.cz > http://amper.ped.muni.cz/mailman/listinfo/ian > > > __________ Informacia od NOD32 1941 (20061228) __________ > > Tato sprava bola preverena antivirusovym systemom NOD32. > http://www.eset.sk > > > > > > _______________________________________________ > Ian mailing list > Ian na amper.ped.muni.cz > http://amper.ped.muni.cz/mailman/listinfo/ian > > > -- ---------------------------------------------------- Rudolf Novak (novak na hvezdarna.cz) Hvezdarna v Brne, Kravi hora 2, 616 00 Brno, (tel.:0541321287) ---------------------------------------------------- instantni astronomicke noviny :: www.ian.cz ---------------------------------------------------- From krupa na centrum... Fri Dec 29 08:41:21 2006 From: krupa na centrum... (Milan Krupa) Date: Fri, 29 Dec 2006 08:41:21 +0100 Subject: [IAN] Urcenie polohy hviezdy In-Reply-To: <003101c72ac2$516c1bd0$0401a8c0@milan> References: 13401c7275f$0fca48c0$05357f5b@milan><000e01c729e5$6d4ad9a0$f7567f5b@milan> <003101c72ac2$516c1bd0$0401a8c0@milan> Message-ID: <200612290841.13865@centrum...> Ten program počítá s tím, že sever má azimut 0°. Porovnával jsem výsledky výpočtů pro 3 objekty. Váš pascalovský program se v porovnání s planetáriem StarCalc ( http://www.relex.ru/~zalex ) liší v setinách stupňů . Nedokážu přesně určit, jak moc je ten StarCalc přesný, ale myslím si, že je to dostačující. Navrhoval bych zaokrouhlovat výsledek na 1 desetinné místo. ______________________________________________________________ > Od: mino na dekona... > Komu: "Diskuze ctenaru Instantnich astronomickych novin" > Datum: 28.12.2006 22:31 > Předmět: Re: Re: [IAN] Urcenie polohy hviezdy > >VisualBasic nemam, tak som program prepisal do Pascalu. V pascale nie je >funkcia DateDiff, takze som si musel vytvorit vlastnu. Celkovo si teda >niesom isty spravnostou programu a preto Vam ho posielam ci by ste mi ho >prosim Vas skontrolovali: http://data1.edisk.cz/stahni/98516/STARS.EXE_11.23kB.html . >Napr. pri priklade hviezdy Sirius A kde pozorovatel je na suradnici 15vd a >50sš v case 22:30 27.12.2006, ktory ste spomenuli v predchazdajucom >prispevku, mi vysla Elevacia: 18,956 a Azimut 151,972.. Elevacia sa podla >planetaria zda byt spravna a rovnako aj Azimut, ale ten len v pripade ze sa >pocita od severu, nie od juhu.. > >----- Original Message ----- From: "Milan Krupa" >To: >Sent: Wednesday, December 27, 2006 10:42 PM >Subject: Re: Re: [IAN] Urcenie polohy hviezdy > > >Tohle už by fungovat mělo: > >Program využívá některé funkce VisualBasicu: >( DateDiff - počítá rozdíl ve dnech mezi dvěma datumy) >===================================== > >Const PI As Double = 3.14159265358979 > > >Private Sub Command1_Click() > > RaToAzim 6.758, -16.725, "27.12.2006 22:30", 1, 15, 50 ' výpočet pro Sirius > >End Sub > > > > > >Public Sub RaToAzim(RA, DECL, DATUM, UTCDIF, LONGIT, LAT) > CAS = Hour(DATUM) + (Minute(DATUM) / 60) > DJ2000 = DateDiff("d", "1.1.2000", DATUM) + ((CAS - UTCDIF) / 24) - 0.5 > LST = 100.46 + 0.985647 * DJ2000 + LONGIT + 15 * (CAS - UTCDIF) > > Do While (LST <= 0) > LST = LST + 360 > Loop > Do While (LST >= 360) > LST = LST - 360 > Loop > HA = LST - RA * 15 > Do While (HA <= 0) > HA = HA + 360 > Loop > Do While (HA >= 360) > HA = HA - 360 > Loop > ELEVACE = dasin(dsin(DECL) * dsin(LAT) + dcos(DECL) * dcos(LAT) * dcos(HA)) > AZIMUT = datan2(dsin(HA), dcos(HA) * dsin(LAT) - dtan(DECL) * dcos(LAT)) + 180 > If (AZIMUT >= 360) Then > AZIMUT = AZIMUT - 360 > End If > > > MsgBox AZIMUT & vbCrLf & ELEVACE > >End Sub > > > > >Public Function dsin(X) > dsin = Sin(PI / 180 * X) >End Function > > > >Public Function dcos(X) > dcos = Cos(PI / 180 * X) >End Function > > >Public Function dtan(X) > dtan = Tan(PI / 180 * X) >End Function > >Public Function dasin(X) > dasin = 180 / PI * Atn(X / Sqr(-X * X + 1)) >End Function > > >Public Function datan(X) > datan = 180 / PI * Atn(X) >End Function > > >Public Function datan2(Y, X) > If ((X = 0) And (Y = 0)) Then > datan2 = 0 > Else > If (X = 0) Then > X = 0.00001 > End If > A = datan(Y / X) > If (X < 0) Then > A = A + 180 > End If > If (Y < 0 And X > 0) Then > A = A + 360 > End If > datan2 = A > End If >End Function > > >===================================== > > > > >______________________________________________________________ >> Od: mino na dekona... >> Komu: "Diskuze ctenaru Instantnich astronomickych novin" > >> Datum: 27.12.2006 19:34 >> Předmět: Re: Re: [IAN] Urcenie polohy hviezdy >> >>Dobrý deň, >>Tak ten program počíta nejak veľmi zvláštne. Výsledok počíta zo zadanej >Rektascenzie, Deklinácie hviezdy, z polohy pozorovateľa a z aktuálneho >času. Vôbec nezarátava aktuálny dátum, ktorý tiež ovplyvňuje aktuálnu >polohu hviezdy. Na to aby som to pochopil mi úplne stačí vzorový výpočet. >>Tak napr. chceme vypočítať polohu hviezdy 'Sirius A' ak: >>> Deklinácia Siriusa A = -16° 42' 58.017" >>> Rektascenzia Siriusa A= 06h 45m 08.9173s >>> Súradnice pozorovateľa: 22 v.d. a 48 s.š. >>> Čas a dátum: 0 hod. 40 min. AM, 25. december (prosinec) 2006 >>(neviem či je potrebný aj rok) >>>nutáciu, ročnú a dennú aberáciu, paralaxiu aj vlastný pohyb hviezdy >môžeme >zanedbať.. >> >>Ďakujem vopred.. >> >> >>----- Original Message ----- From: "Milan Krupa" >>To: >>Sent: Sunday, December 24, 2006 9:55 PM >>Subject: Re: Re: [IAN] Urcenie polohy hviezdy >> >> >>Zdroják programu pro přepočet souřadnic v BASICu je třeba tady: >> >>http://media.skytonight.com/binary/altaz.bas >> >> >> >>______________________________________________________________ >>> Od: mino na dekona... >>> Komu: >>> Datum: 24.12.2006 18:07 >>> Předmět: Re: Re: [IAN] Urcenie polohy hviezdy >>> >>>Dobrý deň, >>> Vypočítať polohu hviezdy potrebujem pre program na ktorom teraz >>pracujem. Je to databáza hviezd, ukladá informácie o hviezdach prip. aj >>ich fotky. Ako bonus k tomu chcem dať ešte observatórium. Lenže som skôr >>programátor ako astronóm a preto aj ked som si skúšal vypočítať polohu >>hviezdy vyšli mi veľmi zvláštne čísla :( .. Preto by som Vás chcel >>poprosiť či by ste mi napísali taký ukážkový výpočet. >>>Povedzme že chceme vypočítať polohu hviezdy 'Sirius A' ak: >>> Deklinácia Siriusa A = -16° 42' 58" (neviem či je potrebná aj >>Rektascenzia) >>> Súradnice pozorovateľa: 22 v.d. a 48 s.š. >>> Čas a dátum: 0 hod. 40 min. AM, 25. december (prosinec) 2006 >>(neviem či je potrebný aj rok) >>>Observatórium v tomto programe slúži len informatívne čiže nutáciu, >ročnú >>a dennú aberáciu, paralaxiu aj vlastný pohyb hviezdy môžeme zanedbať.. >>> >> Ďakujem všetkým.. >>> >>> >>> >>>_______________________________________________ >>>Ian mailing list >>>Ian na amper....muni.cz >>>http://amper.ped.muni.cz/mailman/listinfo/ian >>> >>> >> >> >> >> >>__________ Informacia od NOD32 1937 (20061224) __________ >> >>Tato sprava bola preverena antivirusovym systemom NOD32. >>http://www.eset.sk >> >> >> >> >>-------------------------------------------------------------------------------- >> >> >>_______________________________________________ >>Ian mailing list >>Ian na amper....muni.cz >>http://amper.ped.muni.cz/mailman/listinfo/ian >> >> >>__________ Informacia od NOD32 1937 (20061224) __________ >> >>Tato sprava bola preverena antivirusovym systemom NOD32. >>http://www.eset.sk >> >> >> >> >>_______________________________________________ >>Ian mailing list >>Ian na amper....muni.cz >>http://amper.ped.muni.cz/mailman/listinfo/ian >> >> > > > > >__________ Informacia od NOD32 1941 (20061228) __________ > >Tato sprava bola preverena antivirusovym systemom NOD32. >http://www.eset.sk > > > > >-------------------------------------------------------------------------------- > > >_______________________________________________ >Ian mailing list >Ian na amper....muni.cz >http://amper.ped.muni.cz/mailman/listinfo/ian > > >__________ Informacia od NOD32 1941 (20061228) __________ > >Tato sprava bola preverena antivirusovym systemom NOD32. >http://www.eset.sk > > > > >_______________________________________________ >Ian mailing list >Ian na amper....muni.cz >http://amper.ped.muni.cz/mailman/listinfo/ian > > From mino na dekona... Fri Dec 29 16:04:46 2006 From: mino na dekona... (=?windows-1250?Q?Milan_Len=E8o?=) Date: Fri, 29 Dec 2006 16:04:46 +0100 Subject: [IAN] Urcenie polohy hviezdy References: 13401c7275f$0fca48c0$05357f5b@milan><000e01c729e5$6d4ad9a0$f7567f5b@milan><003101c72ac2$516c1bd0$0401a8c0@milan> <200612290841.13865@centrum...> Message-ID: <002a01c72b5a$ade7d050$0401a8c0@milan> Skusal som ten moj program voci tomu programu StarCalc a odchylky vacsie ako 1° mi vznikali až keď som nastavil rok vacsi ako 2050, takze je to celkom dobre.. zrejme je to preto ze zanedbavam paralaxiu, rocnu a dennu aberaciu, nutaciu atd.. pre istotu si este stiahnem Visual Basic a skontrolujem spravnost tej mojej funkcie Datediff.. Este by ma zaujimalo ako program rozlisuje medzi hodnotami severnej a juznej zempisnej sirky a zapadnej a vychodnej dlzky.. nie som si isty ci mam pre zapadne dlzky a juzne sirky zadavat zaporne hodnoty.. ----- Original Message ----- From: "Milan Krupa" To: Sent: Friday, December 29, 2006 8:41 AM Subject: Re: Re: [IAN] Urcenie polohy hviezdy Ten program počítá s tím, že sever má azimut 0°. Porovnával jsem výsledky výpočtů pro 3 objekty. Váš pascalovský program se v porovnání s planetáriem StarCalc ( http://www.relex.ru/~zalex ) liší v setinách stupňů . Nedokážu přesně určit, jak moc je ten StarCalc přesný, ale myslím si, že je to dostačující. Navrhoval bych zaokrouhlovat výsledek na 1 desetinné místo. ______________________________________________________________ > Od: mino na dekona... > Komu: "Diskuze ctenaru Instantnich astronomickych novin" > > Datum: 28.12.2006 22:31 > Předmět: Re: Re: [IAN] Urcenie polohy hviezdy > >VisualBasic nemam, tak som program prepisal do Pascalu. V pascale nie je >funkcia DateDiff, takze som si musel vytvorit vlastnu. Celkovo si teda >niesom isty spravnostou programu a preto Vam ho posielam ci by ste mi ho >prosim Vas skontrolovali: http://data1.edisk.cz/stahni/98516/STARS.EXE_11.23kB.html . >Napr. pri priklade hviezdy Sirius A kde pozorovatel je na suradnici 15vd a >50sš v case 22:30 27.12.2006, ktory ste spomenuli v predchazdajucom >prispevku, mi vysla Elevacia: 18,956 a Azimut 151,972.. Elevacia sa podla >planetaria zda byt spravna a rovnako aj Azimut, ale ten len v pripade ze sa >pocita od severu, nie od juhu.. > >----- Original Message ----- From: "Milan Krupa" >To: >Sent: Wednesday, December 27, 2006 10:42 PM >Subject: Re: Re: [IAN] Urcenie polohy hviezdy > > >Tohle už by fungovat mělo: > >Program využívá některé funkce VisualBasicu: >( DateDiff - počítá rozdíl ve dnech mezi dvěma datumy) >===================================== > >Const PI As Double = 3.14159265358979 > > >Private Sub Command1_Click() > > RaToAzim 6.758, -16.725, "27.12.2006 22:30", 1, 15, 50 ' výpočet pro Sirius > >End Sub > > > > > >Public Sub RaToAzim(RA, DECL, DATUM, UTCDIF, LONGIT, LAT) > CAS = Hour(DATUM) + (Minute(DATUM) / 60) > DJ2000 = DateDiff("d", "1.1.2000", DATUM) + ((CAS - UTCDIF) / 24) - 0.5 > LST = 100.46 + 0.985647 * DJ2000 + LONGIT + 15 * (CAS - UTCDIF) > > Do While (LST <= 0) > LST = LST + 360 > Loop > Do While (LST >= 360) > LST = LST - 360 > Loop > HA = LST - RA * 15 > Do While (HA <= 0) > HA = HA + 360 > Loop > Do While (HA >= 360) > HA = HA - 360 > Loop > ELEVACE = dasin(dsin(DECL) * dsin(LAT) + dcos(DECL) * dcos(LAT) * dcos(HA)) > AZIMUT = datan2(dsin(HA), dcos(HA) * dsin(LAT) - dtan(DECL) * dcos(LAT)) + 180 > If (AZIMUT >= 360) Then > AZIMUT = AZIMUT - 360 > End If > > > MsgBox AZIMUT & vbCrLf & ELEVACE > >End Sub > > > > >Public Function dsin(X) > dsin = Sin(PI / 180 * X) >End Function > > > >Public Function dcos(X) > dcos = Cos(PI / 180 * X) >End Function > > >Public Function dtan(X) > dtan = Tan(PI / 180 * X) >End Function > >Public Function dasin(X) > dasin = 180 / PI * Atn(X / Sqr(-X * X + 1)) >End Function > > >Public Function datan(X) > datan = 180 / PI * Atn(X) >End Function > > >Public Function datan2(Y, X) > If ((X = 0) And (Y = 0)) Then > datan2 = 0 > Else > If (X = 0) Then > X = 0.00001 > End If > A = datan(Y / X) > If (X < 0) Then > A = A + 180 > End If > If (Y < 0 And X > 0) Then > A = A + 360 > End If > datan2 = A > End If >End Function > > >===================================== > > > > >______________________________________________________________ >> Od: mino na dekona... >> Komu: "Diskuze ctenaru Instantnich astronomickych novin" > >> Datum: 27.12.2006 19:34 >> Předmět: Re: Re: [IAN] Urcenie polohy hviezdy >> >>Dobrý deň, >>Tak ten program počíta nejak veľmi zvláštne. Výsledok počíta zo zadanej >Rektascenzie, Deklinácie hviezdy, z polohy pozorovateľa a z aktuálneho >času. Vôbec nezarátava aktuálny dátum, ktorý tiež ovplyvňuje aktuálnu >polohu hviezdy. Na to aby som to pochopil mi úplne stačí vzorový výpočet. >>Tak napr. chceme vypočítať polohu hviezdy 'Sirius A' ak: >>> Deklinácia Siriusa A = -16° 42' 58.017" >>> Rektascenzia Siriusa A= 06h 45m 08.9173s >>> Súradnice pozorovateľa: 22 v.d. a 48 s.š. >>> Čas a dátum: 0 hod. 40 min. AM, 25. december (prosinec) 2006 >>(neviem či je potrebný aj rok) >>>nutáciu, ročnú a dennú aberáciu, paralaxiu aj vlastný pohyb hviezdy >môžeme >zanedbať.. >> >>Ďakujem vopred.. >> >> >>----- Original Message ----- From: "Milan Krupa" >>To: >>Sent: Sunday, December 24, 2006 9:55 PM >>Subject: Re: Re: [IAN] Urcenie polohy hviezdy >> >> >>Zdroják programu pro přepočet souřadnic v BASICu je třeba tady: >> >>http://media.skytonight.com/binary/altaz.bas >> >> >> >>______________________________________________________________ >>> Od: mino na dekona... >>> Komu: >>> Datum: 24.12.2006 18:07 >>> Předmět: Re: Re: [IAN] Urcenie polohy hviezdy >>> >>>Dobrý deň, >>> Vypočítať polohu hviezdy potrebujem pre program na ktorom teraz >>pracujem. Je to databáza hviezd, ukladá informácie o hviezdach prip. aj >>ich fotky. Ako bonus k tomu chcem dať ešte observatórium. Lenže som skôr >>programátor ako astronóm a preto aj ked som si skúšal vypočítať polohu >>hviezdy vyšli mi veľmi zvláštne čísla :( .. Preto by som Vás chcel >>poprosiť či by ste mi napísali taký ukážkový výpočet. >>>Povedzme že chceme vypočítať polohu hviezdy 'Sirius A' ak: >>> Deklinácia Siriusa A = -16° 42' 58" (neviem či je potrebná aj >>Rektascenzia) >>> Súradnice pozorovateľa: 22 v.d. a 48 s.š. >>> Čas a dátum: 0 hod. 40 min. AM, 25. december (prosinec) 2006 >>(neviem či je potrebný aj rok) >>>Observatórium v tomto programe slúži len informatívne čiže nutáciu, >ročnú >>a dennú aberáciu, paralaxiu aj vlastný pohyb hviezdy môžeme zanedbať.. >>> >> Ďakujem všetkým.. >>> >>> >>> >>>_______________________________________________ >>>Ian mailing list >>>Ian na amper....muni.cz >>>http://amper.ped.muni.cz/mailman/listinfo/ian >>> >>> >> >> >> >> >>__________ Informacia od NOD32 1937 (20061224) __________ >> >>Tato sprava bola preverena antivirusovym systemom NOD32. >>http://www.eset.sk >> >> >> >> >>-------------------------------------------------------------------------------- >> >> >>_______________________________________________ >>Ian mailing list >>Ian na amper....muni.cz >>http://amper.ped.muni.cz/mailman/listinfo/ian >> >> >>__________ Informacia od NOD32 1937 (20061224) __________ >> >>Tato sprava bola preverena antivirusovym systemom NOD32. >>http://www.eset.sk >> >> >> >> >>_______________________________________________ >>Ian mailing list >>Ian na amper....muni.cz >>http://amper.ped.muni.cz/mailman/listinfo/ian >> >> > > > > >__________ Informacia od NOD32 1941 (20061228) __________ > >Tato sprava bola preverena antivirusovym systemom NOD32. >http://www.eset.sk > > > > >-------------------------------------------------------------------------------- > > >_______________________________________________ >Ian mailing list >Ian na amper....muni.cz >http://amper.ped.muni.cz/mailman/listinfo/ian > > >__________ Informacia od NOD32 1941 (20061228) __________ > >Tato sprava bola preverena antivirusovym systemom NOD32. >http://www.eset.sk > > > > >_______________________________________________ >Ian mailing list >Ian na amper....muni.cz >http://amper.ped.muni.cz/mailman/listinfo/ian > > __________ Informacia od NOD32 1945 (20061229) __________ Tato sprava bola preverena antivirusovym systemom NOD32. http://www.eset.sk -------------------------------------------------------------------------------- _______________________________________________ Ian mailing list Ian na amper....muni.cz http://amper.ped.muni.cz/mailman/listinfo/ian __________ Informacia od NOD32 1945 (20061229) __________ Tato sprava bola preverena antivirusovym systemom NOD32. http://www.eset.sk