TauP.R (version 1.0)

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

data(model)
FindP4Dist('P', 60, 100, model)