0175: /** 0176: * 2地点間の直線距離を求める(Hubenyの簡易式による;日本測地系!) 0177: * @param string $a A地点の緯度経度(日本語またはExxx.xx.xxNxx.xx.xx表記) 0178: * @param string $b B地点の緯度経度(日本語またはExxx.xx.xxNxx.xx.xx表記) 0179: * @return double 直線距離(メートル) 0180: */ 0181: function calc_distance($a, $b) { 0182: //A地点の経度・緯度を小数に 0183: preg_match("/E(\d+)\.(\d+)\.(\d+)\.(\d+)N(\d+)\.(\d+)\.(\d+)\.(\d+)/", $a, $regs); 0184: $a_lo