libnova奇怪的行为是北纬89.5度

Question

我写了这个程序:

#!/usr/bin/perl 

use Astro::Nova qw(get_solar_equ_coords get_lunar_equ_coords get_hrz_from_equ 
                   get_solar_rst_horizon get_timet_from_julian 
                   get_julian_from_timet get_lunar_rst get_lunar_phase); 

$observer = Astro::Nova::LnLatPosn->new("lng"=>0,"lat"=>89.5); 

for $i (2456623..2456624) { 
  print "DAY: $i\n"; 
  ($status,$rst) = get_lunar_rst($i, $observer); 
  print "STATUS: $status\n"; 

  $rst->get_transit(); 

  $rise = $rst->get_rise(); 
  print "RISE: $rise\n"; 
  $set = $rst->get_set(); 
  print "SET: $set\n\n"; 
} 

得到了这些结果:

DAY: 2456623 
STATUS: 1 
RISE: 5.5664193588601e-309 
SET: 1.55254159695923e-267 

DAY: 2456624 
STATUS: -1 
RISE: 1.9634470382202e-153 
SET: 2.26294632209635e+137 

换句话说,月亮从极地(总是向上)到地平线以下而没有实际上升或设置.

我意识到89.5度是一个极端情况,但为什么不应该这个代码工作？

请注意http://aa.usno.navy.mil/data/docs/RS_OneYear.php显示此间隔内有一个月亮集(JD 2456623 = 2013-11-26 12:00:00):

另一个奇怪之处:如果我注释掉"$ rst-> get_transit();" 我得到了这些结果:

DAY: 2456623 
STATUS: 1 
RISE: 5.5664193588601e-309 
SET: 1.14372958360957e-268 

DAY: 2456624 
STATUS: -1 
RISE: 6.80740365931403e+199 
SET: 4.81766816905579e+151 

上升/设置仍然是奇怪的(这是好的,因为状态是-1),但它们是不同的.我总是假设get_lunar_rst()返回了一个固定的结构,但显然不是？检查运输时间的行为会改变结构吗？

编辑:好的,我运行程序两次而没有改变它并得到:

DAY: 2456623
STATUS: 1
RISE: 5.5664193588601e-309
SET: 2.99352717623831e-264

DAY: 2456624
STATUS: -1
RISE: 1.9634470382202e-153
SET: 2.26294632209635e+137

DAY: 2456623
STATUS: 1
RISE: 5.5664193588601e-309
SET: 3.04770606791278e-262

DAY: 2456624
STATUS: -1
RISE: 1.9634470382202e-153
SET: 2.26294632209635e+137

换句话说,2456623设置无缘无故变化.

Answer 1

我已经联系了 libnova 的作者，他们已经确认这是一个错误并正在努力纠正它。

libnova 错误地认为如果天体在正北时位于地平线以上，则它们是绕极地的。这是不真实的： https: //astronomy.stackexchange.com/q/963

我编写了一个修复程序，该修复程序不假设这一点，但如果物体的偏角是非单峰的，则可能仍然不准确：https: //astronomy.stackexchange.com/questions/962/is-lunar-elevation-at-a -给定日期的给定位置单模式