R/SlopeInt.R

In TauP.R: Earthquake Traveltime Calculations for 1-D Earth Models

Defines functions SlopeInt

Documented in SlopeInt

SlopeInt <-
function(v,z){
g=(v[1]-v[2])/(z[1]-z[2])
v0=v[2]-z[2]*g
return(list(g=g,v0=v0))
}

Try the TauP.R package in your browser