%==============================================================% 功能: 求站点S和路线L矩阵，，表示通过S的所有线路% 日期: 8/9/2011%==============================================================clear,clcfid=fopen(‘Bus.txt’,’r’);%打开数据if fid>0 disp(‘数据文件打开成功！’)else disp(‘打开失败’),returnendSLmat1=zeros(3957,520,2);temp=[];while ~feof(fid)%for m=1:2temp=fgetl(fid);if temp(1)==’L’temp_L=str2num(temp(2:4));%当前L的值endfgetl(fid);temp=fgetl(fid);%第三行if temp(1)==’上’n=find(temp==’S’);for i=1:length(n)n_S=str2num(temp(n(i)+1:n(i)+4));SLmat1(n_S,temp_L,1)=i;endelseif temp(1)==’S’||temp(1)==’环’n=find(temp==’S’);for i=1:length(n)n_S=str2num(temp(n(i)+1:n(i)+4));SLmat1(n_S,temp_L,1)=i;endfor i=length(n):-1:1n_S=str2num(temp(n(i)+1:n(i)+4));SLmat1(n_S,temp_L,2)=length(n)-i+1;endend%第四行temp=fgetl(fid);if ~isempty(temp)&&temp(1)==’下’n=find(temp==’S’);for i=1:length(n)n_S=str2num(temp(n(i)+1:n(i)+4));SLmat1(n_S,temp_L,2)=i;endendendfclose(fid);%————-将SL矩阵写入文本文件————-save D:\matlab_files\SLdata_sl SLmat1disp(‘站点S间的线路矩阵已经保存为D:\matlab_files\SLdata_sl.mat’)
版权声明：本文为博主原创文章，未经博主允许不得转载。
含泪播种的人一定能含笑收获。
