RSEIS (version 2.1-6)

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

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)

PMOT.drive(YMAT, dt, pmolabs = c("Vertical", "North", "East"),
STAMP =ftime )