计算经纬度的结果怎么取小数点后位数更长到18？

yifan790

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
result	双精度小数型		2

azimuth_offset (107.4228, 40.76761, 到数值 (取随机数 (1, 3)), 到数值 (取随机数 (5, 10)), result)
调试输出 (到文本 (result [2]))
调试输出 (到文本 (result [1]))
调试输出 (取文本长度 (到文本 (result [2])))  ' 结果因为受限双精度小数型最多14长度，我需要取到计算结果的18位
调试输出 (取文本长度 (到文本 (result [1])))  ' 结果因为受限双精度小数型最多14长度，我需要取到计算结果的18位

子程序名	返回值类型	公开	备 注
azimuth_offset
参数名	类 型	参考	可空	数组	备 注
origin_lon	双精度小数型				原点经度
origin_lat	双精度小数型				原点纬度
distance	双精度小数型				延伸距离
azimuth	双精度小数型				偏移角度
result_lon_lat	双精度小数型				返回结果，精度【1】维度【2】

result_lon_lat [1] ＝ origin_lon ＋ distance × 求正弦 (azimuth × #pi ÷ 180) × 180 ÷ ( #pi × 6371229 × 求余弦 (origin_lat × #pi ÷ 180))
result_lon_lat [2] ＝ origin_lat ＋ distance × 求余弦 (azimuth × #pi ÷ 180) ÷ ( #pi × 6371229 ÷ 180)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 result, 双精度小数型, , "2"<br /> <br /> <br /> azimuth_offset (107.4228, 40.76761, 到数值 (取随机数 (1, 3)), 到数值 (取随机数 (5, 10)), result)<br /> <br /> 调试输出 (到文本 (result [2]))<br /> 调试输出 (到文本 (result [1]))<br /> <br /> 调试输出 (取文本长度 (到文本 (result [2])))  ' 结果因为受限双精度小数型最多14长度，我需要取到计算结果的18位<br /> 调试输出 (取文本长度 (到文本 (result [1])))  ' 结果因为受限双精度小数型最多14长度，我需要取到计算结果的18位<br /> <br /> <br /> .子程序 azimuth_offset<br /> .参数 origin_lon, 双精度小数型, , 原点经度<br /> .参数 origin_lat, 双精度小数型, , 原点纬度<br /> .参数 distance, 双精度小数型, , 延伸距离<br /> .参数 azimuth, 双精度小数型, , 偏移角度<br /> .参数 result_lon_lat, 双精度小数型, 数组, 返回结果，精度【1】维度【2】<br /> <br /> result_lon_lat [1] ＝ origin_lon ＋ distance × 求正弦 (azimuth × #pi ÷ 180) × 180 ÷ (#pi × 6371229 × 求余弦 (origin_lat × #pi ÷ 180))<br /> result_lon_lat [2] ＝ origin_lat ＋ distance × 求余弦 (azimuth × #pi ÷ 180) ÷ (#pi × 6371229 ÷ 180)

补充内容 (2022-3-16 15:39):
结果因为受限双精度小数型最多14长度，我需要取到计算结果的18位

Suky

最简单的方法就是    扩大倍数计算
或者以文本形式保存和调取做计算

补充内容 (2022-3-16 18:12):
小数不足就扩倍，整数不足用大数之类的

扑通

汇编计算