RSEIS (version 4.2-4)

Plot1Dvel: Plot 1D Velocity Model

Description

Plot 1D velocity model showing P-wave and S-wave layered models.

Usage

Plot1Dvel(v, tit = NULL, col=c('blue', 'brown'), ...)

Value

Graphical Side effect

Arguments

v

Velocity models

tit

Title for plot (character)

col

2-colors for P and swave

...

other graphical parameters (e.g. lty, lwd)

Author

Jonathan M. Lees<[e-mail]>

Details

Velocity model consists of a list of P and S depths and layer velocity values. See example below.

See Also

Get1Dvel, Comp1Dvel, Comp1Dvels, travel.time1D

Examples

VEL <- list()
VEL$'zp' <- c(0,0.25,0.5,0.75,1,2,4,5,10,12)
VEL$'vp' <- c(1.1,2.15,3.2,4.25,5.3,6.25,6.7,6.9,7,7.2)
VEL$'ep' <- c(0,0,0,0,0,0,0,0,0,0)
VEL$'zs' <- c(0,0.25,0.5,0.75,1,2,4,5,10,12)
VEL$'vs' <- c(0.62,1.21,1.8,2.39,2.98,3.51,3.76,3.88,3.93,4.04)
VEL$'es' <- c(0,0,0,0,0,0,0,0,0,0)
VEL$'name' <- '/data/wadati/lees/Site/Hengil/krafla.vel'

Plot1Dvel(VEL, tit = 'This is an Example' )