delphi GPS坐标转百度坐标

w5138152

于 2021-12-03 09:18:04 发布

阅读量380

点赞数

文章标签：百度几何学概率论

本文链接：https://blog.csdn.net/w5138152/article/details/121691227

版权

这篇博客介绍了如何在Delphi中将GPS坐标转换为百度坐标，通过一系列数学计算和转换函数，包括transformLat、transformLon等，实现了从国际椭球体坐标到百度地图坐标系的转换。

摘要由CSDN通过智能技术生成

const
pi = 3.1415926535897932384626;
a = 6378140.0;//1975年国际椭球体长半轴
ee = 0.0033528131778969143;//1975年国际椭球体扁率
{$R *.fmx}
function transformLat ( x:double;y:double):double;
var
ret:double;
begin
ret := -100.0 + 2.0 * x + 3.0 * y + 0.2 * y * y + 0.1 * x * y
+ 0.2 * sqrt(abs(x));
ret :=ret+ (20.0 * sin(6.0 * x * pi) + 20.0 * sin(2.0 * x * pi)) * 2.0 / 3.0;
ret :=ret+ (20.0 * sin(y * pi) + 40.0 * sin(y / 3.0 * pi)) * 2.0 / 3.0;
ret :=ret+ (160.0 * sin(y / 12.0 * pi) + 320 * sin(y * pi / 30.0)) * 2.0 / 3.0;
Result:=ret;
end;
function transformLon ( x:double;y:double):double;
var
ret:double;
begin
ret := 300.0 + x + 2.0 * y + 0.1 * x * x + 0.1 * x * y + 0.1
* sqrt(abs(x));
ret :=ret+ (20.0 * sin(6.0 * x * pi) + 20.0 * sin(2.0 * x * pi)) * 2.0 / 3.0;<