R/tocartL.R

Defines functions `tocartL`

`tocartL` <-
function(A)
{
#######   /* Convert from spherical (az, dip in degrees) to Cartesian coordinates
#######     x pos north, y pos east, z pos downward */
  
  a = RSEIS::TOCART(A$az, A$dip)
  return(a)
}

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.