SYNOPSIS
PERL PROGRAM NAME:
AUTHOR: Juan Lorenzo (Perl module only)
DATE:
DESCRIPTION:
Version:
USE
NOTES
Examples
SYNOPSIS
SEISMIC UNIX NOTES SULCTHW - Linear Coordinate Transformation of Header Words
sulcthw <infile >outfile
xt=0.0 Translation of X
yt=0.0 Translation of Y
zt=0.0 Translation of Z
xr=0.0 Rotation around X in degrees
yr=0.0 Rotation aroun Y in degrees
zr=0.0 Rotation around Z in degrees
Notes:
Translation:
x = x'+ xt;y = y'+ yt;z = z' + zt;
Rotations:
Around Z axis
X = x*cos(zr)+y*sin(zr);
Y = y*cos(zr)-x*sin(zr);
Around Y axis
Z = z*cos(yr)+x*sin(yr);
X = x*cos(yr)-z*sin(yr);
Around X axis
Y = y*cos(xr)+z*sin(xr);
Z = Z*cos(xr)-y*sin(xr);
Header words triplets that are transformed
sx,sy,selev
gx,gy,gelev
The header words restored as 32 bit integers using SEG-Y
convention (with coordinate scalers scalco and scalel).
After transformation they are converted back to integers and stored.
Credits: Potash Corporation of Saskatchewan: Balasz Nemeth c. 2008User'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 X
sub Y
sub Z
sub x
sub xr
sub xt
sub yr
sub yt
sub zr
sub zt
sub get_max_index
max index = number of input variables -1