Question

我正在使用以下功能。

    private static Location CoordinateAtADistance(double latOrigin, double lonOrigin, double radius, double angle)
    {

        double lonDestination;
        double R = 6371.0;
        double d = radius / R;  // d = angular distance covered on earth's surface

        double lat1 = ToRadian(latOrigin);
        double lon1 = ToRadian(lonOrigin);
        double brng = ToRadian(angle);



        double latDestination = lat1 + d * Math.Cos(brng);
        double dLat = d * Math.Cos(brng);
        double dPhi = Math.Log(Math.Tan(latDestination / 2 + Math.PI / 4) / Math.Tan(lat1 / 2 + Math.PI / 4));
        double q = (double.IsNaN(dLat / dPhi)) ? dLat / dPhi : Math.Cos(lat1);  // E-W line gives dPhi=0
        double dLon = d * Math.Sin(brng) / q;
        // check for some daft bugger going past the pole
        if (Math.Abs(latDestination) > Math.PI / 2)
            latDestination = latDestination > 0 ? Math.PI - latDestination : -(Math.PI - latDestination);

        lonDestination = (lon1 + dLon +3* Math.PI) % (2 * Math.PI) - Math.PI;

        Location nextPoint = new Location();
        if (angle == 0)
        {
            nextPoint.Latitude = ToDegree(latDestination);
            nextPoint.Longitude = lonOrigin;
        }
        if (angle == 90)
        {
            nextPoint.Latitude = latOrigin;
            nextPoint.Longitude = ToDegree(lonDestination);
        }
        return nextPoint;
    }

这里半径是距离。

现在问题在于我计算短距离，例如几百公里它完美地运作。但是对于大距离说11,000公里它给出了正确的经度。请不要我只沿纬度或经度移动，所以其中一个在任何情况下都不会改变。在移动纬度时，我得到正确答案，但经度值不是更接近。如果有任何不清楚的地方，请发表评论。

Answer 1

    double latDestination = lat1 + d * Math.Cos(brng);
        double dLat = d * Math.Cos(brng);
        double dPhi = Math.Log(Math.Tan(latDestination / 2 + Math.PI / 4) / Math.Tan(lat1 / 2 + Math.PI / 4));
        double q = (double.IsNaN(dLat / dPhi)) ? dLat / dPhi : Math.Cos(lat1);  // E-W line gives dPhi=0
        double dLon = d * Math.Sin(brng) / q;
        // check for some daft bugger going past the pole
        if (Math.Abs(latDestination) > Math.PI / 2)
            latDestination = latDestination > 0 ? Math.PI - latDestination : -(Math.PI - latDestination);

        lonDestination = (lon1 + dLon + 3 * Math.PI) % (2 * Math.PI) - Math.PI;

需要稍加修正，上面的公式运作正常。

在远距离时获得不正确的纬度和经度

1 个答案: