setwpix {RSEIS} | R Documentation |
Create list of windows picks suitable for plotting in PICK.GEN.
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>
PICK.GEN
data(KH) orgtim=c( 2005,214,7,1,10.7313152551651 ) tims=c( 0,46.7119336128235,102.438451051712,113.092049956322,123.540771961212 ) 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 ) PICK.GEN(KH, APIX=pp, WIN=win , SHOWONLY=TRUE)