-
大小: 14.36MB文件類型: .rar金幣: 1下載: 0 次發(fā)布日期: 2023-07-25
- 語言: 其他
- 標(biāo)簽: 數(shù)學(xué)建模??
資源簡介
該程序利用迪杰斯特拉算法經(jīng)行求解,使用該代碼前最好先閱讀Readme.doc
代碼片段和文件信息
%該程序用于讀取原始數(shù)據(jù)
%讀取公汽線路的原始數(shù)據(jù)
%Pant_no中保存了
%線路編號;
%線路的票價(jià)方式(1表示單一票價(jià),2表示分段計(jì)價(jià));
%線路的方式(3表示上行,4表示下行,5表示環(huán)形,6表示上行和下行一樣的)
%Path_num中保存了每條線路兩個(gè)線路的站點(diǎn)個(gè)數(shù)
%Path_states中保存了每條線路的站點(diǎn)號和順序
data_gj?=?xlsread(‘E:\代碼\data_gongjiao.xls‘‘Sheet2‘‘A1:CI2080‘);
%篩選數(shù)據(jù)
[xy]?=?size(data_gj);
Path_no?=?zeros(x/43);
%求線路信息
%上行3,下行4,環(huán)形5,上下一樣的6,單一票價(jià)1,分段計(jì)價(jià)2
for?i?=?1:x/4
????Path_no(i1)?=?data_gj((i-1)*4+11);%保存線路編號
????Path_no(i2)?=?data_gj((i-1)*4+21);%保存計(jì)費(fèi)方式
????if?data_gj((i-1)*4+31)?>?5
????????Path_no(i3)?=?6;%上行和下行一樣的情況,用6表示
????else
????????Path_no(i3)?=?data_gj((i-1)*4+31);%保存行駛方式
????end
end
%求每條線路的站點(diǎn)順序
Path_states?=?zeros(2*x/4y);%保存對應(yīng)線路所經(jīng)過的站點(diǎn)
for?i?=?1:x/4
????if?data_gj((i-1)*4+31)?>?5%如果沒有標(biāo)志,表示是上行和下行相同的
????????Path_states((i-1)*2+1:)?=?data_gj((i-1)*4+3:);
????????Path_states((i-1)*2+2:)?=?data_gj((i-1)*4+3:);%順序倒置
????????count?=?0;
????????for?k?=?1:y
????????????if?Path_states((i-1)*2+2k)?<=?10000
????????????????count?=?count?+?1;
????????????end
????????end
????????if?mod(count2)?==?0
????????????for?j?=?1:count/2
????????????????temp?=?Path_states((i-1)*2+2j);
????????????????Path_states((i-1)*2+2j)?=?Path_states((i-1)*2+2count?-?j);
????????????????Path_states((i-1)*2+2count?-?j)?=?temp;
????????????end
????????else
????????????for?j?=?1:(count-1)/2???????????????????????????????%*************************(count/2)-1
????????????????temp?=?Path_states((i-1)*2+2j);
????????????????Path_states((i-1)*2+2j)?=?Path_states((i-1)*2+2count-j+1);
????????????????Path_states((i-1)*2+2count-j+1)?=?temp;
????????????end
????????end
????end
????if?data_gj((i-1)*4+31)?==?3%等于3表示上行的
????????Path_states((i-1)*2+11:end-1)?=?data_gj((i-1)*4+32:end);
????????Path_states((i-1)*2+21:end-1)?=?data_gj((i-1)*4+42:end);?
????????Path_states((i-1)*2+1end)?=?NaN;
????????Path_states((i-1)*2+2end)?=?NaN;
????end
????if?data_gj((i-1)*4+31)?==?5%表示環(huán)形的
????????Path_states((i-1)*2+11:end-1)?=?data_gj((i-1)*4+32:end);
????????Path_states((i-1)*2+21:end-1)?=?data_gj((i-1)*4+42:end);
????????Path_states((i-1)*2+1end)?=?NaN;
????????Path_states((i-1)*2+2end)?=?NaN;?
????end
end
%求每條線路上的站點(diǎn)數(shù)
Path_num?=?zeros(2*x/41);%保存每條線路的站點(diǎn)數(shù)
for?i?=?1:x/4
????count1?=?0;
????count2?=?0;
????for?k?=?1:y
????????if?Path_states((i-1)*2+1k)?<=?10000
????????????count1?=?count1?+?1;
????????end
????????if?Path_states((i-1)*2+2k)?<=?10000
????????????count2?=?count2?+?1;
????????end
????end
????Path_num((i-1)*2+1)?=?count1;
????Path_num((i-1)*2+2)?=?count2;
end
%讀取地鐵線路的原始數(shù)據(jù)
%T_num保存每條地鐵線路的站點(diǎn)數(shù)和地鐵編號
%T_states保存每條地鐵線路的站點(diǎn)
%D1保存T1地鐵站和公汽站的關(guān)系
%D2保存T2地鐵站和公汽站的關(guān)系
%D1_num保存T1每個(gè)地鐵站對應(yīng)的公汽站數(shù)
%D2_num保存T2每個(gè)地鐵站對應(yīng)的公汽站數(shù)
D1?=?xlsread(‘E:\代碼\data_gongjiao.xls‘‘Sheet3‘‘A1:F23‘);
D2?=?xlsread(‘E:\代碼\data_gongjiao.xls‘‘Sheet3‘‘A25:F42‘);
%對地鐵數(shù)據(jù)進(jìn)行處理
T_states(1:)?=?D1(:1)‘;%第一列為地鐵1號線路
T1?=?T_states(1:);
if?mod(length(T1)2)?==?0
????for?i?=?1:length(T1)/2
????????temp?=?T1(i);
????????T1(i)?=?T1(l
?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????文件???????4610??2011-08-22?05:23??25組程序包\data_gongjiao.m
?????文件?????257024??2011-08-21?10:18??25組程序包\data_gongjiao.xls
?????文件????9154161??2011-08-21?23:15??25組程序包\data_question_1.mat
?????文件????9580921??2011-08-21?22:17??25組程序包\data_question_2.mat
?????文件????????731??2011-08-22?00:27??25組程序包\decide.m
?????文件???????3488??2011-08-21?08:26??25組程序包\Dijkstra.m
?????文件????????741??2011-08-21?08:26??25組程序包\Floyd.m
?????文件????????296??2011-08-21?23:40??25組程序包\getOrder.m
?????文件????????408??2011-08-21?20:32??25組程序包\getResult.m
?????文件???????2458??2011-08-21?08:26??25組程序包\Min_data.m
?????文件???????2852??2011-08-21?22:05??25組程序包\model1_quanzhong.m
?????文件??????10078??2011-08-22?05:36??25組程序包\model2_quanzhong.m
?????文件????????921??2011-08-21?23:26??25組程序包\model_solve.m
?????文件??????38912??2011-08-22?05:23??25組程序包\Readme.doc
?????文件???????2713??2011-08-21?08:26??25組程序包\ShortestPath_Djk.m
?????文件????????658??2011-08-22?00:25??25組程序包\xuhao.m
?????目錄??????????0??2011-08-22?05:23??25組程序包
-----------?---------??----------?-----??----
?????????????19060972????????????????????17
- 上一篇:mac osx 飛秋
- 下一篇:超炫火柴人動畫PPT
評論
共有 條評論