[IAN] Urcenie polohy hviezdy

Pátek Prosinec 29 08:41:21 CET 2006

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" <ian na amper....muni.cz>
> 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" <krupa na centrum...>
>To: <ian na amper....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...
>> Komu: "Diskuze ctenaru Instantnich astronomickych novin" >
<ian na amper....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...>
>>To: <ian na amper....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...
>>> Komu: <ian na amper....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....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
>
>