R/polar2cart.r

In FREddyPro: Post-Processing EddyPro Full Output File

Defines functions polar2cart

Documented in polar2cart

polar2cart <-
function (x, y, dist, bearing, as.deg = FALSE) 
{
    if (as.deg) {
        bearing = bearing * pi/180
    }
    newx <- x + dist * sin(bearing)
    newy <- y + dist * cos(bearing)
    return(list(x = newx, y = newy))
}

Try the FREddyPro package in your browser