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

[QRA Library] Fixes #1117. This fixes bearing calculation. Distance was not calculcated if the locator was directly to the north or south of your own locator.

浏览代码
这个提交包含在：
Andreas 2021-07-31 12:01:14 +02:00
父节点 bad229dd09
当前提交 ea916d88c9
共有 1 个文件被更改，包括 15 次插入 和 22 次删除
显示统计信息 下载 Patch 文件 下载 Diff 文件 展开所有文件 折叠所有文件

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

@ -1,4 +1,4 @@
<?php if ( ! defined('BASEPATH')) exit('No direct script access allowed'); <?php if ( ! defined('BASEPATH')) exit('No direct script access allowed');
class Qra { class Qra {
@ -13,14 +13,14 @@ class Qra {
* K = Kilometers * K = Kilometers
* N = Nautical Miles * N = Nautical Miles
*/ */
// Name: qra2latlong // Name: qra2latlong
// Task: convert qra to lat/long // Task: convert qra to lat/long
function qra2latlong($strQRA) function qra2latlong($strQRA)
{ {
return qra2latlong($strQRA); return qra2latlong($strQRA);
} }
// calculate the bearing between two squares // calculate the bearing between two squares
function bearing($tx, $rx, $unit = 'M') { function bearing($tx, $rx, $unit = 'M') {
if(strlen($tx) <= 6 && strlen($rx) <= 6) { if(strlen($tx) <= 6 && strlen($rx) <= 6) {
@ -28,7 +28,7 @@ class Qra {
$stn = qra2latlong($rx); $stn = qra2latlong($rx);
$bearing = bearing($my[0], $my[1], $stn[0], $stn[1], $unit); $bearing = bearing($my[0], $my[1], $stn[0], $stn[1], $unit);
return $bearing; return $bearing;
} }
} }
@ -46,7 +46,7 @@ class Qra {
// Feed in Lat Longs plus the unit type // Feed in Lat Longs plus the unit type
$total_distance = distance($my[0], $my[1], $stn[0], $stn[1], $unit); $total_distance = distance($my[0], $my[1], $stn[0], $stn[1], $unit);
// Return the distance // Return the distance
return $total_distance; return $total_distance;
} }
@ -72,21 +72,10 @@ cos(deg2rad($theta));
} }
function bearing($lat1, $lon1, $lat2, $lon2, $unit = 'M') { function bearing($lat1, $lon1, $lat2, $lon2, $unit = 'M') {
if (round($lon1, 1) == round($lon2, 1)) { $dist = distance($lat1, $lon1, $lat2, $lon2, $unit);
if ($lat1 < $lat2) { $dist = round($dist, 0);
$bearing = 0;
} else { $bearing = get_bearing($lat1, $lon1, $lat2, $lon2);
$bearing = 180;
}
} else {
$dist = distance($lat1, $lon1, $lat2, $lon2, $unit);
$arad = acos((sin(deg2rad($lat2)) - sin(deg2rad($lat1)) * cos(deg2rad($dist / 60))) / (sin(deg2rad($dist
/ 60)) * cos(deg2rad($lat1))));
$bearing = $arad * 180 / pi();
if (sin(deg2rad($lon2 - $lon1)) < 0) {
$bearing = 360 - $bearing;
}
}
$dirs = array("N","E","S","W"); $dirs = array("N","E","S","W");
@ -99,7 +88,7 @@ function bearing($lat1, $lon1, $lat2, $lon2, $unit = 'M') {
#if ($rounded % 2 == 1) #if ($rounded % 2 == 1)
# $dir = $dirs[round_to_int($rounded/4) % 4] . "-" . $dir; # $dir = $dirs[round_to_int($rounded/4) % 4] . "-" . $dir;
} }
$var_dist = ""; $var_dist = "";
#return $dir; #return $dir;
if (isset($dist)) { if (isset($dist)) {
$var_dist = $dist; $var_dist = $dist;
@ -118,13 +107,17 @@ $var_dist = "";
return round($bearing, 0)."&#186; ".$dir." ".$var_dist; return round($bearing, 0)."&#186; ".$dir." ".$var_dist;
} }
function get_bearing($lat1, $lon1, $lat2, $lon2) {
return (rad2deg(atan2(sin(deg2rad($lon2) - deg2rad($lon1)) * cos(deg2rad($lat2)), cos(deg2rad($lat1)) * sin(deg2rad($lat2)) - sin(deg2rad($lat1)) * cos(deg2rad($lat2)) * cos(deg2rad($lon2) - deg2rad($lon1)))) + 360) % 360;
}
function qra2latlong($strQRA) function qra2latlong($strQRA)
{ {
if (strlen($strQRA) %2 == 0) { if (strlen($strQRA) %2 == 0) {
$strQRA = strtoupper($strQRA); $strQRA = strtoupper($strQRA);
if (strlen($strQRA) == 4) $strQRA .= "MM"; if (strlen($strQRA) == 4) $strQRA .= "MM";
if (!preg_match('/^[A-Z]{2}[0-9]{2}[A-Z]{2}$/',$strQRA)) return false; 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); list($a,$b,$c,$d,$e,$f) = str_split($strQRA,1);
$a = ord($a) - ord('A'); $a = ord($a) - ord('A');
$b = ord($b) - ord('A'); $b = ord($b) - ord('A');