SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (Perl module only)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES surandhw - set header word to random variable

surandhw <stdin >stdout key=tstat a=0 min=0 max=1		



Required parameters:						

	none (no op)						



Optional parameters:						

	key=tstat	header key word to set			

	a=0		=1 flag to add original value to final key

	noise=gauss	noise probability distribution		

			=flat for uniform; default Gaussian	

	seed=from_clock	random number seed (integer)		

	min=0		minimum random number			

	max=1		maximum radnom number		 	



NOTES:							

The value of header word key is computed using the formula:	

	val(key) = a * val(key) + rand				



Example:							

 	surandhw <indata key=tstat a=0 min=0 max=10  > outdata	

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 a

sub key

sub max

sub min

sub noise

sub seed

sub get_max_index

max index = number of input variables -1