̾Á°

Location::GeoTool::Direction - µ÷Î¥¡¦Êý¸þ¤ò°·¤¦Perl¥â¥¸¥å¡¼¥ë

³µÍ×

  use Location::GeoTool;

  # À¸À®
  $locobj = Location::GeoTool->create_coord('353924.491','1394010.478','wgs84','dmsn');
  $dirobj = $locobj->direction_point('403614.307','1410133.022','wgs84','dmsn');

  # °À­
  $dir = $dirobj->direction;        # 11.8035750... [¡ë]
  $dist = $dirobj->distance;        # 561836.65713... [m]
  $start = $dirobj->from_point;     # '353924.491','1394010.478','wgs84','dmsn'¤Î
                                      Location::GeoTool¥ª¥Ö¥¸¥§¥¯¥È
  $end = $dirobj->to_point;         # '403614.307','1410133.022','wgs84','dmsn'¤Î...

  # ¥á¥½¥Ã¥É
  $revobj = $dirobj->reverse;       # »ÏÅÀ <-> ½ªÅÀ
  $midpoint = $dirobj->pivot(0,0.5);# ÃæÅÀ
  $dirstr = $dirobj->dir_string(4,'jp');
                                    # ¡ÖËÌ¡×

ÀâÌÀ

À¸À®

Location::GeoTool¤Î¥á¥½¥Ã¥É¤«¤éÀ¸À®¤µ¤ì¤Þ¤¹¡£

  $dirobj = $locobj->direction_point('403614.307','1410133.022','wgs84','dmsn');
  $dirobj = $locobj->direction_point($another_locobj);
  $dirobj = $locobj->direction_vector(120,500);

°À­

µ¯ÅÀ¡¢½ªÅÀµÚ¤Ó¤½¤Î´Ö¤ÎÊý°Ì¡¦µ÷Î¥¤ò°À­¤Ë»ý¤Á¤Þ¤¹¡£

from_point

µ¯ÅÀ¤òLocation::GeoTool¥ª¥Ö¥¸¥§¥¯¥È¤ÇÊÖ¤·¤Þ¤¹¡£

to_point

½ªÅÀ¤òLocation::GeoTool¥ª¥Ö¥¸¥§¥¯¥È¤ÇÊÖ¤·¤Þ¤¹¡£

direction

µ¯ÅÀ¤«¤é½ªÅÀ¤ò¸«¤¿Êý°Ì³Ñ¤ò¡¢0-360ÅÙ¤ÎÊý°Ì³Ñ(Ë̤ò0¡ë¤È¤·¤ÆÅìÊý¸þ¼þ¤ê)¤Ç ¤·¤Þ¤¹¡£ (¤¿¤À¤·¡¢À¸À®»þ¤Îdirection_vector¤Î°ú¿ô¤È¤·¤ÆÉé¤ÎÊý³Ñ¤¬Í¿¤¨¤é¤ì¤¿¾ì¹ç¤Ï¡¢ ¤½¤Î¤Þ¤ÞÊÖ¤·¤Þ¤¹¡£)

distance

µ¯ÅÀ¤«¤é½ªÅÀ¤Þ¤Ç¤Îµ÷Î¥¤òm¤ÇÊÖ¤·¤Þ¤¹¡£

¥á¥½¥Ã¥É

reverse

»ÏÅÀ¤È½ªÅÀ¤òÃÖ¤­´¹¤¨¤¿Location::GeoTool::Direction¥ª¥Ö¥¸¥§¥¯¥È¤òÊÖ¤·¤Þ¤¹¡£

pivot

  $newobj = $dirobj->pivot($rot,$pow);

»ÏÅÀ¤òÃæ¿´¤Ë¡¢$rot³ÑÅÙ¤À¤±Êý°Ì³Ñ¤ò²óž¤·¡¢µ÷Î¥¤ò$powÇܤ·¤¿ Location::GeoTool::Direction¥ª¥Ö¥¸¥§¥¯¥È¤òÊÖ¤·¤Þ¤¹¡£

dir_string

  $dirstr = $dirobj->dir_string($denom,$lang);

¸½ºß¤ÎÊý°Ì³Ñ¤ËÁêÅö¤¹¤ëÊý°Ì̾¤òÊÖ¤·¤Þ¤¹¡£ $denom¤Ï²¿Êý°Ì(4,8,16,32)¤Ç¤ÎÊý°Ì̾¤òÆÀ¤ë¤«¤ò»ØÄꤷ¤Þ¤¹¡£ $lang¤Ï²¿¸ì¤Ç¤Î½ÐÎϤòÆÀ¤ë¤«('jp' or 'en')¤ò»ØÄꤷ¤Þ¤¹¡£

$denom¤Î»ØÄê¤Ë´Ø¤·¤Æ¤Ï¡¢Î㤨¤Ð$dirobj->direction¤Ç241ÅÙ¤¬µ¢¤Ã¤Æ Íè¤ë¤è¤¦¤Ê¾ì¹ç¤Ï¡¢ $denom = 4¤Ê¤é¤Ð¡¢$dirobj->dir_string => 'À¾' $denom = 8¤Ê¤é¤Ð¡¢$dirobj->dir_string => 'ÆîÀ¾' $denom = 16¤Ê¤é¤Ð¡¢$dirobj->dir_string => 'À¾ÆîÀ¾' $denom = 32¤Ê¤é¤Ð¡¢$dirobj->dir_string => 'ÆîÀ¾ÈùÀ¾'

ÆüËܸì¤Ç¤Î½ÐÎϤÏEUC¥³¡¼¥É¤ÇÊÖ¤µ¤ì¤Þ¤¹¡£

°Í¸

Location::GeoTool

´ØÏ¢¾ðÊó

¤³¤Î¥â¥¸¥å¡¼¥ë¤Ï¡¢¤³¤³¥®¥³¡ª¥¦¥§¥Ö¥µ¥¤¥È¡¡¡§¡¡http://kokogiko.net/ ¤Ë¤Æ¥µ¥Ý¡¼¥È¤¤¤¿¤·¤Þ¤¹¡£

ºî¼Ô

ÂçÄÍ ¹±Ê¿, <nene@kokogiko.net>

Ãøºî¸¢¡¦¥é¥¤¥»¥ó¥¹

Copyright (C) 2004 SpaceTag Inc.,

Ëܥ饤¥Ö¥é¥ê¤Ï¥Õ¥ê¡¼¥½¥Õ¥È¤Ç¤¢¤ê¡¢PerlËÜÂΤÈƱ¤¸¾ò·ï¤Ç¤ÎºÆÇÛÉÛ¡¦²þÊѤ¬²Äǽ¤Ç¤¹¡£

cpanm Location::GeoTool

perl -MCPAN -e shell
install Location::GeoTool