matlab经纬度距离计算及数据分类合并程序

matlab：经纬度距离的计算，以及将表格数据按类别合并的程序

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