Get azimuthal particle motion
Do particle motion analysis
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)
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 |
list(aex=aex[1:jall], rateig=rateig[1:jall], aaz=aaz[1:jall], ai=ai[1:jall], figaz=figaz, azpar=azpar, incpar=incpar )
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)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.