Astro :: coords.õ¹®ÇÐÀû ÁÂÇ¥¸¦ Ãë±ÞÇϱâÀ§ÇÑ ¼ö¾÷ | |
Áö±Ý ´Ù¿î·Îµå |
Astro :: coords. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Tim Jenness
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~tjenness/
Astro :: coords. ű×
Astro :: coords. ¼³¸í
õ¹®ÇÐÀû ÁÂÇ¥¸¦ ó¸®ÇÏ´Â ¼ö¾÷ Astro :: coords´Â õ¹®´ë¸¦ Á¶ÀÛÇÏ°í º¯Çü½ÃÅ°´Â Perl Ŭ·¡½ºÀÔ´Ï´Ù. ´ÙÀ½ ÁÂÇ¥ À¯ÇüÀ» ó¸® ÇÒ ¼ö ÀÖ½À´Ï´Ù : + Àûµµ RA / DEC, ÀºÇÏ°è (ÀûÀýÇÑ ¿òÁ÷ÀÓ ¹× ½ÃÂ÷ Æ÷ÇÔ) + Ç༺ + Çý¼º / ¼ÒÇ༺ + ¹æÀ§°¢ ¹× °íµµÀÇ °íÁ¤ À§Ä¡ + º¸°£ µÈ ¸í¹éÇÑ ÁÂÇ¥ÀÇ ½Ã°£ Á¾¼Ó °è»ê ¸Á¿ø°æ À§Ä¡ ¹× ±âÁØ ½Ã°£ÀÌ Á¦°øµÇ¾î¾ßÇÕ´Ï´Ù. ...¿¡ Astro :: ¸Á¿ø°æ ¹× DateTime À§Ä¡ ¹× ÂüÁ¶ EPOCH.Synopsis »ç¿ë¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀº Astro :: coords¸¦ »ç¿ëÇÕ´Ï´Ù. $ C = »õ·Î¿î Astro :: coords (name => "³» ¸ñÇ¥", ra => '05 : 22 : 56 ', dec =>'-26 : 20 : 40.4 ', type =>' 'b1950'´ÜÀ§ => ' À°½Ê ºÐ¼ö'); $ C = »õ·Î¿î Astro :: coords (long => '05 : 22 : 56 ', lat => -26 : 20 : 40.4', À¯Çü => 'ÀºÇÏ°è'); $ C = »õ·Î¿î Astro :: coords (planet => mars '); $ C = »õ·Î¿î Astro :: coords (elements => \ % ¿ä¼Ò); $ C = »õ·Î¿î Astro :: coords (az => 345, el => 45); # °üÂûÀÚ À§Ä¡¿Í °ü·Ã $ C-> ¸Á¿ø°æ (´º ½ºÅä : ¸Á¿ø°æ ( 'JCMT')); # ... ¹× ¸ðµç °è»êÀ»À§ÇÑ ÂüÁ¶ EPOCH $ date = time :: piece-> strptime ($ string, $ format); $ c-> datetime ($ date); # ¶Ç´Â datetime $ date = datetime-> from_epoch (epoch => $ ePOCH, time_zone => 'UTC'); $ c-> datetime ($ date); # DateTime # °³Ã¼¿¡ ÀúÀåµÈ EPOCH¿¡ ´ëÇÑ ÁÂÇ¥ ÁÂÇ¥ J2000À» ¹ÝȯÇÕ´Ï´Ù. ÀÌ°ÍÀº ¸ðµç º¯Á¾¿¡ ´ëÇØ ÀÛµ¿ÇÕ´Ï´Ù. ($ ra, $ dec) = $ c-> radec (); $ ¶óµð¾È = $ ra-> ¶óµð¾È; # ¶Ç´Â °³º°ÀûÀ¸·Î $ ra = $ c-> ra (); # ¹Ýȯ ASTRO :: coords :: °¢µµ :: ½Ã°£ °³Ã¼ $ dec = $ c-> dec (format => 'deg); # ¹Ýȯ ÁÂÇ¥ J2000, EPOCH 2000.0 $ RA = $ C-> RA2000 (); $ 12 = $ C-> DEC2000 (); # Report Coordinats ¸í¹éÇÑ, ÂüÁ¶ EPOCH, Sexatageimal Çü½ÄÀÇ À§Ä¡ ¹øÈ£. ($ ra_app, $ dec_app) = $ c-> ¸í¹éÇÑ; $ ra_app = $ c-> ra_app (format => 's'); $ dec_app = $ c-> dec_app (format => 's'); # ¹æÀ§°¢ ¹× °üÂûÀÚ À§Ä¡¿¡¼ ±âÁØ ¿¡Æ÷Å©¿¡ ´ëÇÑ °íµµ ($ AZ, $ EL) = $ C-> ¾Æ¼¿; ³» $ az = $ c-> az; ³» $ EL = $ C-> EL; # °³Ã¼ ¿ä¾à ¹®ÀÚ¿À» ¾òÀ¸½Ê½Ã¿À $ ¿ä¾à = "$ c"; # @summary = $ c-> ¹è¿·Î Àüü ¿ä¾àÀ» ¾ò½À´Ï´Ù. # ´ë»óÀÌ ÇöÀç ½Ã°£ ¹øÈ£ °üÂû ÇÒ ¼ö ÀÖ´ÂÁö È®ÀÎÇÏ°í ¸Á¿ø°æ $ OBS = 1 $ C-> isObservable °æ¿ì; # ´Ù¸¥ ÁÂÇ¥ (¶óµð¾È ´ÜÀ§) $ °Å¸® = $ C-> °Å¸® ($ C2); # ¼Ò½ºÀÇ »ó½Â ¹× ¼³Á¤ ½Ã°£À» °è»êÇÕ´Ï´Ù $ TR = $ C-> RISE_TIME; $ ts = $ c-> set_time; # Transit Elevation $ trans = $ c-> transit_el; # ´ëÁß ±³Åë ½Ã°£ $ mtime = $ c-> meridian_time (); ¿ä±¸ »çÇ× : ¡¤ Perl.
Astro :: coords. °ü·Ã ¼ÒÇÁÆ®¿þ¾î