RSEIS (version 2.4-1)

setwpix: Set Window Pix for PICK.GEN

Description

Create list of windows picks suitable for plotting in PICK.GEN.

Usage

setwpix(phase = NULL, col = NULL, yr = NULL, jd = NULL, hr = NULL, mi = NULL, sec = NULL, dur = NULL, name = NULL, comp = NULL, dispcomp = NULL)

Arguments

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

Value

• list of window picks

Details

Some phases should be displayed on only certain components of a station.

See Also

PICK.GEN

Examples

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)