Nothing
R/TransformS2Fz.R
In TauP.R: Earthquake Traveltime Calculations for 1-D Earth Models
Defines functions
TransformS2Fz
Documented in
TransformS2Fz
TransformS2Fz <-
function(vs,zs,rp)
{
r=rp-zs
indies=which(r==0)
r[indies]=-1
zf=rp*log(rp/r+0i)
zf[indies]=abs(zf[indies])*Inf
zf=Re(zf)
vf=vs/r
vf=vf*rp
vf[indies]=vf[indies]*Inf
return(list(vf=vf,zf=zf))
}
Try the TauP.R package in your browser
Any scripts or data that you put into this service are public.
TauP.R documentation built on May 2, 2019, 3:25 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions TransformS2Fz
Documented in TransformS2Fz
TransformS2Fz <-
function(vs,zs,rp)
{
r=rp-zs
indies=which(r==0)
r[indies]=-1
zf=rp*log(rp/r+0i)
zf[indies]=abs(zf[indies])*Inf
zf=Re(zf)
vf=vs/r
vf=vf*rp
vf[indies]=vf[indies]*Inf
return(list(vf=vf,zf=zf))
}
Try the TauP.R package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.