rotateFoc {RFOC}

Rotate Focal Mechanism

Description

Rotate mechanism to vertical plan at specified angle

Usage

rotateFoc(MEX, phi)

Arguments

MEX

Focal Mechanism list

phi

angle in degrees

Details

Assumed vertical plane, outer hemisphere

Value

Focal Mechanism

Author(s)

Jonathan M. Lees<[e-mail]>

See Also

plotfoc, SDRfoc,Beachfoc, TEACHFOC, plotmanyfoc, getUWfocs

Examples

a1 = SDRfoc(90, 90, 90, u = TRUE , PLOT = TRUE)


par(mfrow=c(2,2))

SDRfoc(a1$az1, a1$dip1, a1$rake1, u = TRUE, PLOT = TRUE)
ra1 = rotateFoc(a1, -90)

SDRfoc(ra1$az1, ra1$dip1, ra1$rake1, u = TRUE , PLOT = TRUE)

ra1 = rotateFoc(a1, 0)


SDRfoc(a1$az1, a1$dip1, a1$rake1, u = TRUE, PLOT = TRUE)

SDRfoc(ra1$az1, ra1$dip1, ra1$rake1, u = TRUE , PLOT = TRUE)