이 게시물은
간단한 사용법부터 올립니다.
여기에서 설명한 천체의 위치는 모두 황도좌표계로 나타낸 값입니다.
(1) 해의 위치 계산
이 함수는 해의 지구중심 좌표를 출력합니다.
Private Sub SUN(ByVal JD As Double, SL As Double, SB As Double, SR As Double)
입력은 JD입니다. UT로 나타낸 율리우스 역일입니다.
출력은 SL, SB, SR입니다.
SL은 태양의 황경, SB는 태양의 황위, SR은 태양까지의 거리입니다.
황경과 황위는 도(degree), 거리는 천문단위(AU)로 나타낸 값입니다.
(2) 달의 위치 계산
이 함수는 달의 지구중심 좌표를 구합니다.
Private Sub MOON(ByVal JD As Double, Lon As Double, Bet As Double, R As Double)
입력은 JD입니다. UT로 나타낸 율리우스 역일입니다.
출력은 Lon, Bet, R입니다.
Lon은 달의 황경, Bet는 달의 황위, R은 달까지의 거리입니다.
황경과 황위는 도(degree), 거리는 킬로미터(km)로 나타낸 값입니다.
(3) 행성의 위치 계산
이 함수는 수성, 금성, 화성, 목성, 토성, 천왕성, 해왕성의 태양중심 좌표를 구합니다.
Private Sub PLANS(ByVal JD As Double, ByVal P As Integer, L As Double, B As Double, R As Double)
입력은 JD와 P입니다. JD는 UT로 나타낸 율리우스 역일입니다. P는 행성을 나타내는 숫자입니다. 1~8까지의 정수입니다.
숫자가 가리키는 행성은 다음과 같습니다.
1: 수성
2: 금성
3: 화성
4: 목성
5: 토성
6: 천왕성
7: 해왕성
8: 명왕성
출력은 Lon, Bet, R입니다.
L은 행성의 황경, B는 행성의 황위, R은 행성과 태양 사이의 거리입니다.
황경과 황위는 도(degree), 거리는 천문단위(AU)로 나타낸 값입니다.
명왕성은 1984년의 궤도요소를 취하고 있고 시간의 따른 변화를 고려하고 있지 않으므로 계산 정밀도가 낮은 편입니다.
(4) 장동과 황도경사각 계산
장동 운동과 황도 경사각을 계산하는 데에는 2개의 함수를 사용합니다.
장동 계산
Private Sub NUTAT(ByVal JD As Double, dOBL As Double, dPhi As Double)
황도경사각 계산
Private Function OBLIQ(ByVal JD As Double, ByVal dOBL As Double) As Double
장동 계산 함수의 입력값은 JD입니다. UT로 나타낸 율리우스 역일입니다.
출력은 dOBL과 dPhi인데 각각 황위 방향의 장동, 황경 방향의 장동입니다.
황도 경사각 계산 함수의 입력값은 JD와 dOBL입니다.
JD는 UT로 나타낸 율리우스 역일입니다.
dOBL은 도(degree) 단위로 나타낸 황위 방향의 장동 운동 값인데, 평균 황도 경사각을 알고 싶으면 0을 입력하면 됩니다.
출력값은 두 함수 모두 도(degree)로 나타낸 값입니다.
