Rotate Focal Mechanism
Rotate mechanism to vertical plan at specified angle
rotateFoc(MEX, phi)
MEX |
Focal Mechanism list |
phi |
angle in degrees |
Assumed vertical plane, outer hemisphere
Focal Mechanism
Jonathan M. Lees<jonathan.lees@unc.edu>
plotfoc, SDRfoc,Beachfoc, TEACHFOC, plotmanyfoc, getUWfocs
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)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.