RSEIS (version 3.7-4)

PMOT.drive: Interactive Particle Motion Plot

Description

Plot Hodogram and show seismic particle motion

Usage

PMOT.drive(temp, dt, pmolabs = c("Vertical", "North", "East"), STAMP = "", baz = 0)

Arguments

temp

matrix of 3-component seismic signal

dt

sample interval (delta-T, seconds)

pmolabs

labels for traces

STAMP

Character string Identification stamp

baz

Back Azimuth, degrees

Value

Graphical Side Effect.

Details

Input matrix should V, N, E. Baz is not implemented yet.

Examples

# NOT RUN {
data("GH")
sel <-  which(GH$STNS == "CE1")


YMAT  <-  cbind(GH$JSTR[[sel[1]]][1168:1500],
GH$JSTR[[sel[2]]][1168:1500],
GH$JSTR[[sel[3]]][1168:1500])

dt  <-   GH$dt[ sel[1] ]
ftime  <-  Zdate(GH$info, sel[1], 1)

# }
# NOT RUN {
PMOT.drive(YMAT, dt, pmolabs = c("Vertical", "North", "East"),
STAMP =ftime )

# }
# NOT RUN {

# }