CFLib.org – getHaversineDistance

getHaversineDistance(lat1, lon1, lat2, lon2 [, units])

Last updated March 13, 2011

author

Version: 0 | Requires: ColdFusion 5 | Library: CFMLLib

Rated 1 time(s). Average Rating: 5.0

Description:
Calculates distance between Latitude/Longitude points using haversine formula : http://www.movable-type.co.uk/scripts/latlong.html

Return Values:
Returns numeric distance between the two points. Units varies, default is miles.

Example:

view plain print about

#getDistance(1, 1, 2, 2)#

#getDistance(1, 1, 2, 2)#

Parameters:

Name	Description	Required
lat1	latitude of first point	Yes
lon1	longitude of first point	Yes
lat2	latitude of second point	Yes
lon2	longitude of second point	Yes
units	Units for return value. Default is miles.	No

Full UDF Source:

	
	
			
			
			
				
				view plain
				
				
				copy to clipboard
				
				
				
				
				print
				
				
				about
				ColdFISH is developed by Jason Delmore.  Source code and license information available at coldfish.riaforge.org.  Version 3.1.1
				
			<cfscript>
/**
 * Calculates distance between Latitude/Longitude points using haversine formula.
 * 
 * @param lat1 	 latitude of first point (Required)
 * @param lon1 	 longitude of first point (Required)
 * @param lat2 	 latitude of second point (Required)
 * @param lon2 	 longitude of second point (Required)
 * @param units 	 Units for return value. Default is miles. (Optional)
 * @return Returns numeric distance between the two points. Units varies, default is miles. 
 * @author Henry Ho (&#104;&#101;&#110;&#114;&#121;&#104;&#111;&#49;&#54;&#55;&#64;&#103;&#109;&#97;&#105;&#108;&#46;&#99;&#111;&#109;) 
 * @version 0, March 13, 2011 
 */
function getDistance(lat1, lon1, lat2, lon2, units = 'miles')
{
	// earth's radius. Default is miles.
	var radius = 3959;
	if (arguments.units EQ 'kilometers' )
		radius = 6371;
	else if (arguments.units EQ 'feet')
		radius = 20903520;
	
	var toRad = pi() / 180;
	var dLat = (lat2-lat1) * toRad;
	var dLon = (lon2-lon1) * toRad; 
	var a = sin(dLat/2)^2 + cos(lat1 * toRad) * cos(lat2 * toRad) * sin(dLon/2)^2; 
	var c = 2 * createObject("java","java.lang.Math").atan2(sqr(a), sqr(1-a));
	
	return radius * c;
}
</cfscript>
		<cfscript>
/**
 * Calculates distance between Latitude/Longitude points using haversine formula.
 * 
 * @param lat1      latitude of first point (Required)
 * @param lon1      longitude of first point (Required)
 * @param lat2      latitude of second point (Required)
 * @param lon2      longitude of second point (Required)
 * @param units      Units for return value. Default is miles. (Optional)
 * @return Returns numeric distance between the two points. Units varies, default is miles. 
 * @author Henry Ho (henryho167@gmail.com) 
 * @version 0, March 13, 2011 
 */
function getDistance(lat1, lon1, lat2, lon2, units = 'miles')
{
    // earth's radius. Default is miles.
    var radius = 3959;
    if (arguments.units EQ 'kilometers' )
        radius = 6371;
    else if (arguments.units EQ 'feet')
        radius = 20903520;
    
    var toRad = pi() / 180;
    var dLat = (lat2-lat1) * toRad;
    var dLon = (lon2-lon1) * toRad; 
    var a = sin(dLat/2)^2 + cos(lat1 * toRad) * cos(lat2 * toRad) * sin(dLon/2)^2; 
    var c = 2 * createObject("java","java.lang.Math").atan2(sqr(a), sqr(1-a));
    
    return radius * c;
}
</cfscript>