Public_Tools/wavelog
2
0
Fork 0
mirror of https://github.com/wavelog/wavelog.git synced 2026-03-22 10:24:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

[Mapping] calculate midpoint of multi grids for markers

Browse Source
This commit is contained in:
Peter Goodhall
2022-04-04 15:15:24 +01:00
parent f113d1c17b
commit 0eb2b6043e
4 changed files with 143 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
application/libraries/Qra.php
View File

@@ -70,6 +70,46 @@ class Qra {
$stn = qra2latlong($rx);
return get_bearing($my[0], $my[1], $stn[0], $stn[1]);
}
/*
Find the Midpoint between two gridsquares using lat / long
Needs following passed
$coords[]=array('lat' => '53.344104','lng'=>'-6.2674937');
$coords[]=array('lat' => '51.5081289','lng'=>'-0.128005');
*/
function get_midpoint($coords)
{
$count_coords = count($coords);
$xcos=0.0;
$ycos=0.0;
$zsin=0.0;
foreach ($coords as $lnglat)
{
$lat = $lnglat['lat'] * pi() / 180;
$lon = $lnglat['lng'] * pi() / 180;
$acos = cos($lat) * cos($lon);
$bcos = cos($lat) * sin($lon);
$csin = sin($lat);
$xcos += $acos;
$ycos += $bcos;
$zsin += $csin;
}
$xcos /= $count_coords;
$ycos /= $count_coords;
$zsin /= $count_coords;
$lon = atan2($ycos, $xcos);
$sqrt = sqrt($xcos * $xcos + $ycos * $ycos);
$lat = atan2($zsin, $sqrt);
return array($lat * 180 / pi(), $lon * 180 / pi());
}
}
function distance($lat1, $lon1, $lat2, $lon2, $unit = 'M') {
@@ -158,4 +198,6 @@ function qra2latlong($strQRA) {
return array(0, 0);
}
}
/* End of file Qra.php */