App-SeismicUnixGui

 view release on metacpan or  search on metacpan

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

    }
    else {
        print("iPick.pl, unexpected gather number\n");
    }

}

=head2  sub  set_exit

  say goodbye 
  clear old images
  kill window
  stop script

=cut

sub set_exit {

    my ($self) = @_;
    my $exit = 'exit';

lib/App/SeismicUnixGui/developer/Stripped/statsMath/suharlan.su.main.noise  view on Meta::CPAN

 linear transform is whatever is well siuted for the application at	
 hand. Here, only the discrete Radon transform is used, so the program	
 is capable of separating events focused by that transform (linear,	
 parabolic or time-invariantly hyperbolic). Should other transform be	
 required, the changes to the program will be relatively		
 straightforward.							

 The reliability parameter is the most critical one to determine what	
 to extract as signal and what to reject as noise. It should be tested	
 for every dataset. The way to test it is to start with a small value,	
 say 0.1 or 0.01. If too much noise is present in the extracted noise,	
 it is too low. If too much signal was extracted, that is, part of the	
 signal was lost, it is too big. All other parameters have good default
 values and should perhaps not be changed in a first encounter with the
 program. The transform parameters are also critical. They should be	
 chosen such that no aliasing is present and such that the range of	
 interesting slopes is spanned by the transform but not much more. The 
 program suradon.c has more documentation on the transform paramters.	

lib/App/SeismicUnixGui/developer/Stripped/transform/suradon.su.main.transforms  view on Meta::CPAN

	Usually the input data are NMO corrected CMP gathers.  The
	first pass is to compute a parabolic Radon transform and
 	identify the multiples in the transform domain.  Then, the
 	module is run on all the data using "choose=1" to estimate
 	and subtract the multiples.  See the May, 1993 CWP Project
	Review for more extensive documentation.

 NWIN notes:
	The parabolic transform runs with higher resolution if the
 	mute zone is honored.  When "nwin" is specified larger than
   	one (say 6), then multiple windows are used through the mute
 	zone.  It is assumed in this case that the input data are
 	sorted by the offkey header item from small offset to large
 	offset.  This causes the code to run 6 times longer.  The
      mute time is taken from the "muts" header word.
      You may have to manually set this header field yourself, if
      it is not already set.

 References:
 Anderson, J. E., 1993, Parabolic and linear 2-D, tau-p transforms
       using the generalized radon tranform, in May 11-14, 1993

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

	}
	elsif ( $$dialog_type_sref eq 'Open' ) {

		# print("CASE 2 in prep for CASE 4\n");
		# After selecting a sunix program and before
		# flow selection:
		# select the color of the flow to fill automatically
		# either picked by user immediately before or, if not,
		# pick grey as the default.
		# But, if grey is occupied, send a warning message to the user
		# to say that the current grey will be overwritten
		# and that the prior flow will  not be saved automatically
		# Color was either
		# (1) selected prevsiously, or is
		# (2) not yet occupied
##			my $next_available_color = $color_listbox->get_next_available_flow_listbox_color();
##			$color_listbox->set_next_available_flow_listbox_color($next_available_color);

		$color_listbox->set_flow_listbox_next_available_occupancyNvacancy_aref(
			$L_SU_gui->{_occupied_listbox_aref} );
		my $next_available_color =

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

			local_set_entry_change_status($true);
			my $changed_entry = $param_widgets->{_changed_entry};            # always

			# print("param_widgets4pre_built_streams,changes,changed 1-yes 0 -no? $changed_entry\n");
			local_update_check_button_setting($idx);

			# local_set_last_changed_entry_index($idx);
		}

		return ($true);    # for Entry widget to say there is no error

		# second case is when we are using project_selector
		# project_selector does not yet have a max_index defined in a separate module
	}
	else {
		return ($true);    # for Entry widget to say there is no error
	}

}

=head2 sub error_check

 When entry values are in error 

=cut

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

		{
			_set_entry_change_status($true);
			my $changed_entry = $param_widgets_color_href->{_changed_entry};    #always

			# print("param_widgets_neutral,changes,changed 1-yes 0 -no? $changed_entry\n");
			_update_check_button_setting($idx);

			_set_index_on_entry($idx);
		}

		return ($true);                                                         # for Entry widget to say there is no error

		# second case is when we are using project_selector
		# project_selector does not yet have a max_index defined in a separate module
	}
	else {
		return ($true);    # for Entry widget to say there is no error
	}

}

=head2 sub error_check

 When entry values are in error 

=cut