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
Examples
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
DATA
WINDOW DATA
by
Set
filtering parameters
use lib "./libAll";
use iTop_Mute_config qw( $href_sufilter);
print has reference value
DISPLAY
DATA
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)
TO SCREEN AND FILE