K.~Aki and P.~G. Richards.{Quantitative seismology. University Science Books, Sausalito, Calif., 2nd edition, 2002.
}
[object Object]radSH, SDRfoc
MEC =SDRfoc(65,25,13, u=FALSE, ALIM=c(-1,-1, +1, +1), PLOT=FALSE)
imageSH(MEC$az1, MEC$dip1, MEC$rake1, SCALE=TRUE, UP=MEC$UP, col=rainbow(100) )hplot