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

cpanm rayinvr

perl -MCPAN -e shell
install rayinvr