/ 
App-SeismicUnixGui-0.87.2
River stage zero No dependents
/ App::SeismicUnixGui::big_streams::iSuvelan

DOCUMENTATION

SYNOPSIS

PCKAGE NAME: iSuvelan

Purpose:  interactive suvelan
AUTHOR:  Juan M. Lorenzo
DEPENDS: Seismic Unix modules from CSM 
DATE:    April 1 2009
DESCRIPTION:  Generate Velocity Analysis  
MODIFIED  Nov. 11, 2013
          July 24 2015   uses oop

NOTES

We recommend that you prepare the balance the amplitudes in the data before you hand them over to iSuvelan, which DOES not GAIN its data. The resulting semblances may suffer if you do not pay attention

USES

STEPS IN THE PROGRAM

inherit and Instantiate

classes 
 Create a new version of the package
 Personalize to give it a new name if you wish
 Use classes:
               suvelan

Import Special Variables

establish just the locally scoped variables

hash array of important variables

used within
 this package

subroutine clear

to blank out hash array values

subroutine cdp_num

establishes the CDP number being worked
Also establishes'cdp'# as a recognizable suffix
for file names

subroutine cdp_num_suffix

establishes the CDP number suffix 
that is being worked

subroutine dt_s

subroutine file_in

gets the file name
creates the sufile name to read
creates the full path for reading the sufile

print("iSuvelan_inbound is $iSuvelan->{_inbound}\n\n");

subroutine first_velocity

print("first velocity is $iSuvelan->{_first_velocity} \n\n");

subroutine freq

 creates the bandpass frequencies to filter data before
 conducting semblance analysis
 e.g., "3,6,40,50"

subroutine number_of_tries

keep track of the number of attempts
at picking velocities

subroutine set_anis1

subroutine set_anis2

subroutine set_data_scale

suvelan does not consider scalco or scalel header values automatically

subroutine set_dtratio

subroutine set_nsmooth

subroutine set_pwr

subroutine set_smute

subroutine tmax_s

subroutine velocity increment

subroutine number_of_velocities

subroutine calcNdisplay

calculate semblance and display results

WINDOW DATA

by cdp

WINDOW DATA

by time

set filtering parameters

semblance analysis

a scaling factor is needed to match 
scalel found in data headers
suvelan DOES not take scaleco or scalel into consdieration
automatically

DISPLAY DATA

new dx_major_divisions 1-14-20

conditions

when number_of_tries is >=2 
there should be a pre-exisiting digitized
overlay curve to plot as well

set suxwigb parameters

In the perl module for suxwigb we should
have (but we do not yet) an explanation of each of
these parameters

DEFINE FLOW(S)

  in interactive mode:
  First time you see the image number_of_tries =0
  the suximage is not interactive ( uses '&') 
  Second, third, etc. times (number_of_tries >= 1)
  The image will halt the flow  ('wait'), to allow user to 
  make new picks

  On the other hand suxwigb does not change between the first
  and last attempt
		$sufilter[1], $to, $sugain[2],            $to,
	suwind has currently no gain

do not halt flow

print(" suximage NO HALT with num tries $iSuvelan->{_number_of_tries}\n\n");

do not halt flow either

DB

print("2.suximage WITH HALT \n");
print("2. number of tries is  $iSuvelan->{_number_of_tries}\n\n");

#,';',' wait'); #$to,$sufilter[1],$to,$suvelan[1],$to,$suximage[1],$go);

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

subroutine maximum semblance to plot

subroutine minimum semblance to plot

subroutine TV pick file in

subroutine TV pick file out