TauP.R (version 1.5)

FindRoots: Find Roots of X(a) Error Function

Description

Finds solutions for epicentral distance error - takeoff angle function.

Usage

FindRoots(phase, delta, h, model, startalpha, startdist)

Arguments

phase

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

delta

Epicentral distance (degrees)

h

Focal depth (km)

model

Planet model

startalpha

Takeoff angle interval containing root (degrees)

startdist

Epicentral distance interval containing root (degrees)

Value

List with the following elements:

p

Solution ray parameter (s/deg)

a

Solution takeoff angle (deg)

d

Solution epicentral distance (deg)

Examples

# NOT RUN {
data(model)
phase = 'P'
delta = 60
h = 100
startalpha = c(30, 31)
startdelta = FindDist4p('P', 100, model, takeoff = startalpha)$dist

FindRoots(phase, delta, h, model, startalpha, startdelta)

# }