论坛风格切换切换到宽版
  • 9974阅读
  • 13回复

地球表面直线距离计算(带画图功能) [复制链接]

上一主题 下一主题
离线BG5BDB
 
发帖
468
只看楼主 倒序阅读 0楼 发表于: 2004-05-07
请大家多指教,自己觉得还能凑活着用。

http://www.tempsingle.com
离线BD3RJ
发帖
18845
只看该作者 1楼 发表于: 2004-05-07
是大圆距离吗       ?
离线BG5BDB
发帖
468
只看该作者 2楼 发表于: 2004-05-08
对,就是大圆距离。地球半径按照平均半径,到地表,不到电离层。
离线BG8AED
发帖
7574
只看该作者 3楼 发表于: 2004-05-08
我试了一下,不错,建议你将此编一程序。
离线BG5BDB
发帖
468
只看该作者 4楼 发表于: 2004-05-08
pc上的软件,可以使用microsoft street,图形非常漂亮。
至于不带图形的软件,用excel一个简单的公式就可以解决了。

公式是:
---- allreset at 2002-12-11 2058 wrote ----
已知2点的经纬度为(x1,y1)(x2,y2),地球半径r
问:两点的距离d12=r*acos[cosy1*cosy2*cos(x1-x2)+siny1*siny2]
离线BG8AED
发帖
7574
只看该作者 5楼 发表于: 2004-05-08
谢谢!完全拷贝。。。。。。。
离线BA6QA
发帖
549
只看该作者 6楼 发表于: 2004-05-08
好!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
离线BG5BDB
发帖
468
只看该作者 7楼 发表于: 2004-05-09
请教一个公式:
已知2点的经纬度为a(x1,y1),b(x2,y2),地球半径r
问:如何计算a-b的方位角?
离线ahzds
发帖
7423
只看该作者 8楼 发表于: 2004-05-09
'
pc上的软件,可以使用microsoft street,图形非常漂亮。
至于不带图形的软件,用excel一个简单的公式就可以解决了。
公式是:
---- allreset at 2002-12-11 20[表情]58 wrote ----
已知2点的经纬度为(x1,y1)(x2,y2),地球半径r
问:两点的距离d12=r*acos[cosy1*cosy2*cos(x1-x2)+siny1*siny2]
'
好东西!!!!
离线BG5BDB
发帖
468
只看该作者 9楼 发表于: 2004-05-11
方位角算法:

$xa,$ya a点经纬度
$xb,$yb b点经纬度

     $angle=sin(($xa-$xb) * $pi/ 180.0) / (cos($yb*$pi/180.0)*tan($ya*$pi/180.0)-sin($yb*$pi/180.0)*cos(($xa-$xb)*$pi/180.0));
     if($angle > 0)
     {
           $angle = atan($angle) * 180.0 / $pi;
           if( $xb < $xa) $angle = 180 + $angle;
     }
     else
     {
           $angle = atan($angle) * 180.0 / $pi;
           if( $xb < $xa) $angle = 360 + $angle;
           else $angle = 180 + $angle;
     }
离线BA7AS
发帖
2849
只看该作者 10楼 发表于: 2004-05-11
非常不错!谢谢!
我知道了我女儿和我之间距离8000多公里了。
离线BG7KQT
发帖
1335
只看该作者 11楼 发表于: 2004-05-12
'
我知道了我女儿和我之间距离8000多公里了。
'

父女情长~~~~~~
离线mr7
发帖
1300
只看该作者 12楼 发表于: 2006-07-06
不错的计算方法!
离线BG4UVR
发帖
11210
只看该作者 13楼 发表于: 2007-03-29
在google上搜来搜去,竟然搜回家里了 :d