R/mc2cart.R

Defines functions `mc2cart`

`mc2cart` <-
function(az, dip)
{
   DEG2RAD = pi/180;
    azrad = az * DEG2RAD;
    diprad = dip * DEG2RAD;
    z = sin (diprad);
    temp = cos(diprad);
    x = cos(azrad) * temp;
    y = sin(azrad) * temp;
    return(list(x=x, y=y, z=z))
}

Try the RFOC package in your browser

Any scripts or data that you put into this service are public.

RFOC documentation built on Sept. 8, 2023, 6:12 p.m.