Miscellaneous Code

  Home arrow Miscellaneous Code arrow Calculate Distance Between Two ZIP Cod...
MISCELLANEOUS CODE

Calculate Distance Between Two ZIP Codes
By: Codewalkers
  • Search For More Articles!
  • Disclaimer
  • Author Terms
  • Rating: 2 stars2 stars2 stars2 stars2 stars / 6
    2004-07-25

    Table of Contents:

     
     

    SEARCH CODEWALKERS

    TOOLS YOU CAN USE

    advertisement
    Deliver dealer locator/store locator, lead generator, marketing application, or call center solution with this source code to calculate distance between zip codes by using their latitude and longitude.

    By : tgotchi

    #:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    #::: :::
    #::: This routine calculates the distance between two points (given the :::
    #::: latitude/longitude of those points). It is being used to calculate :::
    #::: the distance between two ZIP Codes or Postal Codes using our :::
    #::: ZIPCodeWorld(TM) and PostalCodeWorld(TM) products. :::
    #::: :::
    #::: Definitions: :::
    #::: South latitudes are negative, east longitudes are positive :::
    #::: :::
    #::: Passed to function: :::
    #::: lat1, lon1 = Latitude and Longitude of point 1 (in decimal degrees) :::
    #::: lat2, lon2 = Latitude and Longitude of point 2 (in decimal degrees) :::
    #::: unit = the unit you desire for results :::
    #::: where: 'M' is statute miles :::
    #::: 'K' is kilometers (default) :::
    #::: 'N' is nautical miles :::
    #::: :::
    #::: United States ZIP Code/ Canadian Postal Code databases with latitude :::
    #::: & longitude are available at http://www.zipcodeworld.com :::
    #::: :::
    #::: For enquiries, please contact sales@zipcodeworld.com :::
    #::: :::
    #::: Official Web site: http://www.zipcodeworld.com :::
    #::: :::
    #::: Hexa Software Development Center © All Rights Reserved 2004 :::
    #::: :::
    #:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

    $pi = atan2(1,1) * 4;

    sub distance {
    my ($lat1, $lon1, $lat2, $lon2, $unit) = @_;
    my $theta = $lon1 - $lon2;
    my $dist = sin(deg2rad($lat1)) * sin(deg2rad($lat2)) + cos(deg2rad($lat1)) * cos(deg2rad($lat2)) * cos(deg2rad($theta));
    $dist = acos($dist);
    $dist = rad2deg($dist);
    $dist = $dist * 60 * 1.1515;
    if ($unit eq "K") {
    $dist = $dist * 1.609344;
    } elsif ($unit eq "N") {
    $dist = $dist * 0.8684;
    }
    return ($dist);
    }

    #::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    #::: This function get the arccos function using arctan function :::
    #::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    sub acos {
    my ($rad) = @_;
    my $ret = atan2(sqrt(1 - $rad**2), $rad);
    return $ret;
    }

    #::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    #::: This function converts decimal degrees to radians :::
    #::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    sub deg2rad {
    my ($deg) = @_;
    return ($deg * $pi / 180);
    }

    #::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    #::: This function converts radians to decimal degrees :::
    #::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    sub rad2deg {
    my ($rad) = @_;
    return ($rad * 180 / $pi);
    }

    print distance(32.9697, -96.80322, 29.46786, -98.53506, "M") . " Miles\n";
    print distance(32.9697, -96.80322, 29.46786, -98.53506, "K") . " Kilometers\n";
    print distance(32.9697, -96.80322, 29.46786, -98.53506, "N") . " Nautical Miles\n";
    DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware.

    More Miscellaneous Code Articles
    More By Codewalkers

    blog comments powered by Disqus

    MISCELLANEOUS CODE ARTICLES

    - Creating a Web Page Controller with the HMVC...
    - Coding Controllers and Views for the HMVC De...
    - A Sample Web Application with the HMVC Desig...
    - Adding a Class to Parse Views to an HMVC Des...
    - Building a Model Class for the HMVC Design P...
    - Filtering Input Data and Generating HTML For...
    - The HMVC Design Pattern: Working with MySQL ...
    - Dispatching Requests to MVC Triads with the ...
    - Implementing the Hierarchical Model-View-Con...
    - A Web App Based on a Model for the CodeIgnit...
    - Completing a Model for the CodeIgniter PHP F...
    - Validating Input Data with the CodeIgniter P...
    - Deleting Database Records with the CodeIgnit...
    - Inserting Database Records with a CodeIgnite...
    - Fetching Database Rows with a Model for the ...


    © 2003-2012 by Developer Shed. All rights reserved. DS Cluster 2 - Follow our Sitemap