radio_action.m

Kriging插值matlab toolbox

function		radio_action(window_index,option_index)
% action corresponding to the radio selection
% window_index = index of process task 
%            1 - Data Preparation
%            2 - Variogram
%            3 - Krig
%            2 - Visualization
% option_index = index for specific options
%%
%%  Kriging Software Package  version 3.0,   May 1, 2004
%%  Copyright (c) 1999, 2001, 2004, property of Dezhang Chu and Woods Hole Oceanographic
%%  Institution.  All Rights Reserved.

global hdl para data

switch window_index
	case 1					% data preparation window
		switch(option_index)  
 		  case 1				% external data processing program
			if get(hdl.dataprep.ext_prog,'value');
              set(hdl.dataprep.dat_conv,'enable','on')
              set(hdl.dataprep.dat_conv_fname,'visible','on');
     		  para.dataprep.ext_prog=1;
              set(hdl.dataprep.x_axis,'enable','off');
              set(hdl.dataprep.y_axis,'enable','off');
              set(hdl.dataprep.z_axis,'enable','off');
       	    else
              set(hdl.dataprep.dat_conv,'enable','off')
              set(hdl.dataprep.dat_conv_fname,'visible','off');
			  para.dataprep.ext_prog=0;
              set(hdl.dataprep.x_axis,'enable','on');
              set(hdl.dataprep.y_axis,'enable','on');
              set(hdl.dataprep.z_axis,'enable','on');
            end
		  case 2          % x-axis direction
			 if get(hdl.dataprep.xdir,'value');
			   set(hdl.dataprep.axes1,'xdir','reverse');
             else
               set(hdl.dataprep.axes1,'xdir','normal');
			 end
		  case 3          % y-axis direction
			 if get(hdl.dataprep.ydir,'value');
			   set(hdl.dataprep.axes1,'ydir','reverse');
             else
               set(hdl.dataprep.axes1,'ydir','normal');
			 end
		  case 4          % z-axis direction
			 if get(hdl.dataprep.zdir,'value');
			   set(hdl.dataprep.axes1,'zdir','reverse');
             else
               set(hdl.dataprep.axes1,'zdir','normal');
			 end
          case 5            % save data format to a file
              if get(hdl.dataprep.data_format,'value')
                  set(hdl.dataprep.data_format_browser,'enable','on');
              else
                  set(hdl.dataprep.data_format_browser,'enable','off');
              end
          case 6
              if get(hdl.dataprep.data_type1,'value') == 1
                  set(hdl.dataprep.data_type2,'value',0);
                  para.dataprep.data_disptype=1;   % current setting
                  dataprep3d(2);
              end
          case 7
              if get(hdl.dataprep.data_type2,'value') == 1
                  set(hdl.dataprep.data_type1,'value',0);
                  para.dataprep.data_disptype=2;   % current setting
                  dataprep3d(2);
            end                 
	   end
	case 2		% semi-variogram/correlogram window
		switch option_index 
			case 1								% select variogram 
				if get(hdl.vario.variogram,'value')
					set(hdl.vario.correlogram,'value',0);
				else
					set(hdl.vario.correlogram,'value',1);
				end	
            if para.status.dataprep == 1
               plotvariogram1d(1);
            elseif para.status.varigram == 1
               plotvariogram2d3d(1);
               variogram_theo(1); 
            end
			case 2								% select correlogram
				if get(hdl.vario.correlogram,'value')
					set(hdl.vario.variogram,'value',0);
				else
					set(hdl.vario.variogram,'value',1);
				end
            if para.status.dataprep == 1
               plotvariogram1d(1);
            elseif para.status.variogram == 1
				  corr_y_min=1-max(get(hdl.vario.axes1,'ylim'));
              plotvariogram1d(1);
              variogram_theo(1); 
				  corr_y_max=max(get(hdl.vario.axes1,'ylim'));
				  set(hdl.vario.axes1,'ylim',[corr_y_min corr_y_max] );
            end
			case 3							% load parameter file
				if get(hdl.vario.load_para_file,'value');
					para.vario.load_para=1;
					set(hdl.vario.load_file_browser,'enable','on');
                    set(hdl.vario.save_para_file,'value',0);
                    set(hdl.vario.save_file_browser,'enable','off');
				else
					set(hdl.vario.load_file_browser,'enable','off');
					para.vario.load_para=0;
				end	
           case 4                          % save parameters to a file
				if get(hdl.vario.save_para_file,'value');
					para.vario.save_para=1;
					set(hdl.vario.save_file_browser,'enable','on');
                    set(hdl.vario.load_para_file,'value',0);
                    set(hdl.vario.load_file_browser,'enable','off');
				else
					set(hdl.vario.save_file_browser,'enable','off');
					para.vario.save_para=0;
				end	
           case 5							% Enable 1-D variogram - isotropy
               para.vario.anisotropy=0;
 			   set(hdl.vario.enable2d3d,'value',0);
 	           set(hdl.vario.ang_beg_azm,'enable','off','BackgroundColor',[0.65 0.65 0.65]);
	           set(hdl.vario.ang_end_azm,'enable','off','BackgroundColor',[0.65 0.65 0.65]);
	           set(hdl.vario.ang_res_azm,'enable','off','BackgroundColor',[0.65 0.65 0.65]);
               set(hdl.vario.ang_wd_azm,'enable','off','BackgroundColor',[0.65 0.65 0.65]);
               set(hdl.vario.ang_rot_azm,'enable','off','BackgroundColor',[0.65 0.65 0.65]);
 	           set(hdl.vario.ang_beg_dip,'enable','off','BackgroundColor',[0.65 0.65 0.65]);
	           set(hdl.vario.ang_end_dip,'enable','off','BackgroundColor',[0.65 0.65 0.65]);
	           set(hdl.vario.ang_res_dip,'enable','off','BackgroundColor',[0.65 0.65 0.65]);
               set(hdl.vario.ang_wd_dip,'enable','off','BackgroundColor',[0.65 0.65 0.65]);
               set(hdl.vario.ang_rot_dip,'enable','off','BackgroundColor',[0.65 0.65 0.65]);
               set(hdl.vario.ytox_ratio,'enable','off','BackgroundColor',[0.65 0.65 0.65]);
	           set(hdl.vario.ztox_ratio,'enable','off','BackgroundColor',[0.65 0.65 0.65]);
               set(hdl.vario.ang_azm_2d3d,'enable','off');
               set(hdl.vario.ang_dip_2d3d,'enable','off');
           case 6							% Enable 2-D variogram  - anisotropy
                para.vario.anisotropy=1;
 				set(hdl.vario.enabled,'value',0);
                set(hdl.vario.ang_dip_2d3d,'enable','on');
                set(hdl.vario.ang_azm_2d3d,'enable','on');
                if get(hdl.vario.ang_azm_2d3d,'value')
  				   set(hdl.vario.ang_beg_azm,'enable','on','BackgroundColor',[1 1 1]);
 				   set(hdl.vario.ang_end_azm,'enable','on','BackgroundColor',[1 1 1]);
 				   set(hdl.vario.ang_res_azm,'enable','on','BackgroundColor',[1 1 1]);
 				   set(hdl.vario.ang_wd_azm,'enable','on','BackgroundColor',[1 1 1]);
 				   set(hdl.vario.ang_rot_azm,'enable','on','BackgroundColor',[1 1 1]);
                   set(hdl.vario.ytox_ratio,'enable','on','BackgroundColor',[1 1 1]);
                   if data.in.dim == 3
                     set(hdl.vario.ang_dip_2d3d,'enable','on');
                     set(hdl.vario.ang_beg_dip,'enable','on','BackgroundColor',[1 1 1]);
                     set(hdl.vario.ang_end_dip,'enable','on','BackgroundColor',[1 1 1]);
                     set(hdl.vario.ang_res_dip,'enable','on','BackgroundColor',[1 1 1]);
                     set(hdl.vario.ang_wd_dip,'enable','on','BackgroundColor',[1 1 1]);
                     set(hdl.vario.ang_rot_dip,'enable','on','BackgroundColor',[1 1 1]);
                     set(hdl.vario.ztox_ratio,'enable','on','BackgroundColor',[1 1 1]);
                   else
                     set(hdl.vario.ang_dip_2d3d,'enable','off');
                   end
                else 
       if 0                 % not effective at this time
                   set(hdl.vario.ang_beg_dip,'enable','on','BackgroundColor',[1 1 1]);
                   set(hdl.vario.ang_end_dip,'enable','on','BackgroundColor',[1 1 1]);
                   set(hdl.vario.ang_res_dip,'enable','on','BackgroundColor',[1 1 1]);
                   set(hdl.vario.ang_wd_dip,'enable','on','BackgroundColor',[1 1 1]);
                   set(hdl.vario.ang_rot_dip,'enable','on','BackgroundColor',[1 1 1]);
                   set(hdl.vario.ztox_ratio,'enable','on','BackgroundColor',[1 1 1]);
                   if data.in.dim == 3
 				     set(hdl.vario.ang_beg_azm,'enable','on','BackgroundColor',[1 1 1]);