| Date | Time | Lat | Lon | Depth | Mag | Int | Region | Comment |
|---|---|---|---|---|---|---|---|---|
| 2011/08/22 | 03:15:18.8 | 56.852 | -5.766 | 12.7 | 0.7 | LOCHAILORT,HIGHLAND | ||
| 2011/08/22 | 02:37:46.5 | 56.862 | -5.707 | 12.3 | 0.5 | LOCHAILORT,HIGHLAND | ||
| */ preg_match_all('| | ||||||||
|is',$row)) { continue; }
$quakesFound++;
preg_match_all('|
$quakesFound UK Earthquakes in the last 50 days. Reproduced with the permission of the British Geological Survey © NERC. All rights Reserved. \n"; } else { // --------------- customize HTML if you like ----------------------- print "No UK Earthquakes recorded for the last 50 days. Reproduced with the permission of the British Geological Survey © NERC. All rights Reserved. \n"; } // print footer of page if needed // --------------- customize HTML if you like ----------------------- if (! $tablesOnly ) { ?> "); } // end if else { $xml = ''; fputs($socketConnection, "GET $resourcePath HTTP/1.0\r\nHost: $domain\r\n\r\n"); // Loop until end of file while (!feof($socketConnection)) { $xml .= fgets($socketConnection, 4096); } // end while fclose ($socketConnection); } // end else return($xml); } // end function // ------------ distance calculation function --------------------- //************************************** // // Name: Calculate Distance and Radius u // sing Latitude and Longitude in PHP // Description:This function calculates // the distance between two locations by us // ing latitude and longitude from ZIP code // , postal code or postcode. The result is // available in miles, kilometers or nautic // al miles based on great circle distance // calculation. // By: ZipCodeWorld // //This code is copyrighted and has // limited warranties.Please see http:// // www.Planet-Source-Code.com/vb/scripts/Sh // owCode.asp?txtCodeId=1848&lngWId=8 //for details. //************************************** // /*::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*/ /*:: :*/ /*:: 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:*/ /*:: :*/ /*::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*/ function distance($lat1, $lon1, $lat2, $lon2, $unit) { $theta = $lon1 - $lon2; $dist = sin(deg2rad($lat1)) * sin(deg2rad($lat2)) + cos(deg2rad($lat1)) * cos(deg2rad($lat2)) * cos(deg2rad($theta)); $dist = acos($dist); $dist = rad2deg($dist); $miles = $dist * 60 * 1.1515; $unit = strtoupper($unit); if ($unit == "K") { return ($miles * 1.609344); } else if ($unit == "N") { return ($miles * 0.8684); } else { return $miles; } } //To calculate the delta between the local time and UTC: function tzdelta ( $iTime = 0 ) { if ( 0 == $iTime ) { $iTime = time(); } $ar = localtime ( $iTime ); $ar[5] += 1900; $ar[4]++; $iTztime = gmmktime ( $ar[2], $ar[1], $ar[0], $ar[4], $ar[3], $ar[5], $ar[8] ); return ( $iTztime - $iTime ); } // --------------end of functions --------------------------------------- ?> |