hudson.net {RFOC}

Hudson Net Plot

Description

Plot a Hudson plot as preparation for plotting T-k values for focal mechanisms.

Usage

hudson.net(add = FALSE, POINTS = TRUE, TEXT = TRUE,
     colint = "grey", colext = "black")

Arguments

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

Details

Draws a T-k plot for moment tensors

Value

Graphical Side effects

Author(s)

Jonathan M. Lees<[e-mail]>

References

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.

See Also

hudson.plot

Examples

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)