function [distance,path]=zuiduanlujing(D,start1,terminal);
%求帶便函數(shù)權(quán)值的最短路徑
%嵌套調(diào)用函數(shù)
[B,F]=datainfun; ? ?%獲得路段距離和公路鐵路性質(zhì)數(shù)據(jù)數(shù)據(jù)
for k=1:7
? ? 39+k
? ? for t=1:15
start1=39+k;
terminal=t;
D=B; ? ?% 賦值
%function [d,EE]=dijkstra(D,start1,end)
[m,n]=size(D);
path=[];
d=inf.*ones(1,m);
d(1,start1)=0; ? %用以標(biāo)記此刻各頂點(diǎn)離集合距離，初始為inf
dd=zeros(1,m); ?%標(biāo)記頂點(diǎn)集合，初始為零
dd(1,start1)=1; ?
ind=zeros(1,m); ? %給逆向路徑數(shù)組
y=start1;
length1=zeros(1,m); ?%定義初始的各位置的路徑長度（包含運(yùn)輸費(fèi)用的計(jì)算）
%DD=zeros(m,m);
%DD(y,y)=1;
time=0;
while length(find(dd==1))<m ?%當(dāng)集合未包含所有的頂點(diǎn)時(shí)
? ? for i=1:m ? %以y為起始點(diǎn)時(shí)更新d（i）
? ? ? ? if dd(i)==0 ?
? ? ? ? ? ? temp=length1(i); ? %記錄此長度值
? ? ? ? ? ? if(F(y,i)==1)
? ? ? ? ? ? ? ? length1(i)=length1(y)+B(y,i); %計(jì)算長度
? ? ? ? ? ? else
? ? ? ? ? ? ? ? length1(i)=0; ? ?%鐵路運(yùn)輸結(jié)束
? ? ? ? ? ? end
? ? ? ? ? ? t=d(i); %標(biāo)記記錄
? ? ? ? ? ? % volum=(d(y)-fun(length(y))); %就算公路段前的運(yùn)輸費(fèi)
? ? ? ? ? ? d(i)=min(d(i),fun(length1(i)).*F(y,i)+(d(y)-fun(length1(y))*F(y,i))+D(y,i)*~F(y,i)); ?%更新tag，包含多方面
? ? ? ? ? ? if(t>d(i)) ?%若變化后d(i)值小于原來值
? ? ? ? ? ? ? ? ind(i)=y; ? %最短路徑的前一節(jié)點(diǎn)?
? ? ? ? ? ? else
? ? ? ? ? ? ? ? length1(i)=temp; ? ?%恢復(fù)長度
? ? ? ? ? ? end
? ? ? ? end
? ? end
? ? ddd=inf;
? ? for i=1:m
? ? ? ? if dd(i)==0&&d(i)<ddd ?%需要記錄所有值
? ? ? ? ? ? ddd=d(i); ? %有多個(gè)點(diǎn)時(shí)，取最后一個(gè)
? ? ? ? ? ? yy=i;
? ? ? ? end
? ? end
? ? %yy=find(d==ddd); ? ?%找到這樣點(diǎn)的坐標(biāo)
? ?% counter=counter+1;
? ? %DD(y,yy(1,1))=counter;
? ? %DD(yy(1,1),y)=counter;
? ? y=yy;
? ? dd(1,y)=1;

end
here1=terminal;
? ? while 1 %用于輸出路徑
? ? ? ? path(end+1)=terminal;
? ? if ind(terminal)~=0
? ? ? ? terminal=ind(terminal);
? ? else
? ? ? ? break;
? ? end
? ? end
? ? path=fliplr(path); ? %正序輸出最短路徑
? ??
? ? distance=d(here1)
? ? end
end
end

總結(jié)

以上是生活随笔為你收集整理的求带便函数权值的最短路径的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。