Re: Radius-Based Zip Locator
This WebDNA talk-list message is from 2005
It keeps the original formatting.
numero = 61850
interpreted = N
texte = Actually, WebDNA has a [math] fuction to convert to radians: rad(number) On 4/22/05 10:12 AM, "kalin mintchev"
wrote: > here is a php function that works just fine for locators. you just filter > the distances you want - 10m, 20m, etc... > > the only thing is you have to find a formula to convert degrees to radius > in wc - the deg2rad() function in php is doing that here. there must be a > formula somewhere on wikipedia how to do that. > > here is the code: > > function decimal_distance($lat1,$lon1,$lat2,$lon2) > { > //$radius is determined using the following formula > //(360 degrees)*(60 minutes per degree)*(1.852) km per minute > //give a circumference of 40003.2 km > //radius is circumference/(2*pi) which gives us 6637km or 3956miles > $radius=3956; > //$radius=3958.75; > $lat1 = deg2rad ($lat1); > $lat2 = deg2rad ($lat2); > $lon1 = deg2rad ($lon1); > $lon2 = deg2rad ($lon2); > > //Haversine Formula (from R.W. Sinnott, "Virtues of the Haversine", > //Sky and Telescope, vol. 68, no. 2, 1984, p. 159): > > $dlon=$lon2-$lon1; > $dlat=$lat2-$lat1; > $sinlat=sin($dlat/2); > $sinlon=sin($dlon/2); > $a=($sinlat*$sinlat)+cos($lat1)*cos($lat2)*($sinlon*$sinlon); > > $c=2*asin(min(1,sqrt($a))); > > $d=$radius*$c; > > > // > return round($d,2); > } ------------------------------------------------------------- This message is sent to you because you are subscribed to the mailing list . To unsubscribe, E-mail to: To switch to the DIGEST mode, E-mail to Web Archive of this list is at: http://webdna.smithmicro.com/
Associated Messages, from the most recent to the oldest:
Actually, WebDNA has a [math] fuction to convert to radians: rad(number) On 4/22/05 10:12 AM, "kalin mintchev" wrote: > here is a php function that works just fine for locators. you just filter > the distances you want - 10m, 20m, etc... > > the only thing is you have to find a formula to convert degrees to radius > in wc - the deg2rad() function in php is doing that here. there must be a > formula somewhere on wikipedia how to do that. > > here is the code: > > function decimal_distance($lat1,$lon1,$lat2,$lon2) > { > //$radius is determined using the following formula > //(360 degrees)*(60 minutes per degree)*(1.852) km per minute > //give a circumference of 40003.2 km > //radius is circumference/(2*pi) which gives us 6637km or 3956miles > $radius=3956; > //$radius=3958.75; > $lat1 = deg2rad ($lat1); > $lat2 = deg2rad ($lat2); > $lon1 = deg2rad ($lon1); > $lon2 = deg2rad ($lon2); > > //Haversine Formula (from R.W. Sinnott, "Virtues of the Haversine", > //Sky and Telescope, vol. 68, no. 2, 1984, p. 159): > > $dlon=$lon2-$lon1; > $dlat=$lat2-$lat1; > $sinlat=sin($dlat/2); > $sinlon=sin($dlon/2); > $a=($sinlat*$sinlat)+cos($lat1)*cos($lat2)*($sinlon*$sinlon); > > $c=2*asin(min(1,sqrt($a))); > > $d=$radius*$c; > > > // > return round($d,2); > } ------------------------------------------------------------- This message is sent to you because you are subscribed to the mailing list . To unsubscribe, E-mail to: To switch to the DIGEST mode, E-mail to Web Archive of this list is at: http://webdna.smithmicro.com/
Clint Davis
DOWNLOAD WEBDNA NOW!
Top Articles:
Talk List
The WebDNA community talk-list is the best place to get some help: several hundred extremely proficient programmers with an excellent knowledge of WebDNA and an excellent spirit will deliver all the tips and tricks you can imagine...
Related Readings:
Frames and WebCat (1997)
can WC render sites out? (1997)
ReturnRaw context (1997)
Re:Part 2 - [showif] if variable exists (1998)
Discount solution? (1998)
Bug Report, maybe (1997)
For those of you not on the WebCatalog Beta... (1997)
How about this? (1998)
won't serve .tpl (2000)
Extended [ConvertChars] (1997)
Error, 101 a DNS problem ? (1997)
Anyone using [sendmail] for HTML encoded mail? (2000)
Ok here is a question? (1997)
Browser frames and URLs in the Location field (2004)
Remove a Field from a DB (2007)
Moving Files (2000)
Locking up with WebCatalog... (1997)
Further tests with the infamous shipCost (1997)
WebCat2b13MacPlugIn - more [date] problems (1997)
creator code (1997)