RosettaCodeData/Task/Haversine-formula/Symsyn/haversine-formula.symsyn
2023-07-01 13:44:08 -04:00

21 lines
347 B
Text

lat1 : 36.12
lon1 : -86.67
lat2 : 33.94
lon2 : -118.4
dx : 0.
dy : 0.
dz : 0.
kms : 0.
{degtorad(lon2 - lon1)} lon1
{degtorad lat1} lat1
{degtorad lat2} lat2
{sin lat1 - sin lat2} dz
{cos lon1 * cos lat1 - cos lat2} dx
{sin lon1 * cos lat1} dy
{arcsin(sqrt(dx^2 + dy^2 + dz^2)/2) * 12745.6} kms
"'Haversine distance: ' kms ' kms'" []