matlab里有没有现成的floyd函数

最短路函数代码如下
function [D R]=floyd(a)
D=a
n=size(D,1)
for i=1:n
for j=1:n
R[i,j]=j
end
end
for k=1:n
for i=1:n
for j=1:n