SYNOPSIS
PERL PROGRAM NAME:
AUTHOR: Juan Lorenzo (Perl module only)
DATE:
DESCRIPTION:
Version:
USE
NOTES
Examples
SYNOPSIS
SEISMIC UNIX NOTES
SUADDEVENT - add a linear or hyperbolic moveout event to seismic data
suaddevent <stdin >stdout [optional parameters]
Required parameters:
none
Optional parameters:
type=nmo =lmo for linear event
t0=1.0 zero-offset intercept time IN SECONDS
vel=3000. moveout velocity in m/s
amp=1. amplitude
dt= must provide if 0 in headers (seconds)
Typical usage:
sunull nt=500 dt=0.004 ntr=100 | sushw key=offset a=-1000 b=20 \\
| suaddevent v=1000 t0=0.05 type=lmo | suaddevent v=1800 t0=0.8 \
| sufilter f=8,12,75,90 | suxwigb clip=1 &
Credits:
Gary Billings, Talisman Energy, May 1996, Apr 2000, June 2001
Note: code is inefficient in that to add a single "spike", with sinc
interpolation, an entire trace is generated and added to
the input trace. In fact, only a few points needed be created
and added, but the current coding avoids the bookkeeping re
which are the relevant points!User's notes (Juan Lorenzo) untested
CHANGES and their DATES
Import packages
instantiation of packages
Encapsulated hash of private variables
sub Step
collects switches and assembles bash instructions by adding the program name
sub note
collects switches and assembles bash instructions by adding the program name
sub clear
sub amp
sub dt
sub f
sub nt
sub t0
sub type
sub v
sub vel
sub get_max_index
max index = number of input variables -1