Menghitung Kemiringan (bearing) dua titik koordinat longitude latitude dengan delphi 7

Bagi anda yang membutuhkan source code untuk Menghitung Kemiringan (bearing) dua titik koordinat longitude latitude dengan delphi 7 (tested juga dengan delphi XE  5 dan sukses) , berikut ini kami sertakan source code nya.(silakan download pada baigan akhir postingan ini).

Awalnya kami sempat hitung Kemiringan (bearing) dua titik koordinat longitude latitude dengan menggunakan asumsi bahwa bumi datar, artinya hanya menggunakan persamaan untuk menghitung namun ternyata terdapat kesalahan yang cukup besar (sampai 2 derajat), jika kita anggap 2 derajat adalah untuk jarak 10 meter mungkin tidak akan bermasalah, namun saat selisih sudut 2 derajat sejauh 1000km, anda akan mendapati error (kesalahan) jarak yang sangat besar.

awal nya kami menggunakan fungsi sebagai berikut :

function get_angle_degrees(x1,y1,x2,y2:double):double;
var
 part1, part2:double;
 angle:double;
begin
 if (x1=x2) and (y1=y2) then
  begin
   result:=0.0;
   exit;
  end;
 part1:=abs(y2-y1);
 if (part1=0) then begin part1:=0.0000001; y1:=y1+0.0000001; end;
 part2:=abs(x2-x1);
 if (part2=0) then begin part2:=0.0000001; x1:=x1+0.0000001; end;
 angle:=arctan(part1/part2)*RADIANS;
 if ((x1>x2) and (y1<y2)) then angle:=180-angle;
 if ((x1>x2) and (y1>y2)) then angle:=angle +180;
 if ((x1<x2) and (y1>y2)) then angle:=360-angle;
 angle:=fix_angle(angle);
 result:=angle;
end;

jika kita menggunakan fungsi terserbut di atas, anda memang benar, namun koordinat yang dimaksud adalah koordinat garis untuk permukaan datar (anggap saja persamaan garis lurus). jika yang anda maksud untuk menghutung Kemiringan (bearing) dua titik koordinat longitude latitude (ingat bumi enggak datar yak) dengan delphi 7 silakan saja download source code KLIK DISINI