DOCUMENTATION
SYNOPSIS
PERL PROGRAM NAME: iSelect_tr_Sumute_bottom.pm
AUTHOR: Juan Lorenzo
DATE: April 2 2009 V1.
Aug 9, 2011 V1.2
Sept. 2015, V 3
August 2016, V 3.1
June 12, 2017 V 3.1
adapted from iSelect_tr_Sumute_top3.pm
DESCRIPTION:
plot data to select bottom mute values
|
USE
NOTES
Instantiate
other packages
Create a new version of the package
Personalize to give it a new name if you wish
Use the following classes:
|
Establish
just the localally scoped variables
|
hash array
of important variables used within
this package
|
sub clear
to blank out hash array values
|
subroutine gather
sets gather number to consider
|
define the message family to use
|
sub gather_type
define the message family to use
|
sub offset_type
define the message family to use
|
sub file_in
Required file name
on which to pick top mute values
|
sub freq
creates the bandpass frequencies to filter data before
conducting semblance analysis
e.g., "3,6,40,50"
|
sub min_amplitude
minumum amplitude to plot
|
sub max_amplitude
maximum amplitude to plot
|
sub number_of_tries
keep track of the number of attempts
at picking top mute
|
subroutine calcNdisplay
main processing flow
calculate mute and display results
|
GAIN
WINDOW DATA
Set
print has reference value
DISPLAY
Set suxwigb
DEFINE FLOW(S)
in interactive mode:
first time you see the image, number_of_tries =0
second, third, etc. times number_of_tries >0
The pick file can be saved
|
RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
|
LOG FLOW(S)