求纬度线上任意两点的球面距离 (10分)

题目描述

已知地球的平均半径为6371.393千米,并已知位于同一纬度上两点的纬度、经度值(单位为度),编写程序计算这两点之间的弦长和球面距离分别是多少千米。要求所有的实数使用double类型,圆周率的近似值取3.141592653589793。 提示:可以用正负来区分北纬与南纬、东经与西经。即北纬为正,南纬为负;东经为正,西经为负。

输入格式:

在第一行中输入一个位于区间[-90,90]内代表纬度的实数;在第二行中输入两个位于区间[-180,180]内代表经度的实数,以空格分隔。

输出格式:

输出弦长和球面距离的值,保留3位小数,以空格分隔,最后换行。

输入样例:

32.6
-56.1 163.8

输出样例:

10090.980 11645.760

源代码

#include <stdio.h>
#include <math.h>
#include <string.h>
#define PI 3.141592653589793
#define R 6371.393
int main()
{
    double latitude,longitude1,longitude2,l;
    scanf("%lf %lf %lf",&latitude,&longitude1,&longitude2);
    l=fabs(longitude2-longitude1);
    if(l>180)
        l=360-l;
    double arclength,length;
    latitude=latitude*2*PI/360.0;
    l=fabs(longitude2-longitude1)*2*PI/360.0;
    arclength=R*acos(cos(latitude)*cos(latitude)*cos(fabs(l))+sin(latitude)*sin(latitude));
    length=2*R*sin(arclength/(2*R));
    printf("%.3lf %.3lf\n",length,arclength);
    return 0;
}
//弧长为  arclength=R*arccos[cosb1*cosb2*cos(a1-a2)+sinb1*sinb2]   R是地球半径   a是经度  b是纬度
//弦长公式  弦长和弧长的关系式   C = arcsin(L/2R)×2r  弧度制公式   弦长为L,弧长为C,半径长为R    

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
如果要考虑纬度渐长线的影响,可以使用Mapping Toolbox中的 `distance` 函数和 `azimuth` 函数来计算地球表面上两点之间的球面距离和方位角,然后根据纬度渐长线的影响计算两点之间的距离。 具体来说,可以按照以下步骤计算两点之间的距离: 1. 使用 `distance` 函数计算两点之间的球面距离和方位角。例如,假设我们有两个点 `(lat1, lon1)` 和 `(lat2, lon2)`,可以使用以下代码计算它们之间的球面距离和方位角: ```matlab % 设置地球半径 R = 6371; % 单位:千米 % 计算球面距离和方位角 [d, az] = distance(lat1, lon1, lat2, lon2, R); ``` 其中,`lat1` 和 `lon1` 表示第一个点的纬度和经度,`lat2` 和 `lon2` 表示第二个点的纬度和经度。`R` 是地球的半径,单位为千米。`d` 是两点之间的球面距离,`az` 是从第一个点指向第二个点的方位角。 2. 根据纬度渐长线的影响调整距离。可以使用以下公式来计算纬度渐长线对距离的影响: ```matlab delta_lat = abs(lat1 - lat2); delta_lon = abs(lon1 - lon2); delta_az = atan2(sin(delta_lon), cos(lat1) * tan(lat2) - sin(lat1) * cos(delta_lon)); delta_d = delta_az * R; ``` 其中,`delta_lat` 是两点之间的纬度差,`delta_lon` 是两点之间的经度差。`delta_az` 是纬度渐长线对距离的影响,`delta_d` 是根据纬度渐长线计算出来的距离调整量。最终的距离可以通过将 `d` 和 `delta_d` 相加得到。 下面是完整的代码: ```matlab % 设置地球半径 R = 6371; % 单位:千米 % 计算球面距离和方位角 [d, az] = distance(lat1, lon1, lat2, lon2, R); % 计算纬度渐长线对距离的影响 delta_lat = abs(lat1 - lat2); delta_lon = abs(lon1 - lon2); delta_az = atan2(sin(delta_lon), cos(lat1) * tan(lat2) - sin(lat1) * cos(delta_lon)); delta_d = delta_az * R; % 计算最终距离 distance = d + delta_d; ``` 其中,`lat1` 和 `lon1` 表示第一个点的纬度和经度,`lat2` 和 `lon2` 表示第二个点的纬度和经度。`distance` 是两点之间的距离单位为千米。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值