조회 수 7000 댓글 1
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄 첨부
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄 첨부

 해와 달의 위치 계산에 쓸 수 있는 함수입니다.
가까운 미래나 과거에 한해 비교적 낮은 정밀도로 해와 달의 위치를 계산할 수 있습니다.
비교적 낮은 정밀도라고 해도 실용상으로 쓰기에는 충분한 정확도를 가집니다(일식, 월식, 엄폐 현상의 계산에는 부적합할 수 있습니다).

입력은 율리우스 적일(UTC)로 받고 출력은 황도좌표계로 합니다. 거리의 출력 단위는 태양은 천문단위, 달은 km입니다.
(1천문단위는 149597870.691km이므로 km 단위로 바꾸고 싶다면 출력된 천문단위 값에 149597870.691을 곱하면 됩니다.)
분점은 입력한 날짜의 분점을 기준으로 합니다.

오차는 2000년 전후 100년 범위 내에서 다음과 같습니다(실제 위치와 계산 위치 사이의 편차입니다).
계산 가능한 시간 범위를 줄여도 오차 범위가 감소하지는 않습니다.

1)해
평균 오차: 0.34분(황경), 0.01분(황위), 3537.01km(거리)
최대 오차: 1.04분(황경), 0.02분(황위), 12027.15km(거리)
최소 오차: 0.00분(황경), 0.00분(황위), 0.01km(거리)

2)달
평균 오차: 7.75분(황경), 2.82분(황위), 282.04km(거리)
최대 오차: 31.60분(황경), 11.07분(황위), 1251.29km(거리)
최소 오차: 0.00분(황경), 0.00분(황위), 0.02km(거리)


함수는 입력값으로 계산할 천체의 종류(P, 0=해, 1=달)와 율리우스 적일값(JD)이고 출력값은 황경(Lamda), 황위(Beta), 거리(R) 입니다.
율리우스 적일은 세계표준시로 입력해야합니다.  

프로그램의 실행을 위해서는 아래에 올려놓은 천문계산용 수학함수 파일을 필요로 합니다.

[소스 코드]
Sub LBR_LOW(ByVal P As Byte, ByVal JD As Double, Lamda As Double, Beta As Double, R As Double)
  Dim N As Double, l As Double, g As Double, T As Double, E As Double
  
  N = JD - 2451545#
  If P = 0 Then  'sun
    l = 280.46 + 0.9856474 * N
    g = 357.528 + 0.9856003 * N
    Lamda = l + 1.915 * Sind(g) + 0.02 * Sind(2 * g)
    Beta = N / 36525
    E = 0.016708634 - 0.000042037 * Beta - 0.0000001267 * Beta * Beta
    Beta = 0
    R = 1.000001018 * (1 - E * E) / (1 + E * Cosd(g + Lamda - l))
    
  Else  'moon
    T = N / 36525
    l = 218.32 + 481267.883 * T + 6.29 * Sind(134.9 + 477198.85 * T) - 1.27 * Sind(259.2 - 413335.38 * T) _
      + 0.66 * Sind(235.7 + 890534.23 * T) + 0.21 * Sind(269.9 + 954397.7 * T) - 0.19 * Sind(357.5 + 35999.05) _
      - 0.11 * Sind(186.6 + 966404.05 * T)
    g = 5.13 * Sind(93.3 + 483202.03 * T) + 0.28 * Sind(228.2 + 960400.87 * T) - 0.28 * Sind(318.3 + 6003.18 * T) - 0.17 * Sind(217.6 - 407332.2 * T)
    N = 0.9508 + 0.0518 * Cosd(134.9 + 477198.85 * T) + 0.0095 * Cosd(259.2 - 413335.38 * T) _
      + 0.0078 * Cosd(235.7 + 890534.23 * T) + 0.0028 * Cosd(269.9 + 954397.7 * T)
    N = 1 / Sind(N)
    R = N * 6378.14
    Beta = g
    Lamda = l
  End If

