经纬度测距

qiujie117275706

  

子程序名	返回值类型	公开	备 注
计算距离	双精度小数型
参数名	类 型	参考	可空	数组	备 注
纬度1	双精度小数型
经度1	双精度小数型
纬度2	双精度小数型
经度2	双精度小数型

变量名	类 型	静态	数组	备 注
地球半径	双精度小数型
弧度转换系数	双精度小数型
纬度1_弧度	双精度小数型
纬度2_弧度	双精度小数型
经度1_弧度	双精度小数型
经度2_弧度	双精度小数型
纬度差	双精度小数型
经度差	双精度小数型
a	双精度小数型
c	双精度小数型

地球半径 ＝ 6371
弧度转换系数 ＝ 0.01745329251994  ' 度 = 0.017453292519943 弧度
纬度1_弧度 ＝ 纬度1 × 弧度转换系数
纬度2_弧度 ＝ 纬度2 × 弧度转换系数
经度1_弧度 ＝ 经度1 × 弧度转换系数
经度2_弧度 ＝ 经度2 × 弧度转换系数
纬度差 ＝ 纬度2_弧度 － 纬度1_弧度
经度差 ＝ 经度2_弧度 － 经度1_弧度
a ＝ 求正弦 (纬度差 ÷ 2) × 求正弦 (纬度差 ÷ 2) ＋ 求余弦 (纬度1_弧度) × 求余弦 (纬度2_弧度) × 求正弦 (经度差 ÷ 2) × 求正弦 (经度差 ÷ 2)
c ＝ 2 × 求反正切 (求平方根 (a))
返回 (地球半径 × c)

.版本 2<br /> <br /> .子程序 计算距离, 双精度小数型<br /> .参数 纬度1, 双精度小数型<br /> .参数 经度1, 双精度小数型<br /> .参数 纬度2, 双精度小数型<br /> .参数 经度2, 双精度小数型<br /> .局部变量 地球半径, 双精度小数型<br /> .局部变量 弧度转换系数, 双精度小数型<br /> .局部变量 纬度1_弧度, 双精度小数型<br /> .局部变量 纬度2_弧度, 双精度小数型<br /> .局部变量 经度1_弧度, 双精度小数型<br /> .局部变量 经度2_弧度, 双精度小数型<br /> .局部变量 纬度差, 双精度小数型<br /> .局部变量 经度差, 双精度小数型<br /> .局部变量 a, 双精度小数型<br /> .局部变量 c, 双精度小数型<br /> <br /> 地球半径 ＝ 6371<br /> 弧度转换系数 ＝ 0.01745329251994  ' 度 = 0.017453292519943 弧度<br /> <br /> 纬度1_弧度 ＝ 纬度1 × 弧度转换系数<br /> 纬度2_弧度 ＝ 纬度2 × 弧度转换系数<br /> 经度1_弧度 ＝ 经度1 × 弧度转换系数<br /> 经度2_弧度 ＝ 经度2 × 弧度转换系数<br /> <br /> 纬度差 ＝ 纬度2_弧度 － 纬度1_弧度<br /> 经度差 ＝ 经度2_弧度 － 经度1_弧度<br /> <br /> a ＝ 求正弦 (纬度差 ÷ 2) × 求正弦 (纬度差 ÷ 2) ＋ 求余弦 (纬度1_弧度) × 求余弦 (纬度2_弧度) × 求正弦 (经度差 ÷ 2) × 求正弦 (经度差 ÷ 2)<br /> c ＝ 2 × 求反正切 (求平方根 (a))<br /> <br /> 返回 (地球半径 × c)

QJong

感谢老铁，老铁6666，刚需就遇上了，久旱逢甘雨

pnf

来学习一下

qq977352880

很喜欢这种深入浅出的教学方式。

benrui667

来学习一下

chengle

66666666666666666666666666666666666666

on1eigh8

来学习一下

1056497868

感觉不错哦

qq977352880

好东西，保存了

qq977352880

好东西，保存了