http://qs321.pair.com?node_id=835310


in reply to Re: Re: Zipcode Proximity script
in thread Zipcode Proximity script

instead of my $maxlatdiff = atan2(sqrt(1 - ($distcos * $distcos)), $distcos); you could do
use Math::Trig; my $maxlatdiff = acos($distcos);