TAG •
?
  • ?
    이상길 2018.10.08 16:39
    안녕하세요~~ 기계공학과 대학생 3학년입니다. 달 탐사 로버를 제작하려하는데 달에서 황도좌표계 계산한 식에대한 설명을 간단하게 알 수 있을까요?

  1. [책]The Astronomical Almanac

    (사진은 2008년판, 출처는 구글 검색) -제목: Astronomical Almanac for the Year 2010 and Its Companion, The Astronomical Almanac Online: Data for Astronomy, Space Sciences, Geodesy, Surveying, Navigation, and other applications (제목 속의 연도...
    Date2009.08.12 Category천문 계산 By창환 Views4322
    Read More
  2. [책]Explanatory Supplement to the Astronomical Almanac

    (책 표지 사진은 구글에서 가져왔습니다.) -제목: Explanatory Supplement to the Astronomical Almanac -저자: P. Kenneth Seidelmann -출판사, 펴낸 날: University Science Books, Revised edition (2005년 8월 15일) -분량: 752쪽 -언어: 영어 -ISBN-10: ...
    Date2009.08.12 Category천문 계산 By창환 Views5037
    Read More
  3. [책]Astronomy with your personal computer

    (책 표지 사진은 구글에서 가져왔습니다.) -제목: Astronomy with your personal computer -저자: Peter Duffett-Smith -출판사, 펴낸 날: Cambridge University Press, 2nd edition (1990년 6월 29일) -분량: 272쪽 -언어: 영어 -ISBN-10: 052138995X -ISBN-...
    Date2009.08.12 Category천문 계산 By창환 Views4272
    Read More
  4. [책]Practical Astronomy with your Calculator

    (책 표지 사진은 구글에서 가져왔습니다.) -제목: Practical Astronomy with your Calculator -저자: Peter Duffett-Smith -출판사, 펴낸 날: Cambridge University Press, 3rd edition (1988년 3월 31일) -분량: 약 200쪽 -언어: 영어 -ISBN-10: 0521356997 ...
    Date2009.08.12 Category천문 계산 By창환 Views4169
    Read More
  5. [책]Astronomical Algorithms

    (책 표지 사진은 구글에서 가져왔습니다.) -제목: Astronomical Algorithms -저자: Jean Meeus -출판사, 펴낸 날: Willmann-Bell, 2nd edition (1998년 12월) -분량: 477쪽 -언어: 영어 -ISBN-10: 0943396611 -ISBN-13: 978-0943396613 이 책은 천문 계산에 ...
    Date2009.08.12 Category천문 계산 By창환 Views6149
    Read More
  6. [책]역법의 원리분석

    -제목: 역법의 원리분석 -저자: 이은성 -출판사, 펴낸 날: 정음사 (1985년 2월 1일 초판 발행) -분량: 444쪽 -언어: 한국어 -ISBN-13: 2005853002988 '역법의 원리분석'은 달력을 만드는 방법에 대하여 포괄적으로 설명하고 있는 책입니다. 달력 제작에 어떤 ...
    Date2009.08.12 Category천문 계산 By창환 Views10744
    Read More
  7. No Image

    IAU2000 장동 모델

    IAU 2000 장동 모델 IAU2000 장동 모델은 국제천문연맹에서 정한 장동 계산식으로 MHB2000 모델에 기반을 두고 있습니다. 수 세기의 범위에서 마이크로초(microarcsecond, μas) 단위의 정밀도를 가지는 IAU2000A 모델과 이보다 조금 낮은 정밀도를 가지지만 항...
    Date2009.08.12 Category천문 계산 By창환 Views5667
    Read More
  8. No Image

    IAU2006 세차 모델

    IAU2006 세차 모델 IAU에서는 2006년에 IAU2000에서 결정한 세차운동 식을 대체할 새로운 세차운동 식을 채택했습니다. 현재 IAU에서는 IAU2000A에서 결정한 세차운동식 대신 2006년에 채택한 새로운 식을 사용할 것을 권하고 있고, 미해군천문대에서는 2009년...
    Date2009.08.12 Category천문 계산 By창환 Views4480
    Read More
  9. No Image

    [소스코드]해와 달의 위치 계산(간단한 방법)

    해와 달의 위치 계산에 쓸 수 있는 함수입니다. 가까운 미래나 과거에 한해 비교적 낮은 정밀도로 해와 달의 위치를 계산할 수 있습니다. 비교적 낮은 정밀도라고 해도 실용상으로 쓰기에는 충분한 정확도를 가집니다(일식, 월식, 엄폐 현상의 계산에는 부적...
    Date2009.08.12 Category천문 계산 By창환 Views7000
    Read More
  10. No Image

    [소스코드]천문 계산용 수학 함수 모음 1

    천문 계산에 필요한 수학 함수를 모아놓은 소스코드입니다. 비주얼베이직 6 또는 MS오피스 2000이상의 VBA에서 쓸 수 있습니다. 이 소스코드에는 삼각함수, 삼각함수의 역함수, 상용로그 계산 함수가 포함되어 있습니다. 앞으로 이 게시판에 올라올 천문 계산...
    Date2009.08.12 Category천문 계산 By창환 Views6425
    Read More
Board Pagination Prev 1 ... 13 14 15 16 17 18 19 20 21 22 Next
/ 22
Powered by XE