Set Window Pix for swig
Create list of windows picks suitable for plotting in swig.
setwpix(phase = NULL, col = NULL, yr = NULL, jd = NULL, hr = NULL, mi = NULL, sec = NULL, dur = NULL, name = NULL, comp = NULL, dispcomp = NULL)
phase |
phase name |
col |
color for plotting |
yr |
year |
jd |
julian day |
hr |
hour |
mi |
minute |
sec |
second |
dur |
duration |
name |
name of station |
comp |
component |
dispcomp |
display on which component |
Some phases should be displayed on only certain components of a station.
list of window picks
Jonathan M. Lees<jonathan.lees@unc.edu>
swig
data(KH)
orgtim <- c( 2005,214,7,1,10.7313152551651 )
tims <- c( 0,46.7119,102.438451,113.092049,123.54077 )
psecs <- NULL
nam <- NULL
aphases <- NULL
sta <- "9024"
for(j in 1:length(tims))
{
psecs <- c(psecs, tims[j]+orgtim[5])
nam <- c(nam, sta)
aphases <- c(aphases, paste(sep="", "K", j) )
}
pp <- setwpix(phase=aphases , col="blue", yr=orgtim[1], jd=orgtim[2],
hr=orgtim[3], mi=orgtim[4], sec=psecs, dur=0, name=nam , comp="V")
W <- secdifL(KH$info, pp)
win <- c(min(W)-5, max(W)+5 )
swig(KH, APIX=pp, WIN=win , SHOWONLY=TRUE)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.