[Oracle]计算地表两点之间的距离

--创建存储过程point_diatance

create or replace procedure point_distance  Authid Current_User is

      --定义变量

      net1        float;

      net2        float;

      net3        int;

      net4        int;

      net5        int;

      lata        float;

      lona        float;

      latb        float;

      lonb        float;

      net6        float;

      net7        float;

      net8        float;

      net9        float;

      net10       float;

      net11       float;

      net12       float;

      net13       float;

 begin

 for net3 in 1..49

   loop --开始循环

     for net4 in 1..49

       loop

         --从aa_point表格中读取经纬度

         select latitude into lata from  AA_POINT where point_id = net3;

         select longtitude into lona from  AA_POINT where point_id = net3;

         select latitude into latb from  AA_POINT where point_id = net4;

         select longtitude into lonb from  AA_POINT where point_id = net4;      

         --开始计算过程--核心公式

         net6 := sin(lata);

         net7 := sin(latb);

         net8 := cos(lona-lonb);

         net9 := cos(lata);

         net10 := cos(latb);

         net11:= net6 * net7 * net8 + net9 * net10;

         if net11 >= 1 then net12 := acos(0.999);

         else if  net11 <= -1 then net12 := acos(-0.999);

         else  net12 := acos(net11);

         end if;

         end if;

         net2 := 6371.004 * net12 * 3.1415926/180;

         --net1 := sin(lata)*sin(latb)*cos(lona-lonb)+cos(lata)*cos(latb);

         --net2 := 6371.004*acos(net1)*3.1415926/180;

        --输出计算结果到aa_distance表格

        update aa_distance set point_1=net3,point_2=net4,distance=net2

                  where id_number = net5;

       end loop;

   end loop;--结束循环

 commit;--提交任务

 end  point_distance;