用MATLAB軟件求最短路實例2

用MATLAB軟件求最短路實例2試用MATLAB軟件計算有向圖中v1到v9的最短路。解：w=ones(9);w=inf*w;>>fori=1:9w(i,i)=0;end>>w(1,2)=3;w(1,4)=4;>>w(2,3)=3;w(2,5)=2;w(2,6)=3;>>w(3,9)=5;>>w(4,7)=3;>>w(5,6)=3;>>w(6,9)=1;w(6,7)=1;>>w(7,8)=2;w(7,9)=2;>>w(8,9)=4;>>p=log(8)/log(2)%向上(大的方向)取整p=>>w1=w

w1=03Inf4InfInfInfInfInfInf03Inf23InfInfInfInfInf0InfInfInfInfInf5InfInfInf0InfInf3InfInfInfInfInfInf03InfInfInfInfInfInfInfInf01Inf1InfInfInfInfInfInf022InfInfInfInfInfInfInf04InfInfInfInfInfInfInfInf0>>w2=fld(9,w)w2=0364567InfInfInf03Inf234Inf4InfInf0InfInfInfInfInf5InfInfInf0InfInf355InfInfInfInf034Inf4InfInfInfInfInf0131

InfInfInfInfInfInf022InfInfInfInfInfInfInf04InfInfInfInfInfInfInfInf0>>w3=fld(9,w2)w3=036456797Inf03Inf23464InfInf0InfInfInfInfInf5InfInfInf0InfInf355InfInfInfInf03464InfInfInfInfInf0131InfInfInfInfInfInf022InfInfInfInfInfInfInf04InfInfInfInfInfInfInfInf0function[ci,cj,dij]=stlin(n,i,j,d)%求最短路的路徑ci=d(i,j)-d(i,:);cj=d(:,j)';dij=d(i,j);functiony=fld(n,x) %求最短路forr=1:n

fori=1:nforj=1:np(j)=x(i,j)+x(j,r);endy(r,i)=min(p);endendEditor-C:\ProgramFiles\MATLAB71\WQrk\flFi!eEditTextDesktopWindowHelpD3 ..需嗨念6CaM1functiony=fld(njk)2forr=l:n3fori=l:n4fori=l:n5p(j)=K 乩rj-Send7y(tji)-min(p)：;8end書end10Editor-C:\ProgramFiles\MATLAB71\work\5tlirFileEditTejjt￡ellToolsDebugDesktopWindfunction[ciAcj3dij]=^tlin(n,i,j,-ci=d(i?jJ-dfij:);.3-cj=d:(.:,j)?;4-±Lj=d