R/ROTY.R

Defines functions `ROTY`

`ROTY` <-
function( deg )
  {
    rad1 = deg * 0.0174532925199;
    r = diag(4)
    r[1, 1] = cos(rad1)
    r[3, 1] = sin(rad1)
    r[3, 3] = r[1, 1]
    r[1, 3] = -r[3, 1]
    return(r)

  }

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.