php代码
<?php function computeDistance($lat1, $lon1, $lat2, $lon2) { // using the "Inverse Formula" (section 4) $MAXITERS = 20; // Convert lat/long to radians $lat1 *= pi() / 180.0; $lat2 *= pi() / 180.0; $lon1 *= pi() / 180.0; $lon2 *= pi() / 180.0; $a = 6378137.0; // WGS84 major axis $b = 6356752.3142; // WGS84 semi-major axis $f = ($a - $b) / $a; $aSqMinusBSqOverBSq = ($a * $a - $b * $b) / ($b * $b); $L = $lon2 - $lon1; $A = 0.0; $U1 = atan((1.0 - $f) * tan($lat1)); $U2 = atan((1.0 - $f) * tan($lat2)); $cosU1 = cos($U1); $cosU2 = cos($U2); $sinU1 = sin($U1); $sinU2 = sin($U2); $cosU1cosU2 = $cosU1 * $cosU2; $sinU1sinU2 = $sinU1 * $sinU2; $sigma = 0.0; $deltaSigma = 0.0; $cosSqAlpha = 0.0; $cos2SM = 0.0; $cosSigma = 0.0; $sinSigma = 0.0; $cosLambda = 0.0; $sinLambda = 0.0; $lambda = $L; // initial guess for ($iter = 0; $iter < $MAXITERS; $iter++) { $lambdaOrig = $lambda; $cosLambda = cos($lambda); $sinLambda = sin($lambda); $t1 = $cosU2 * $sinLambda; $t2 = $cosU1 * $sinU2 - $sinU1 * $cosU2 * $cosLambda; $sinSqSigma = $t1 * $t1 + $t2 * $t2; // (14) $sinSigma = sqrt($sinSqSigma); $cosSigma = $sinU1sinU2 + $cosU1cosU2 * $cosLambda; // (15) $sigma = atan2($sinSigma, $cosSigma); // (16) $sinAlpha = ($sinSigma == 0) ? 0.0 : $cosU1cosU2 * $sinLambda / $sinSigma; // (17) $cosSqAlpha = 1.0 - $sinAlpha * $sinAlpha; $cos2SM = ($cosSqAlpha == 0) ? 0.0 : $cosSigma - 2.0 * $sinU1sinU2 / $cosSqAlpha; // (18) $uSquared = $cosSqAlpha * $aSqMinusBSqOverBSq; // defn $A = 1 + ($uSquared / 16384.0) * // (3) (4096.0 + $uSquared * (-768 + $uSquared * (320.0 - 175.0 * $uSquared))); $B = ($uSquared / 1024.0) * // (4) (256.0 + $uSquared * (-128.0 + $uSquared * (74.0 - 47.0 * $uSquared))); $C = ($f / 16.0) * $cosSqAlpha * (4.0 + $f * (4.0 - 3.0 * $cosSqAlpha)); // (10) $cos2SMSq = $cos2SM * $cos2SM; $deltaSigma = $B * $sinSigma * // (6) ($cos2SM + ($B / 4.0) * ($cosSigma * (-1.0 + 2.0 * $cos2SMSq) - ($B / 6.0) * $cos2SM * (-3.0 + 4.0 * $sinSigma * $sinSigma) * (-3.0 + 4.0 * $cos2SMSq))); $lambda = $L + (1.0 - $C) * $f * $sinAlpha * ($sigma + $C * $sinSigma * ($cos2SM + $C * $cosSigma * (-1.0 + 2.0 * $cos2SM * $cos2SM))); // (11) $delta = ($lambda - $lambdaOrig) / $lambda; if (abs($delta) < 1.0e-12) { break; } } return $b * $A * ($sigma - $deltaSigma); } echo computeDistance(34.8082342, 113.6125439, 34.8002478, 113.659779); ?>
声明
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn

热AI工具

Undresser.AI Undress
人工智能驱动的应用程序,用于创建逼真的裸体照片

AI Clothes Remover
用于从照片中去除衣服的在线人工智能工具。

Undress AI Tool
免费脱衣服图片

Clothoff.io
AI脱衣机

Video Face Swap
使用我们完全免费的人工智能换脸工具轻松在任何视频中换脸!

热门文章
如何修复KB5055612无法在Windows 10中安装?
3 周前ByDDD
<🎜>:种植花园 - 完整的突变指南
3 周前ByDDD
<🎜>:泡泡胶模拟器无穷大 - 如何获取和使用皇家钥匙
3 周前By尊渡假赌尊渡假赌尊渡假赌
Mandragora:巫婆树的耳语 - 如何解锁抓钩
3 周前By尊渡假赌尊渡假赌尊渡假赌
北端:融合系统,解释
3 周前By尊渡假赌尊渡假赌尊渡假赌

热工具

WebStorm Mac版
好用的JavaScript开发工具

EditPlus 中文破解版
体积小,语法高亮,不支持代码提示功能

SecLists
SecLists是最终安全测试人员的伙伴。它是一个包含各种类型列表的集合,这些列表在安全评估过程中经常使用,都在一个地方。SecLists通过方便地提供安全测试人员可能需要的所有列表,帮助提高安全测试的效率和生产力。列表类型包括用户名、密码、URL、模糊测试有效载荷、敏感数据模式、Web shell等等。测试人员只需将此存储库拉到新的测试机上,他就可以访问到所需的每种类型的列表。

SublimeText3 Mac版
神级代码编辑软件(SublimeText3)

Atom编辑器mac版下载
最流行的的开源编辑器