苏飞论坛

标题: 地图上两点之间的实际直线距离单位M [打印本页]

作者: GhostX    时间: 2014-5-5 17:09
标题: 地图上两点之间的实际直线距离单位M
[C#] 纯文本查看 复制代码
#region 【地图上两点之间的实际直线距离单位M】
        /// <summary>
        /// 地球半径米
        /// </summary>
        private const double EARTH_RADIUS = 6378137.0;
        private static double Rad(double d)
        {
            return d * Math.PI / 180.0;
        }

        /// <summary>
        /// 地图上两点之间的直线距离单位M
        /// </summary>
        /// <param name="lat1">A点经度</param>
        /// <param name="lng1">A点纬度</param>
        /// <param name="lat2">B点经度</param>
        /// <param name="lng2">B点纬度</param>
        /// <returns>两点直线距离</returns>
        /**
         * 1、公式中经纬度均用弧度表示;
         * 2、Lat1 Lng1 分别表示A点经、纬度,Lat2 Lng2 分别表示B点经纬度;
         * 3、a=Lng1 -Lng2 为两点纬度之差 b=Lat1 – Lat2 为两点经度之差;
         * 4、6378.137为地球半径(公里);
         * 返回单位米
         * */
        public static double GetDistance(double lat1, double lng1, double lat2, double lng2)
        {
            double radLat1 = Rad(lat1);
            double radLat2 = Rad(lat2);
            double a = radLat1 - radLat2;
            double b = Rad(lng1) - Rad(lng2);
            double s = 2 * Math.Asin(Math.Sqrt(Math.Pow(Math.Sin(a / 2), 2) +
            Math.Cos(radLat1) * Math.Cos(radLat2) * Math.Pow(Math.Sin(b / 2), 2)));
            s = s * EARTH_RADIUS;
            s = Math.Round(s * 10000) / 10000;
            return s;
        }
        #endregion

作者: 站长苏飞    时间: 2014-5-5 17:33
我只是路过看看的。




欢迎光临 苏飞论坛 (http://www.sufeinet.com/) Powered by Discuz! X3.4