FindRoots: Find Roots of X(a) Error Function

Description Usage Arguments Value Author(s) Examples

View source: R/FindRoots.R

Description

Finds solutions for epicentral distance error - takeoff angle function.

Usage

1
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)

Author(s)

Jake Anderson

Examples

1
2
3
4
5
6
7
8
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)

TauP.R documentation built on May 2, 2019, 3:25 a.m.