Eu estava trabalhando no problema da caixa delimitadora como uma questão secundária para encontrar todos os pontos dentro do raio SrcRad de um ponto LAT, LONG estático. Existem alguns cálculos que usam
maxLon = $lon + rad2deg($rad/$R/cos(deg2rad($lat)));
minLon = $lon - rad2deg($rad/$R/cos(deg2rad($lat)));
para calcular os limites de longitude, mas descobri que isso não dá todas as respostas necessárias. Porque o que você realmente quer fazer é
(SrcRad/RadEarth)/cos(deg2rad(lat))
Eu sei, eu sei que a resposta deveria ser a mesma, mas descobri que não era. Parecia que por não ter certeza de que estava fazendo o (SRCrad / RadEarth) primeiro e depois dividindo pela parte Cos, eu estava deixando de fora alguns pontos de localização.
Depois de obter todos os pontos da caixa delimitadora, se você tiver uma função que calcula a distância ponto a ponto dada lat, é fácil obter apenas os pontos que estão a um determinado raio de distância do ponto fixo. Aqui está o que eu fiz. Eu sei que foram necessários alguns passos extras, mas me ajudaram
-- GLOBAL Constants
gc_pi CONSTANT REAL := 3.14159265359; -- Pi
-- Conversion Factor Constants
gc_rad_to_degs CONSTANT NUMBER := 180/gc_pi; -- Conversion for Radians to Degrees 180/pi
gc_deg_to_rads CONSTANT NUMBER := gc_pi/180; --Conversion of Degrees to Radians
lv_stat_lat -- The static latitude point that I am searching from
lv_stat_long -- The static longitude point that I am searching from
-- Angular radius ratio in radians
lv_ang_radius := lv_search_radius / lv_earth_radius;
lv_bb_maxlat := lv_stat_lat + (gc_rad_to_deg * lv_ang_radius);
lv_bb_minlat := lv_stat_lat - (gc_rad_to_deg * lv_ang_radius);
--Here's the tricky part, accounting for the Longitude getting smaller as we move up the latitiude scale
-- I seperated the parts of the equation to make it easier to debug and understand
-- I may not be a smart man but I know what the right answer is... :-)
lv_int_calc := gc_deg_to_rads * lv_stat_lat;
lv_int_calc := COS(lv_int_calc);
lv_int_calc := lv_ang_radius/lv_int_calc;
lv_int_calc := gc_rad_to_degs*lv_int_calc;
lv_bb_maxlong := lv_stat_long + lv_int_calc;
lv_bb_minlong := lv_stat_long - lv_int_calc;
-- Now select the values from your location datatable
SELECT * FROM (
SELECT cityaliasname, city, state, zipcode, latitude, longitude,
-- The actual distance in miles
spherecos_pnttopntdist(lv_stat_lat, lv_stat_long, latitude, longitude, 'M') as miles_dist
FROM Location_Table
WHERE latitude between lv_bb_minlat AND lv_bb_maxlat
AND longitude between lv_bb_minlong and lv_bb_maxlong)
WHERE miles_dist <= lv_limit_distance_miles
order by miles_dist
;