NAME

Tpow - scales on the time axis


SYNOPSIS

Tpow par= < in.H > out.H


DESCRIPTION

   Select a power of t for seismogram scaling
   out(t)  =  data(t)* t**tpow


INPUT PARAMETERS

n1,n2,n3 - int

       [nt],[nx],[11 usual seismic data t inner
d1,d2 -float

       [dt],[dx] samplinginterval
o1,o2 -float

       [ot],[ox] [first sample time]
tpow -float

       power of time
panel -char*

       [1] (default)    1st panel is used for estimating tpow.
       When panel=all, all panels are used.
tmin -float [o1] t0

       time of the first sample to be used in estimating tpow. 
tmax -float

       [4.]end of region used on time axis
ofdep -char*

       [unknown]      unknown: automatic picking of first
         arrivals will be applied to compute the muting parameters
       no:  data are offset-independent 
       yes: data are offset-dependent 
v0- float

       (km/s) apparent |dx/dt|. muting 
        before first arrival time will 
        be applied in estimating the 
        medians. when no v0 is given
        and ofdep is not "no", automatic
        picking will be applied 
nxmin - int

       [1]  the first trace used for Tpow 
nxmax=nx

       the last trace used. For 3-d data,
       trace nxmin to trace nxmax are 
       used on each plane if panel=all.
eps - float

       [0.05] (default)    iteration of estimating dtpow stops
       when abs(dtpow) < eps.
idt - integer

       [2] subsample rate (integer) of time for tpow
       estimating
idx - integer

       [1]  subsample rate (integer) of trace for tpow estimating
iwind - integer

       [9]  window length used for calculating L-1 energy in autopicking
perc - float

       [10.] when L-1 norm of present window exceeds
       that of the previous one by 
       "perc", first arrival is picked 


COMMENTS


METHOD

  m02 * (.25*tmax)**(dtpow) = m24 * (.75*tmax)**(dtpow)
  tpow = tpow + dtpow
  where 
    m02 --- median over (0, tmax/2)    of | data(t) | * t**tpow
    m24 --- median over (tmax/2, tmax) of | data(t) | * t**tpow


CATEGORY

seis/filter


COMPILE LEVEL

DISTR