[IAN] Urcenie polohy hviezdy

Milan Lenčo mino na dekona...
Čtvrtek Prosinec 28 21:54:07 CET 2006 

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

More information about the Ian mailing list