R/SHradfoc.R

Defines functions `SHradfoc`

`SHradfoc` <-
function(A , MEC, GU, pscale, col)
  {
    C = RPMG::circle()
    imageSH(MEC$az1, MEC$dip1, MEC$rake1, SCALE=FALSE, UP=MEC$UP, col=col )
    lines(C$x, C$y, type='l', col=grey(.6))
  }

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.