Radiation pattern for SV waves

Description

calculate the radiation patterns for SV waves

Usage

1
radSV(del, phiS, lam, ichi, phi)

Arguments

del

degrees, angle

phiS

degrees,angle

lam

degrees, angle

ichi

degrees, take off angle

phi

degrees, take off azimuth

Details

Given a focal mechanism strike-dip-rake and a given incident angle (take-off angle) and azimuth, return the SV amplitude

Value

Amplitude of the SV wave

Author(s)

Jonathan M. Lees <jonathan.lees@unc.edu>

References

K.~Aki and P.~G. Richards.Quantitative seismology. University Science Books, Sausalito, Calif., 2nd edition, 2002.

See Also

radP, radSH, imageSV

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
phiS=65
del=25
lam=13
x = seq(-1, 1, 0.01)
y = x

X = matrix(rep(x, length(y)), nrow= length(x))
Y = t(X)
RAD2DEG = 180/pi
p = RAD2DEG*(pi/2 -atan2(Y, X))
p[p<0] = p[p<0] + 360

R = sqrt(X^2+Y^2)
R[R>1] = NaN
dip =RAD2DEG*2*asin(R/sqrt(2))

###  Calculate the radiation pattern
G = radSV(del, phiS, lam, dip, p)

###  plot values
image(x,y,G, asp=1)

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.