varsquig: Var-Squiggle plot

In RSEIS: Seismic Time Series Analysis Tools

Var-Squiggle plot

Description

Plot one seismogram in Var-Squiggle mode - like on an exploration record section with half the wiggled shaded.

Usage

varsquig(x, y, L = locator(2), FLIP = FALSE, filcol="blue",
tracecol="red", var = 0, xpd=TRUE )

Arguments

x	X (time axis) coordinates
y	Y amplitudes
L	rectangular region on plot where plotting occurs
FLIP	logical - whether to flip the amplitudes by -1
filcol	color for shading
tracecol	color for trace
var	logical, whether to shade
xpd	logical, set xpd parameter (see par)

Details

A set of traces can be plotted after the plotting region has been set.

Value

Graphical Side Effects

Note

varsquig is meant to be used within other program not as a stand alone routine. The plotting region must be set up prior to plotting. The time series is scaled to fitt in the rectangular region defined by L.

Author(s)

Jonathan M. Lees<[e-mail]>

See Also

varsquiggle

Examples

data(KH)

x <- KH$ex[KH$ex>95& KH$ex<125]
y <- KH$JSTR[[1]][KH$ex>95& KH$ex<125]


plot(x , y , type='l')


u <- par('usr')
L <- list(x=c(u[1], u[2]), y = c(u[3], u[4]))

plot(L$x, L$y, type='n')
 varsquig(x, y, L=L , FLIP=FALSE, filcol="blue", tracecol="blue", var=TRUE)
plot(L$x, L$y, type='n')
 varsquig(x, y, L=L , FLIP=FALSE, filcol="red", tracecol="blue",   var=FALSE)

RSEIS documentation built on Sept. 13, 2024, 1:09 a.m.