App-SeismicUnixGui

 view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/big_streams/iSpectralAnalysis.pl  view on Meta::CPAN

 PROGRAM NAME: iSA (interactive Spectral Analysis) 
 AUTHOR:  Juan Lorenzo

=head2 CHANGES and their DATES

 DATE:    August 1 2016
 Version  1.0 
          read iSpectralAnalysis.config text file
 Version 1.1 Nov 8 2020use Moose;
 		 accepts NaN as undeclared gather number

=head2 DESCRIPTION

   Interactively pick muting parameters

=head2 USE

=head2 Examples

=head2 SEISMIC UNIX NOTES

lib/App/SeismicUnixGui/big_streams/iSpectralAnalysis.pl  view on Meta::CPAN

=head2 Declare variables 

    in local memory space

=cut

my ( $calc_rb, $exit_rb, $pick_rb, $next_rb, $saveNcont_rb );
my $rb_value = "red";
our $mw;
my $NaN = $var->{_NaN};


=head2 Create Main Window 

 Start event-driven loop
 Interaction with user
 initialize values
 If picks are new, show
 message on how to pick data

lib/App/SeismicUnixGui/big_streams/iSpectralAnalysis.pl  view on Meta::CPAN

=head2 Display

     data first time

=cut	

print("NEW PICKS\n");
$message->set('iSpectralAnalysis');
$message->gather_num($NaN);
$message->instructions('firstSpectralAnalysis');

=head2 Print

  configuration
  my @config = $mw->configure();
  print Pretty @config;


=cut

lib/App/SeismicUnixGui/developer/Stripped/shapeNcut/sunan.su.main.amplitudes  view on Meta::CPAN

 SUNAN - remove NaNs & Infs from the input stream		

    sunan < in.su >out.su					

 Optional parameters:						
 verbose=1	echo locations of NaNs or Infs to stderr	
	        =0 silent					
 ...user defined ... 						

 value=0.0	NaNs and Inf replacement value			
 ... and/or....						
 interp=0	=1 replace NaNs and Infs by interpolating	
                   neighboring finite values			

 Notes:							
 A simple program to remove NaNs and Infs from an input stream.
 The program sets NaNs and Infs to "value" if interp=0. When	
 interp=1 NaNs are replaced with the average of neighboring values
 provided that the neighboring values are finite, otherwise	
 NaNs and Infs are replaced by "value".			


 Author: Reginald H. Beardsley  2003   rhb@acm.org

  A simple program to remove NaNs & Infs from an input stream. They
  shouldn't be there, but it can be hard to find the cause and fix
  the problem if you can't look at the data.

  Interpolation idea comes from a version of sunan modified by
  Balasz Nemeth while at Potash Corporation in Saskatchewan.

lib/App/SeismicUnixGui/messages/SuMessages.pm  view on Meta::CPAN

 2. build a list or hash with all the possible variable
    names you may use and you can even change them

=cut

my $get = L_SU_global_constants->new();

my $var          = $get->var();
my $empty_string = $var->{_empty_string};
my $NaN			= $var->{_NaN};

=head2

set defaults

VELAN DATA 
 m/s

 
=cut

lib/App/SeismicUnixGui/messages/SuMessages.pm  view on Meta::CPAN

sub instructions {

	my ( $self, $instructions ) = @_;

#print(
#		"SuMessages,instructions:$instructions,gather_num: $SuMessages->{_gather_num}\n\n"
#	);

	if (   defined($instructions)
		&& ( length( $SuMessages->{_gather_num} ) or
		        $SuMessages->{_gather_num} eq $NaN )
		&& $instructions ne $empty_string )
	{

		$SuMessages->{_instructions} = $instructions;

=item CASE:

  interactive spectral analysis 

=cut 

lib/App/SeismicUnixGui/misc/L_SU_global_constants.pm  view on Meta::CPAN

	_3_lines                => '3',
	_4_lines                => '4',
	_8_lines                => '8',
	_7_lines                => '7',
	_1_pixel                => '1',
	_3_pixels               => '3',
	_6_pixels               => '6',
	_24_pixels              => '24',
	_12_pixels              => '12',
	_18_pixels              => '18',
	_NaN                    => 'NaN',
	_five_characters        => '5',
	_flow                   => 'frame',
	_half_tiny_width        => '6',
	_hundred_characters     => '100',
	_large__width           => '200',
	_light_gray             => 'gray90',
	_literal_empty_string   => '\'\'',
	_l_suplot_box_positionNsize    => '600x800+1000+1000',
	_l_suplot_width                => '500',
	_l_suplot_height               => '300',