Description Usage Arguments Details Value Author(s) See Also Examples
Get Pand S travel times and derivatives
1 | GETpsTT(phase, eqz = 6, staz = 0, delx = 1, dely = 1, deltadis = 6, vel)
|
phase |
character vector, phase |
eqz |
event depth |
staz |
station elevation |
delx |
km, delta X |
dely |
km, delta Y |
deltadis |
km, distance |
vel |
velocity models (P and S) |
Creates a vector of travel times, and a matrix and derivatives used for inversion.
list:
TT |
travel time vector |
Derivs |
matrix of derivatives, dtdx, dtdy, dtdz |
Jonathan M. Lees<jonathan.lees@unc.edu>
many.time1D
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | ## Not run:
library(RSEIS)
library(GEOmap)
data(GH)
data(VELMOD1D)
vel = VELMOD1D
p1 = GH$pickfile$STAS
loc = GH$pickfile$LOC
proj = GEOmap::setPROJ(type = 2, LAT0 =loc$lat, LON0 = loc$lon)
XYsta = GEOmap::GLOB.XY(p1$lat, p1$lon, proj)
XYq = GEOmap::GLOB.XY(loc$lat, loc$lon, proj)
delx = XYq$x-XYsta$x
dely = XYq$y-XYsta$y
dists = sqrt(delx^2+dely^2)
G1 = GETpsTT(p1$phase, eqz=loc$z, staz=0, delx=delx, dely=dely, deltadis=dists , vel)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.