TauP.R (version 1.0)

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

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)