SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (Perl module only)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES SUIMP3D - generate inplane shot records for a point

scatterer embedded in three dimensions using	

the Born integral equation			",							

suimp3d [optional parameters] >stdout

Optional parameters

	nshot=1		number of shots			

	nrec=1		number of receivers		

	c=5000		speed				

	dt=.004		sampling rate			

	nt=256		number of samples		

	x0=1000		point scatterer location	

	y0=0		point scatterer location	

	z0=1000		point scatterer location	

   dir=0		do not include direct arrival	

	            =1 include direct arrival	

	sxmin=0		first shot location		

	symin=0		first shot location		

	szmin=0		first shot location		

	gxmin=0		first receiver location		

	gymin=0		first receiver location		

	gzmin=0		first receiver location		

	dsx=100		x-step in shot location		

	dsy=0	 	y-step in shot location		

	dsz=0	 	z-step in shot location		

	dgx=100		x-step in receiver location	

	dgy=0		y-step in receiver location	

	dgz=0		z-step in receiver location	



 Example:                                              

       suimp3d nrec=32 | sufilter | supswigp | ...     





 Credits:

	CWP: Norm Bleistein, Jack K. Cohen

  UHouston: Chris Liner 2010 (added direct arrival option)





 

 Theory: Use the 3D Born integral equation (e.g., Geophysics,

 v51, n8, p1554(7)). Use 3-D delta function for alpha.



 Note: Setting a 3D offset in a single offset field beats the

       hell out of us.  We did _something_.



 Trace header fields set: ns, dt, tracl, tracr, fldr, tracf,

                          sx, sy, selev, gx, gy, gelev, offset

User's notes (Juan Lorenzo) untested

CHANGES and their DATES

Import packages

instantiation of packages

Encapsulated hash of private variables

sub Step

collects switches and assembles bash instructions by adding the program name

sub note

collects switches and assembles bash instructions by adding the program name

sub clear

sub c

sub dgx

sub dgy

sub dgz

sub dir

sub dsx

sub dsy

sub dsz

sub dt

sub gxmin

sub gymin

sub gzmin

sub nrec

sub nshot

sub nt

sub sxmin

sub symin

sub szmin

sub x0

sub y0

sub z0

sub get_max_index

max index = number of input variables -1