0001 function d = haversine(x, y) 0002 numQueries = size(y, 1); 0003 0004 arclen = distance(repmat(x, numQueries, 1), y); 0005 d = deg2km(arclen)/1000; 0006 end