goodspeed/Cloudlog
1
0
派生 0
代码 工单 合并请求 项目 版本发布 软件包 百科 动态 Actions

Add code to support 4, 6, 8 char gridsquares

浏览代码
这个提交包含在：
Peter Goodhall 2023-07-28 16:48:35 +01:00
父节点 671467b38f
当前提交 c65bac1bb4
共有 1 个文件被更改，包括 31 次插入 和 23 次删除
显示统计信息 下载 Patch 文件 下载 Diff 文件 展开所有文件 折叠所有文件

54
application/libraries/Qra.php
查看文件

@ -176,35 +176,43 @@ function get_bearing($lat1, $lon1, $lat2, $lon2) {
}
function qra2latlong($strQRA) {
if (strpos($strQRA, ',') !== false) {
if (strpos($strQRA, ',') !== false) {
$gridsquareArray = explode(',', $strQRA);
$strQRA = $gridsquareArray[0];
}
if (strlen($strQRA) %2 == 0) {
$strQRA = strtoupper($strQRA);
if (strlen($strQRA) == 4) $strQRA .= "MM";
if(strlen($strQRA) > 6) {
$strQRA = substr($strQRA, 0, 6);
}
if (strlen($strQRA) % 2 == 1 && strlen($strQRA) <= 8) {
$strQRA = strtoupper($strQRA);
if (strlen($strQRA) < 8) {
$strQRA .= str_repeat("MM", (8 - strlen($strQRA)) / 2);
}
if (!preg_match('/^[A-R]{2}[0-9]{2}[A-X]{2}$/',$strQRA)) return false;
list($a,$b,$c,$d,$e,$f) = str_split($strQRA,1);
$a = ord($a) - ord('A');
$b = ord($b) - ord('A');
$c = ord($c) - ord('0');
$d = ord($d) - ord('0');
$e = ord($e) - ord('A');
$f = ord($f) - ord('A');
$nLong = ($a*20) + ($c*2) + (($e+0.5)/12) - 180;
$nLat = ($b*10) + $d + (($f+0.5)/24) - 90;
$arLatLong = array($nLat,$nLong);
return($arLatLong);
} else {
return array(0, 0);
}
if (!preg_match('/^[A-R]{2}[0-9]{2}[A-X]{2}$/', $strQRA)) {
return false;
}
list($a, $b, $c, $d, $e, $f, $g, $h) = str_split($strQRA, 1);
$a = ord($a) - ord('A');
$b = ord($b) - ord('A');
$c = ord($c) - ord('0');
$d = ord($d) - ord('0');
$e = ord($e) - ord('A');
$f = ord($f) - ord('A');
$g = ord($g) - ord('A');
$h = ord($h) - ord('A');
$nLong = ($a * 40) + ($c * 5) + (($e + 2.5) / 60) - 180;
$nLat = ($b * 20) + ($d * 2) + (($f + 1) / 24) - 90;
$nLong += (($g + 0.5) / 120);
$nLat += (($h + 0.5) / 240);
$arLatLong = array($nLat, $nLong);
return $arLatLong;
} else {
return array(0, 0);
}
}
/* End of file Qra.php */