A=xlsread（‘F:\BaiduYunDownload\我的資源\大創\地鐵站修建\A1.xlsx‘‘Sheet1‘‘a1:i42983‘）;
B=zeros（429836550）;
for?i=1:9
????B（1i）=A（1i）;
end
b=2;??%顯示B的行數+1
for?i=2:42983
????j=1;
????mark=0;
????while（j????????if?A（i3）==B（j3）&&A（i4）==B（j4）???%如果經緯相等
????????????????k=1;
????????????????while（B（jk）~=0）
????????????????????k=k+1;
????????????????end?????%找到該小區可以填的位置
????????????????for?s=0:3
????????????????????B（jk+s）=A（is+6）;
????????????????end????%填充除去經緯度以外的信息
????????????????mark=1;??%表示已安放
????????????????break;??%跳出循環
????????else???%經緯不等，繼續找
????????????j=j+1;
????????end
????????
????end
????if?mark==0????%如果未安放
????????for?s=1:9
????????????B（bs）=A（is）;
????????end????%填充
????????b=b+1;???%更新B的行數
????end
end
?B1=B（1:7181:6538）;??%多取1列，為使后面繼續用時，見0停止

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????195??2018-03-15?19:43??dis.m

?????文件????????910??2018-02-03?22:22??B_calculate.m

?????文件???????1132??2018-03-15?23:13??dis_housing_center.m

?????文件????????950??2018-03-15?23:11??house_6route.m

-----------?---------??----------?-----??----

?????????????????3187????????????????????4