hudson.net | R Documentation |
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.