powered by
Amplitude of P-wave radiation pattern from Double-Couple earthquake
imageP(phiS, del, lam, SCALE = FALSE, UP = FALSE, col = NULL)
Used for the graphical side effect
strike
dip
lambda
logical, TRUE=add scale on side of plot
upper/lower hemisphere
color
Jonathan M. Lees <jonathan.lees@unc.edu>
This program calls radP to calculate the radiation pattern and it plots the result using the standard image function
K.~Aki and P.~G. Richards.Quantitative seismology. University Science Books, Sausalito, Calif., 2nd edition, 2002.
radP, SDRfoc
MEC =SDRfoc(65,25,13, u=FALSE, ALIM=c(-1,-1, +1, +1), PLOT=FALSE) imageP(MEC$az1, MEC$dip1, MEC$rake1, SCALE=TRUE, UP=MEC$UP, col=rainbow(100) )
Run the code above in your browser using DataLab