$radius = (double) $radius;
if ($radius < 0 || $radius > 25) {
$json['error'] = 'Значение радиуса поиска должно лежать в диапазоне (0;25]';
break;
}
$lat_km = 111.143 - 0.5620000000000001 * cos(2 * deg2rad($lat));
$lon_km = abs(111.321 * cos(deg2rad($lon)) - 0.094 * cos(3 * deg2rad($lon)));
$lat1 = min(max($lat - $radius / $lat_km, -90), 90);
$lat2 = min(max($lat + $radius / $lat_km, -90), 90);
$lon1 = min(max($lon - $radius / $lon_km, -180), 180);
$lon2 = min(max($lon + $radius / $lon_km, -180), 180);
$tile_x1 = lon_to_tile_x($lon1, 7);
$tile_y1 = lat_to_tile_y($lat2, 7);
$tile_x2 = lon_to_tile_x($lon2, 7);
$tile_y2 = lat_to_tile_y($lat1, 7);
$quadkeys = get_quadkeys_for_tiles($tile_x1, $tile_y1, $tile_x2, $tile_y2, 7);
$quadkeys = '(' . implode(',', array_map(function ($x) {
return base_convert($x, 2, 10);
}, $quadkeys)) . ')';
$json['data'] = array();
if (!db_connect()) {
$json['result'] = false;
$json['error'] = 'database';
break;
}
if ($res = QuerySql("SELECT DISTINCT IP FROM \n\t\t(SELECT IP \n\t\tFROM `BASE_TABLE`, `GEO_TABLE` \n\t\tWHERE (`GEO_TABLE`.`quadkey` >> 32) IN {$quadkeys} AND\n\t\t\t\t`BASE_TABLE`.`BSSID` = `GEO_TABLE`.`BSSID` \n\t\t\t\tAND (`GEO_TABLE`.`quadkey` IS NOT NULL) \n\t\t\t\tAND (`GEO_TABLE`.`latitude` BETWEEN {$lat1} AND {$lat2} AND `GEO_TABLE`.`longitude` BETWEEN {$lon1} AND {$lon2}) \n\t\t\t\tAND (IP != 0 AND IP != -1) \n\t\tUNION SELECT WANIP \n\t\tFROM `BASE_TABLE`, `GEO_TABLE` \n\t\tWHERE (`GEO_TABLE`.`quadkey` >> 32) IN {$quadkeys} AND\n\t\t\t\t`BASE_TABLE`.`BSSID` = `GEO_TABLE`.`BSSID` \n\t\t\t\tAND (`GEO_TABLE`.`quadkey` IS NOT NULL) \n\t\t\t\tAND (`GEO_TABLE`.`latitude` BETWEEN {$lat1} AND {$lat2} AND `GEO_TABLE`.`longitude` BETWEEN {$lon1} AND {$lon2}) \n\t\t\t\tAND (WANIP != 0 AND WANIP != -1)\n\t\t) IPTable ORDER BY CAST(IP AS UNSIGNED INTEGER)")) {
}
require 'ipext.php';
$last_upper = 0;
while ($row = $res->fetch_row()) {
$ip = (int) $row[0];
/**
* Get clusters for the specified tiles.
*
* @param object $db Object which represents the connection to a MySQL Server.
* @param int $tile_x1 X coordinate of the upper left tile.
* @param int $tile_y1 Y coordinate of the upper left tile.
* @param int $tile_x2 X coordinate of the bottom right tile
* @param int $tile_y2 Y coordinate of the bottom right tile
* @param int $zoom Level of detail
* @param bool $scatter Don't clusterize on large zoom
* @return array Rerutn array of clusters: [quadkey => cluster], where cluster
* is array ['count' => (int), 'lat' => (float), 'lon' => (float)/, bssids => []/]
*/
function get_clusters($db, $tile_x1, $tile_y1, $tile_x2, $tile_y2, $zoom, $scatter)
{
$quadkeys = get_quadkeys_for_tiles($tile_x1, $tile_y1, $tile_x2, $tile_y2, $zoom);
$clusters = array();
if ($scatter && $zoom >= MAX_YANDEX_ZOOM - 1) {
$group_level = MAX_ZOOM_LEVEL;
$fetch_all = true;
} else {
$group_level = $zoom + 2;
$fetch_all = $zoom >= MAX_YANDEX_ZOOM;
}
foreach ($quadkeys as $quadkey) {
$clusters += find_clusters_on_quadkey($db, $quadkey, $group_level, $fetch_all);
}
return $clusters;
}
