Distance and Bearing: Difference between revisions

my(D = vector(#M[,1]), R = matrix(r+1, 5));

R[1,1] = "NAME"; R[1,2] = "COUNTRY"; R[1,3] = "ICAO"; R[1,4] = "DISTANCE"; R[1,5] = "BEARING";

for(i = 1, #M[,1],

D[i] = [distance(lat, lon, M[i,7], M[i,8], unit) , i];

R[i+1,1] = M[D[i][2],2]; R[i+1,2] = M[D[i][2],4]; R[i+1,3] = M[D[i][2],6];

R[i+1,4] = D[i][1]; R[i+1,5] = bearing(lat, lon, M[D[i][2],7], M[D[i][2],8]);

);

}

request(51.514669, 2.198581)</syntaxhighlight>

{{out}}

cpu time = 183 ms, real time = 183 ms.</pre>

=={{header|Phix}}==

<!--<syntaxhighlight lang="phix">(notonline)-->