TauP.R (version 1.5)

FindDist4p: Epicentral Distance

Description

Calculates epicentral distance given focal depth and ray parameter or takeoff angle

Usage

FindDist4p(phase, h, model, p, takeoff)

Arguments

phase

Phase of arrival (e.g. 'P', 'pS')

h

Focal depth (km)

model

Planet model

p

Ray parameter (s/deg)

takeoff

Takeoff angle (deg)

Value

List including the following elements:

dist

Vector of surface distances traveled (deg), corresponding to the values in 'p' or 'takeoff'

segx

List of vectors corresponding to 'p' or 'takeoff'. Each vector includes distance coordinates (deg) along the ray path.

segz

List of vectors corresponding to 'p' or 'takeoff'. Each vector includes depth coordinates (km) along the ray path.

segtyp

List of vectors corresponding to 'p' or 'takeoff'. Each vector includes wave type ('P' or 'S') for each segment in the ray. Note that vectors in 'segtyp' have one fewer element than vectors in 'segx' and 'segz' because they describe segments, not points.

resp

Vector of ray parameters for each ray (s/deg).

Details

Only one of 'p', 'takeoff' needs to be specified, and may be a vector. 'phase' and 'h' must be scalars.

See Also

Traveltime, FindTime4p

Examples

# NOT RUN {
data(model)

FindDist4p('SKKS',100,model,c(4,5))

# }