公交查询系统的最佳乘车方案研究与设计(6)

a2=changeBus1(DM,startP,endP); a3=changeBus2(DM,startP,endP); a1k=[]; if size(a1(1,:),2)>=2 a1k=[ones(size(a1,1),1),[1:size(a1,1)]',cell2mat(a1(:,2))]; end a2k=[]; if size(a2,2)>=2 a2k=[ones(size(a2,1),1)+1,[1:size(a2,1)]',cell2mat(a2(:,5))]; end a3k=[ones(size(a3,1),1)+2,[1:size(a3,1)]',cell2mat(a3(:,8))]; ?k ￠k ￡k if size(a1k,1)==0&&size(a2k,1)==0 ak=[a3k]; end if size(a1k,1)==0&&size(a2k,1)~=0 ak=[a2k;a3k]; end if size(a1k,1)~0 ak=[a1k;a2k;a3k]; end ak=sortrows(ak,3); if size(ak,1)>=21 ak=ak(1:20,:); end for i=1:size(ak,1) sizea=size(a,1); if ak(i,1)==1 a(sizea+1,:)={a1{ak(i,2),1},a1{ak(i,2),2},a1{ak(i,2),3},0,0,0,0,0,0}; continue; end if ak(i,1)==2 a(sizea+1,:)={a2{ak(i,2),1},a2{ak(i,2),2},a2{ak(i,2),3},a2{ak(i,2),4},a2{ak(i,2),5},a2{ak(i,2),6},0,0,0}; continue; end if ak(i,1)==3 a(sizea+1,:)={a3{ak(i,2),1},a3{ak(i,2),2},a3{ak(i,2),3},a3{ak(i,2),4},a3{ak(i,2),5},a3{ak(i,2),6},a3{ak(i,2),7},a3{ak(i,2),8},a3{ak(i,2),9}}; continue; end end strategy3.m%策略3（第一问） %策略3，优先考虑转乘次数，最后考虑费用,再考虑时间 function a=strategy3(DM,startP,endP) a={}; if size(DM{startP,endP},1)~=0 a=DM{startP,endP}; a=sortrows(a,3); if size(a,1)>=20 a=a(1:20,:); end end if size(DM{startP,endP},1)==0&&size(changeBus1(DM,startP,endP),1)~=0 a=changeBus1(DM,startP,endP); a=sortrows(a,6); for i=2:size(a,1) kkk=size(a,1); if a{i-1,6}~=a{i,6} kkk=i; break; end end a=a(1:kkk,:); a=sortrows(a,5); if size(a,1)>=20 a=a(1:20,:); end end if size(DM{startP,endP},1)==0&&size(changeBus1(DM,startP,endP),1)==0 a=changeBus2(DM,startP,endP); a=sortrows(a,9); kkk=size(a,1); for i=2:size(a,1) if a{i-1,9}~=a{i,9} kkk=i; break; end end a=a(1:kkk,:); a=sortrows(a,8); if size(a,1)>=20 a=a(1:20,:); end end Main.m%例子程序 clc %以策略1为例，其实站点为3359，终点为1828，请自行修改数据 a=strategy1(DM,3359,1828)

附录三： 地铁到公交站.txt%第二问用到的导入数据 01 0567 0042 0025 02 1487 03 0303 0302 04 0566 05 0436 0438 0437 0435 06 0392 0394 0393 0391 07 0386 0388 0387 0385 08 3068 0617 0619 0618 0616 09 1279 10 2057 0721 0722 0720 11 0070 2361 3721 12 0609 0608 13 2633 0399 0401 0400 14 3321 2535 2464 15 3329 2534 16 3506 0167 0168 17 0237 0239 0238 0236 0540 18 0668 19 0180 0181 20 2079 2933 1919 1921 1920 21 0465 0467 0466 0464 22 3457 23 2512 24 0537 3580 25 0526 0528 0527 0525 26 3045 0605 0607 27 0087 0088 0086 28 0855 0856 0854 0857 29 0631 0632 0630 30 3874 1426 1427 31 0211 0539 0541 0540 32 0978 0497 0498 33 1894 1896 1895 34 1104 0576 0578 0577 35 3010 0583 0582 36 3676 0427 0061 0060 37 1961 2817 0455 0456 38 3262 0622 39 1956 0289 0291 addRailway.m%在DM的基础上增加地铁信息 file=fopen('d:\\我的文档\\桌面\\1.2 地铁线路信息.txt','r'); lcount=0; while 1 fprintf('已导入%d行\\n',lcount); lcount=lcount+1; tline=fgetl(file); if strcmp(tline,'END') fprintf('the end\\n'); break; end if strcmp(tline,'') continue; end if strcmp(tline(1),'T') railwayStr=tline; continue; end if strcmp(tline(1:10),'票价3元，本线路使用') continue; end %对地铁线路T1进行处理 if strcmp(tline(1),'D') railwayNum=(size(tline,2)-3)/4+1; for i=1:railwayNum-1 for j=i+1:railwayNum startR=str2num(tline(4*i-2:4*i-1))+3957; endR=str2num(tline(4*j-2:4*j-1))+3957; existNum=size(DM{startR,endR},1); DM{startR,endR}(existNum+1,:)={'T1',2.5*(j-i),3,i}; end end end %对地铁线路T2进行处理 if strcmp(tline(1:2),'环行') railwayNum=(size(tline,2)-6)/4; midR=[]; for i=1:railwayNum midR=[midR,str2num(tline(4*i+1:4*i+2))]; end midR=[midR,midR(1:size(midR,2)-1)]; for i=1:railwayNum for j=i+1:i+railwayNum-1 existNum=size(DM{midR(i)+3957,midR(j)+3957},1); DM{midR(i)+3957,midR(j)+3957}(existNum+1,:)={'T2',2.5*(j-i), 3,i}; end end end end importRail2Bus.m%加入地铁站到车站的对应信息 clc Rail2Bus=importdata('d:\\我的文档\\桌面\\Rail2Bus.txt'); directGo.m%新的直达信息函数（考虑地铁后） function a=directGo(DM,startP,endP,Rail2Bus) a={}; ss=[0,1,startP,0,0,0,0]; ee=[0,1,endP,0,0,0,0,]; for i=1:39 for j=3:7 if startP==Rail2Bus(i,j) ss=Rail2Bus(i,:); end if endP==Rail2Bus(i,j) ee=Rail2Bus(i,:); end end end if startP-3957>=1 ss=Rail2Bus(startP-3957,:); end if endP-3957>=1 ee=Rail2Bus(endP-3957,:); end if ss(1)~=0&&ee(1)~=0 ss(1); ee(1); DM{ss(1)+3957,ee(1)+3957}; sizeDM=size(DM{ss(1)+3957,ee(1)+3957},1); if sizeDM~=0 for i=1:sizeDM sizea=size(a,1); a(sizea+1,:)={DM{ss(1)+3957,ee(1)+3957}{i,1},DM{ss(1)+3957,ee(1)+3957}{i,2},DM{ss(1)+3957,ee(1)+3957}{i,3},DM{ss(1)+3957,ee(1)+3957}{i,4}}; end end end for i=1:ss(2) for j=1:ee(2) sizeDM=size(DM{ss(i+2),ee(j+2)},1); if sizeDM>=1 for k=1:sizeDM sizea=size(a,1); a(sizea+1,:)={DM{ss(i+2),ee(j+2)}{k,1},DM{ss(i+2),ee(j+2)}{k,2},DM{ss(i+2),ee(j+2)}{k,3},DM{ss(i+2),ee(j+2)}{k,4}}; end end end end if size(a,1)>=2 a=sortrows(a,2); end %{ if size(a,1)>=1 kk=size(a,1); for i=1:kk if strcmp(a{i,1}(1),'T') a(i,:) end end end %} 附录四：

问题二中代码与问题一中代码重复部分较多，并且算法相似，故在此将该问代码略去。 附录五： Question3.m%第三问代码 %以3359,1828为例 startP=3359; endP=1828; a={}; if size(directGo(DM,startP,endP,Rail2Bus),1)~=0 a=directGo(DM,startP,endP,Rail2Bus); a=sortrows(a,2); if size(a,1)>=20 a=a(1:20,:); end end if size(directGo(DM,startP,endP,Rail2Bus),1)==0&&size(changeBus1(DM,startP,endP,Rail2Bus),1)~=0 a=changeBus1(DM,startP,endP,Rail2Bus); a=sortrows(a,5); if size(a,1)>=20 a=a(1:20,:); end end if size(directGo(DM,startP,endP,Rail2Bus),1)==0&&size(changeBus1(DM,startP,endP,Rail2Bus),1)==0 a=changeBus2(DM,startP,endP,Rail2Bus); a=sortrows(a,8); if size(a,1)>=20 a=a(1:20,:); end end a

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库公交查询系统的最佳乘车方案研究与设计(6)在线全文阅读。