Var-Squiggle plot
Plot one seismogram in Var-Squiggle mode - like on an exploration record section with half the wiggled shaded.
varsquig(x, y, L = locator(2), FLIP = FALSE, filcol="blue", tracecol="red", var = 0)
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 |
A set of traces can be plotted after the plotting region has been set.
Graphical Side Effects
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.
Jonathan M. Lees<jonathan.lees@unc.edu>
varsquiggle
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)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.