RSEIS (version 4.2-4)

GAZI: Get azimuthal particle motion

Description

Do particle motion analysis

Usage

GAZI(ADAT, dt = 1, ex = seq(0, 100),
comp = c(4, 5, 6), sta = "ZZZ", az = 0,
len = 50, shift = 10, prev = 1, fileid = "", picks = NA, labs = NA)

Value

list(aex=aex[1:jall], rateig=rateig[1:jall], aaz=aaz[1:jall], ai=ai[1:jall], figaz=figaz, azpar=azpar, incpar=incpar )

Arguments

ADAT

Matrix of 3 component seismic data

dt

delta T (s)

ex

x-axis vector

comp

component names

sta

station name

az

azimuth of station orientation

len

length of time series

shift

amount to shift per window

prev

length of buffer at beginning of trace

fileid

character string to put on plot

picks

arrival times for annotation

labs

labels for arrival times for annotation

Examples

data("GH")


temp  <-  cbind(GH$JSTR[[4]], GH$JSTR[[5]], GH$JSTR[[6]])

pmolabs <- c("Vertical", "North", "East")


 G   <-  GAZI(temp, dt =GH$dt[4]  , comp = pmolabs, sta = GH$STNS[4] ,
az = 0, len =75, shift = 10, prev = 1)