[IAN] Urcenie polohy hviezdy

Čtvrtek Prosinec 28 23:42:00 CET 2006

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 <mino na dekona.sk>:
> 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" <krupa na centrum.cz>
> To: <ian na amper.ped.muni.cz>
> 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"
> > <ian na amper.ped.muni.cz>
> > 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" <krupa na centrum.cz>
> >To: <ian na amper.ped.muni.cz>
> >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: <ian na amper.ped.muni.cz>
> >> 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
  ----------------------------------------------------