Hudson Net Plot
Plot a Hudson plot as preparation for plotting T-k values for focal mechanisms.
hudson.net(add = FALSE, POINTS = TRUE, TEXT = TRUE, colint = "grey", colext = "black")
add |
logical, TRUE=add to existing plot |
POINTS |
logical, TRUE=add points |
TEXT |
logical, TRUE=add points |
colint |
color for interior lines |
colext |
color for exterior lines |
Draws a T-k plot for moment tensors
Graphical Side effects
Jonathan M. Lees<jonathan.lees@unc.edu>
Hudson, J.A., Pearce, R.G. and Rogers, R.M., 1989. Source time plot for inversion of the moment tensor, J. Geophys. Res., 94(B1), 765-774.
hudson.plot
hudson.net() Mtens <- c(-0.412, 0.084, 0.328 ,0.398, -1.239, 1.058) M1 <- matrix(c(Mtens[1], Mtens[4], Mtens[5], Mtens[4], Mtens[2], Mtens[6], Mtens[5],Mtens[6], Mtens[3]), ncol=3, nrow=3, byrow=TRUE) E1 <- eigen(M1) hudson.plot(E1$values)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.