<?php
function encludean_method($lat1, $lon1, $lat2, $lon2)
{
$R = 6372.8; // km
$phi = 2.0 * asin($ch / 2.0);
return $R * $phi;
}
var_dump(encludean_method
(36.12, -86.67, 33.94, -118.40)); var_dump(encludean_method
(50.24, 28.68, 50.32, 29.05)); var_dump(encludean_method
(1.5745, 103.6200, 1.5748, 103.6195));
PD9waHAKZnVuY3Rpb24gZW5jbHVkZWFuX21ldGhvZCgkbGF0MSwgJGxvbjEsICRsYXQyLCAkbG9uMikKewoJJFIgPSA2MzcyLjg7IC8vIGttCgoJJGxhdDEgPSBkZWcycmFkKCRsYXQxKTsKCSRsYXQyID0gZGVnMnJhZCgkbGF0Mik7CgkkbG9uMSA9IGRlZzJyYWQoJGxvbjEpOwoJJGxvbjIgPSBkZWcycmFkKCRsb24yKTsKCgkkYSA9IChjb3MoJGxhdDIpICogY29zKCRsb24yKSkgLSAoY29zKCRsYXQxKSAqIGNvcygkbG9uMSkpOwoJJGIgPSAoY29zKCRsYXQyKSAqIHNpbigkbG9uMikpIC0gKGNvcygkbGF0MSkgKiBzaW4oJGxvbjEpKTsKCSRjID0gc2luKCRsYXQyKSAtIHNpbigkbGF0MSk7CgkkY2ggPSBzcXJ0KHBvdygkYSwgMi4wKSArIHBvdygkYiwgMi4wKSArIHBvdygkYywgMi4wKSk7CgkkcGhpID0gMi4wICogYXNpbigkY2ggLyAyLjApOwoKCXJldHVybiAkUiAqICRwaGk7Cn0KCnZhcl9kdW1wKGVuY2x1ZGVhbl9tZXRob2QoMzYuMTIsIC04Ni42NywgMzMuOTQsIC0xMTguNDApKTsKdmFyX2R1bXAoZW5jbHVkZWFuX21ldGhvZCg1MC4yNCwgMjguNjgsIDUwLjMyLCAyOS4wNSkpOwp2YXJfZHVtcChlbmNsdWRlYW5fbWV0aG9kKDEuNTc0NSwgMTAzLjYyMDAsIDEuNTc0OCwgMTAzLjYxOTUpKTs=