Jump to content

[SOLVED] Stored Procedure


The Little Guy

Recommended Posts

The Procedure:

CREATE DEFINER=`murdercup`@`%` PROCEDURE `GetNearbyZipCodes`(
    zipbase  varchar (6),  
    `range`  numeric (15)
)
BEGIN  
DECLARE  lat1  decimal (5,2);  
DECLARE  long1  decimal (5,2);  
DECLARE  rangeFactor  decimal (7,6);  
SET  rangeFactor = 0.014457;  
SELECT  `lat`,`log`  into  lat1,long1  FROM  zipCodes  WHERE  zip = zipbase;
SELECT  B.zip  
FROM  zipCodes  AS  B
WHERE    
B.`lat`  BETWEEN  lat1-(`range`*rangeFactor)  AND  lat1+(`range`*rangeFactor)
  AND  B.`log`  BETWEEN  long1-(`range`*rangeFactor)  AND  long1+(`range`*rangeFactor)
  AND  GetDistance(lat1,long1,B.`lat`,B.`log`)  <= `range`;
END

 

 

The function:

CREATE DEFINER=`murdercup`@`%` FUNCTION `GetDistance`(lat1  numeric (9,6),
lon1  numeric (9,6),  
lat2  numeric (9,6),
lon2  numeric (9,6)  ) RETURNS decimal(10,5)
BEGIN  
  DECLARE  x  decimal (20,10);
  DECLARE  pi  decimal (21,20);  
  SET  pi = 3.14159265358979323846;  
  SET  x = sin( lat1 * pi/180 ) * sin( lat2 * pi/180  ) + cos(  
lat1 *pi/180 ) * cos( lat2 * pi/180 ) * cos( (lon2 * pi/180) -
(lon1 *pi/180)  );
  SET  x = atan( ( sqrt( 1- power( x, 2 ) ) ) / x );
  RETURN  ( 1.852 * 60.0 * ((x/pi)*180) ) / 1.609344;
END

Link to comment
Share on other sites

This thread is more than a year old. Please don't revive it unless you have something important to add.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.