DOCUMENTATION
SYNOPSIS
PROGRAM NAME: Sudipfilt.pl
Purpose: f-k spectral analysis
AUTHOR: Juan M. Lorenzo
DEPENDS: Seismic Unix modules from CSM
DATE: Feb 15 2008 V0.1
V0.2 June 30 2016 make oop
DESCRIPTION: based upon non-oop Xamine.pl
USES
(for subroutines)
manage_files_by
(for variable definitions)
SeismicUnix (Seismic Unix modules)
use App::SeismicUnixGui::misc::SeismicUnix qw($in $out $on $go $to $suffix_ascii $off $suffix_su) ;
USAGE
Sucat
NEEDS
EXAMPLES
NOTES
We are using Moose
moose already declares that you need debuggers turned on
so you don't need a line like the following:
use warnings;
sample rate = 125 us
d1 = sample rate in ms = .000125
Instantiate classes
Create a new version of the package
Personalize to give it a new name if you wish
Use classes:
flow
log
message
sufilter
sugain
sureduce
suspecfk
suxwigb
suximage
sudipfilt
notes
Get configuration information
TOP LEFT PLOT
includes sugain variables
Declare file names
sugain
Set gain variables for TOP LEFT PLOT
suinterp
Set interpolation to reduce aliasing
sufilter
Set frequency filter ing parameters
suwind
Set windowing parameters
Window
by time
Window
by field record
f-k analysis
make non-dimensional
TODO linear moveout
# LINEAR MOVEOUT @sureduce[1] = (" sureduce \\ rv=1.5 \\ ");
# LINEAR MOVEOUT @sureduce[2] = (" sureduce \\ rv=-1.5 \\ ");
Dip filter
set parameters
Dip filter
set parameters
DISPLAY DATA as wiggles
Set parameters
Top middle image
DISPLAY DATA as wiggles
Set parameters
DISPLAY DATA as IMAGE
Set parameters
Top left image
DISPLAY DATA as IMAGE
Set parameters
Top right image
DISPLAY DATA as IMAGE
Set parameters
Bottom left image
DISPLAY DATA as IMAGE
Set parameters
Bottom-right image
Standard:
1. DEFINE FLOW(S)
top left image
top middle plot
top right plot
bottom left image
bottom middle plot
bottom right image
output filtered data set
2. RUN FLOW(S)
3. LOG FLOW(S)TO SCREEN AND FILE