Anonymous user
Haversine formula: Difference between revisions
→{{header|MATLAB}} / {{header|Octave}}: Made Matlab / Octave imlementation "matrix friendly" as per Matlab coding conventions
(added FunL) |
(→{{header|MATLAB}} / {{header|Octave}}: Made Matlab / Octave imlementation "matrix friendly" as per Matlab coding conventions) |
||
Line 711:
<lang Matlab>function rad = radians(degree)
function rad = radians(degree)
% degrees to radians
rad = degree .* pi / 180;
end;
Line 721 ⟶ 722:
lat1 = radians(lat1);
lat2 = radians(lat2);
a = (sin(dlat./2)).^2 + cos(lat1) .* cos(lat2) .* (sin(dlon./2)).^2;
c = 2 .* asin(sqrt(a));
arrayfun(@(x) printf("distance: %.4f km\n",6372.8 * x), c);
end;
[a,c,dlat,dlon] = haversine(36.12,-86.67,33.94,-118.40); % BNA to LAX</lang>
| |||