PHPで2地点間の直線距離を求める

プログラムを実行する

ダウンロード（PHP4/5共用）

0100: /**
0101:  * 2地点間の直線距離を求める（Hubenyの簡易式による；日本測地系！）
0102:  * @param string $a A地点の緯度経度（日本語またはExxx.xx.xxNxx.xx.xx表記）
0103:  * @param string $b B地点の緯度経度（日本語またはExxx.xx.xxNxx.xx.xx表記）
0104:  * @return double 直線距離（メートル）
0105: */
0106: function calc_distance($a, $b) {
0107:     //Ａ地点の経度・緯度を小数に
0108:     preg_match("/E(\d+)\.(\d+)\.(\d+)\.(\d+)N(\d+)\.(\d+)\.(\d+)\.(\d+)/", $a, $regs);
0109:     $a_long = $regs[1] + $regs[2] / 60 + $regs[3] / 3600 + $regs[4] / 36000;
0110:     $a_lati = $regs[5] + $regs[6] / 60 + $regs[7] / 3600 + $regs[8] / 36000;
0111: 
0112:     //Ｂ地点の経度・緯度を小数に
0113:     preg_match("/E(\d+)\.(\d+)\.(\d+)\.(\d+)N(\d+)\.(\d+)\.(\d+)\.(\d+)/", $b, $regs);
0114:     $b_long = $regs[1] + $regs[2] / 60 + $regs[3] / 3600 + $regs[4] / 36000;
0115:     $b_lati = $regs[5] + $regs[6] / 60 + $regs[7] / 3600 + $regs[8] / 36000;
0116: 
0117:     //ラジアンに変換
0118:     $a_long = deg2rad($a_long);
0119:     $a_lati = deg2rad($a_lati);
0120:     $b_long = deg2rad($b_long);
0121:     $b_lati = deg2rad($b_lati);
0122: 
0123:     $latave = ($a_lati + $b_lati) / 2;
0124:     $latidiff = $a_lati - $b_lati;
0125:     $longdiff = $a_long - $b_long;
0126: 
0127:     //子午線曲率半径
0128:     $meridian = 6334834 / sqrt(pow(1 - 0.006674 * sin($latave) * sin($latave), 3));        //日本測地系
0129:     //$meridian = 6335439 / sqrt(pow(1 - 0.006694 * sin($latave) * sin($latave), 3));      //世界測地系
0130: 
0131:     //卯酉線曲率半径
0132:     $primevertical = 6377397 / sqrt(1 - 0.006674 * sin($latave) * sin($latave));       //日本測地系
0133:     $primevertical = 6378137 / sqrt(1 - 0.006694 * sin($latave) * sin($latave));       //世界測地系
0134: 
0135:     //Hubenyの簡易式
0136:     $x = $meridian * $latidiff;
0137:     $y = $primevertical * cos($latave) * $longdiff;
0138: 
0139:     return sqrt($x * $x + $y * $y);
0140: }

• 位置に関するメタデータとその応用
• ヒュベニの距離計算式（カシミール 3D）
• ヒュベニの距離計算式（www.h2caster.net）
• php で wgs84 の緯度（+43.3.14.112 みたいな）、経度（141. 22. 36. 912 のような）で A緯度,A経度と B緯度,B経度 2 点の距離をメートルで求めるのコードを探しています（人力検索はてな）

• 「プログラミングのセオリー」（矢沢久雄／技術評論社／2008 年 11 月／2,499 円）
• 「PHP による Web アプリケーションスーパーサンプル（活用編）第2版」（KJ／田中ナルミ／ソフトバンククリエイティブ／2008 年 07 月／2,993 円）
• 「PHP辞典第2版」（西沢直木／翔泳社／2008 年 02 月／2,520 円）