Astro :: coord :: Eci :: tle :: À̸®µã

À̸®µã À§¼ºÀÇ °è»ê µ¿ÀÛ
Áö±Ý ´Ù¿î·Îµå

Astro :: coord :: Eci :: tle :: À̸®µã ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Tom Wyant
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~wyant/

Astro :: coord :: Eci :: tle :: À̸®µã ű×


Astro :: coord :: Eci :: tle :: À̸®µã ¼³¸í

À̸®µã À§¼ºÀÇ ÇൿÀ» °è»êÇÕ´Ï´Ù Astro :: Coord :: Eci :: Tle :: IridiumÀº Iridium SatellitesÀÇ µ¿ÀÛÀ» °è»êÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù .Synopsisthe ´ÙÀ½Àº À̸®µã Ç÷¹¾î¸¦ °è»êÇÏ´Â ¹ÝÆĸ® ½ºÅ©¸³Æ®ÀÔ´Ï´Ù. Áö½Ã µÈ À§Ä¡¸¦ ´ëüÇؾßÇÕ´Ï´Ù. Astro :: Spacetrack; Astro :: coord :: ECI; Astro :: coord :: Eci :: tle; Astro :: coord :: Eci :: utils qw {deg2rad rad2deg}; # 1600 Pennsylvania Avenue, ¿ö½ÌÅÏ DC, ¹Ì±¹ My $ Your_North_latitude_in_degrees = 38.898748; ³» $ $ your_east_longitude_in_degrees = -77.037684; ³» $ your_height_above_sea_level_in_meters = 16.68; # ¿ÉÀú¹öÀÇ À§Ä¡¸¦ ³ªÅ¸³»´Â °³Ã¼¸¦ ¸¸µì´Ï´Ù. # Geodetic ()¿¡ ´ëÇÑ ÀÔ·ÂÀº Latitude North # and Longity West, ¶óµð¾È, ¹Ù´Ù # ¼öÁØÀÇ ³ôÀÌ°¡ ų·Î¹ÌÅÍÀÇ ³ôÀÌÀÔ´Ï´Ù. MY $ LOC = ASTRO :: coord :: eci-> ÃøÁö (deg2rad ($ your_north_latitude_in_degrees), deg2rad ($ your_east_longitude_in_degrees), $ your_height_above_sea_level_in_meters / 1000); # Celestrak¿¡¼­ ¸ðµç À̸®µã µ¥ÀÌÅ͸¦ ¾òÀ¸½Ê½Ã¿À. ±×°ÍÀº Á÷Á¢ÀûÀ¸·Î °¡Á® ¿À±â ¶§¹®¿¡ ¾ÏÈ£°¡ ÇÊ¿äÇÏÁö ¾Ê½À´Ï´Ù. $ ST = ASTRO :: SPACETRACK-> »õ·Î¿î (Á÷Á¢ => 1); ³» $ data = $ st-> celestrak ( 'À̸®µã'); $ data-> is_success ¶Ç´Â die $ die-> status_line; # °¡Á® ¿À´Â µ¥ÀÌÅ͸¦ ±¸¹® ºÐ¼®ÇÏ¿© À̸®µã °´Ã¼¸¦ »ý¼ºÇÕ´Ï´Ù. @sats = astro :: coord :: eci :: tle-> ±¸¹® ºÐ¼® ($ data-> ÄÜÅÙÃ÷); # ¿ì¸®´Â ´ÙÀ½ 2 ÀÏ µ¿¾È Ç÷¹¾î¸¦ ¿øÇÕ´Ï´Ù. # Áߺ¹ µÈ http://www.heavens-above.com/´Â # °¡´ÉÇÕ´Ï´Ù. °¡´ÉÇÑ ÇÑ -6, # ¹× ¾ß°£ Ç÷¹¾î µð¸Óº¸´Ù Daytime Flares Dimmer¸¦ -1º¸´Ù ¸Ö¸® ´øÁö½Ê½Ã¿À. ¿ì¸®´Â ¶ÇÇÑ ¿¹ºñ ºÎÇ°¿¡ ´ëÇÑ # Ç÷¹¾î¸¦ °è»êÇÏ°í, žç #°¡ ÁöÆò¼± ¾Æ·¡¿¡ÀÖ´Â ½Ã°£À̶ó°í °¡Á¤ÇÕ´Ï´Ù. ³» $ start = time (); My $ ¸¶°¨ = $ start + 2 * 86400; ³» @sellares; ³» % mag_limit = (am => -1, day => -6, pm => -1); ³» $ IRID (@SATS) {$ IRID-> CAN_FLARE (1) ¶Ç´Â ´ÙÀ½; $ IRID-> ¼¼Æ® (Ȳȥ => 0); Foreach My $ Flare ($ IRID-> Ç÷¹¾î ($ LOC, $ START, $ FININE)) {$ FLARE -> {migpnition} {type}} ¹× Ǫ½Ã @Flares, $ Flare; } {time}} @flares) {# iRidium °´Ã¼¸¦ »ç¿ëÇÏ°í ½ÍÀº °æ¿ì # flare¸¦ »ý¼º (¿¹¸¦ µé¾î, ¸í¶÷ Àûµµ # ÁÂÇ¥¸¦ ¾òÀ¸·Á¸é) ½Ã°£À» ¸ÕÀú ¼³Á¤ÇؾßÇÕ´Ï´Ù. ## $ flare -> {body} -> À¯´Ï¹ö¼³ ($ flare -> {time}); # ¹Ýȯ µÈ °¢µµ°¡ ¶óµð¾È¿¡ ÀÖÀ¸¹Ç·Î ¿ì¸®°¡ ÇÊ¿ä·ÎÇؾßÇÕ´Ï´Ù. PRINTF "% S % -15S % 9.1F % 9.1F % 5.1F ", Scalar LocalTime $ Flare -> {Time}, $ FLARE -> {BODY} -> get ( 'name'), rad2deg ($ flare -> {elevation}), rad2deg ($ flare -> {azimuth}), $ Flare -> {mignitudituditude};}ÀÌ Å¬·¡½º´Â ¾Æ½ºÆ®·Î :: coord :: eci :: tle, Iridium À§¼ºÀ» ³ªÅ¸³»´Â Astro :: coord :: Eci :: tle-> ±¸¹® ºÐ¼® ¹æ¹ýÀ» »ç¿ëÇÕ´Ï´Ù. °³Ã¼ÀÇ NORAD SATCAT ID¸¦ ±â¹Ý À¸·ÎÀÌ Å¬·¡½º¿¡ ´Ù½Ã ºí·Î¿ì ÇÒ À§¼ºÀ» °áÁ¤Çϱâ À§ÇØ µ¥ÀÌÅÍÀÇ $ TLE-> Rebless (iridium => {status => $ status})¸¦ È£ÃâÇÏ¿© À̸®µã °´Ã¼¸¦ ¾òÀ» ¼öµµ ÀÖ½À´Ï´Ù.ÀÌ ÇÏÀ§ Ŭ·¡½º Ãß°¡´Â À̸®µã Ç÷¹¾î (¶Ç´Â ¹Ý¦ÀÓ¿¡ ´ëÇÑ Á¤º¸¸¦ »ý¼º ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¶ÇÇÑÀÌ Å¬·¡½ºÀÇ ±¸¼º¿øÀº ´ÙÀ½°ú °°ÀÌ »óŸ¦ ±â¹ÝÀ¸·Î Ç÷¹¾î¸¦ »ý¼º ÇÒ ¼öÀÖ´Â °ÍÀ¸·Î °£Áֵ˴ϴÙ. »óÅ ( '+', 's'¹× '-'Á¸°æ y)´Â ÀԷ½à Çã¿ëµË´Ï´Ù. Astro :: Spacetrack ¹æ¹ý Iridium_status¸¦ ÂüÁ¶ÇÏ¿© ÇöÀçÀÇ À̸®µã º°ÀÚ¸® »óŸ¦ ¾òÀ» ¼ö ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


Astro :: coord :: Eci :: tle :: À̸®µã °ü·Ã ¼ÒÇÁÆ®¿þ¾î