TauP.R (version 1.5)

FindP4Dist: Ray Parameter for Epicentral Distance

Description

Calculates ray parameter and takeoff angle to reach given epicentral distances. Including a pscan improves speed if you already have it, but is not necessary.

Usage

FindP4Dist(phase, deltalist, h, model, pscan = NULL)

Arguments

phase

Wave arrival phase (e.g. 'P', 'SKS')

deltalist

Vector of epicentral distances (degrees)

h

Focal depth (km)

model

Planet model

pscan

Output of MakePscan

Value

List with following values:

p

Vector of ray parameters (s/deg)

a

Vector of takeoff angles (deg)

d

Vector of corresponding epicentral distances (deg)

deltain

Vector of target epicentral distances (deg)

Examples

# NOT RUN {
data(model)
FindP4Dist('P', 60, 100, model)

# }