Interactive Particle Motion Plot
Plot Hodogram and show seismic particle motion
PMOT.drive(temp, dt, pmolabs = c("Vertical", "North", "East"), STAMP = "", baz = 0)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 |
Input matrix should V, N, E. Baz is not implemented yet.
Graphical Side Effect.
Jonathan M. Lees<jonathan.lees.edu>
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 )
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.