preprocess.m

很全的som工具箱 四个demo可为初学者提够帮助

end
for i=1:length(names)
  if isempty(names{i}) | isspace(names{i})
    bool = 0;
    return;
  end
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%% Subfunction: isvalid_var_name %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function bool=isvalid_var_name(name)

bool=1;

tmp=name{1};
if ~((tmp(1)>='a' & tmp(1)<='z') | (tmp(1)>='A' & tmp(1)<='Z'))
  errordlg('Invalid name.');
  bool=0;
  return;
end
for j=1:length(tmp)
  if ~((tmp(j)>='a' & tmp(j)<='z') | ...
       (tmp(j)>='A' & tmp(j)<='Z') | ...
       (j>1 & tmp(j) == '_') | ...
       (tmp(j)>='0' & tmp(j) <= '9')) | tmp(j) == '.'
    errordlg('Invalid name.');
    bool=0;
    return;
  end
  if j == length(tmp) & tmp(j) == '_'
    errordlg('Invalid name.');
    bool=0;
    return;
  end
end 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%% Subfunction: copy_delete %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function copy_delete(arg)

i=1;
while i <= length(arg) & arg(i) ~= ' '
  i=i+1;
end

arg2=arg(i+1:length(arg));
arg=arg(1:i-1);

if ~isempty(arg2)
  index=str2num(arg2);
  LOG=1;
else
  LOG=0;
end

sets_h=getfield(get(gcf,'UserData'),'sets_h');
if ~LOG
  index=get(sets_h,'Value');
end
pre_h=findobj(get(0,'Children'),'Tag','Preprocess');

if isempty(pre_h)
  errordlg('''Preprocess'' -figure does not exist. Terminating program.');
  close_preprocess;
  return;
end

switch arg
  case 'copy'
   data=get(pre_h,'UserData');
   data.sD_set(length(data.sD_set)+1)=data.sD_set(index);
   if ~LOG
     data.LOG{length(data.LOG)+1}='% Copy a data set.';
     data.LOG{length(data.LOG)+1}=cat(2,'preprocess(''copy_delete'',''',...
                                      'copy ',num2str(index),''');');
   end
   set(pre_h,'UserData',data);
   sD_names;   
   old=gcf;
   set(0,'CurrentFigure',pre_h);
   set_sD_stats;
   set(0,'CurrentFigure',old);
  case 'delete'
   if length(get(sets_h,'String')) == 1
     msgbox('No data left. Closing program...')
     close_preprocess;
     return;
   end
   data=get(pre_h,'UserData');
   if ~isempty(data.undo) &  any(strcmp('index',fieldnames(data.undo)))
     if data.undo.index > index
       data.undo.index = data.undo.index-1;
     elseif data.undo.index==index;
       data.undo=[];
     end
   end
   set1=data.sD_set(1:index-1);
   set2=data.sD_set(index+1:length(data.sD_set));

   if ~isempty(set1)
     data.sD_set=[set1 set2];
   else
     data.sD_set=set2;
   end
   if ~LOG
     data.LOG{length(data.LOG)+1}='% Delete a data set.';
     data.LOG{length(data.LOG)+1}=cat(2,'preprocess(''copy_delete'',''',...
                                      'delete ',num2str(index),''');');
   end
   set(pre_h,'UserData',data);

   set(sets_h,'Value',1);
   sD_names;
   sD_stats;
   old = gcf;
   set(0,'CurrentFigure',pre_h);

   for i=1:length(data.sD_set)
     string{i}=cat(2,sprintf('#%d: ',i),data.sD_set(i).name);
   end

   set(data.sD_set_h,'String',string);
   data.sData=data.sD_set(get(data.sD_set_h,'Value'));
   data.sData.MODIFIED=0;
   data.sData.INDEX=1;
   set(gcf,'UserData',data);
   write_sD_stats;

   sData=getfield(get(gcf,'UserData'),'sData');
   if sData.INDEX > index
     value=get(getfield(get(gcf,'UserData'),'sD_set_h'),'Value');
     set(getfield(get(gcf,'UserData'),'sD_set_h'),'Value',value-1);
     sData.INDEX = sData.INDEX -1;
   elseif sData.INDEX == index
     set(getfield(get(gcf,'UserData'),'sD_set_h'),'Value',1);
   end
 
   sel_sD;
   set(0,'CurrentFigure',old);
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function clipping(varargin)

if nargin ~= 1
  pre_h=findobj(get(0,'Children'),'Tag','Preprocess');
  preh_udata=get(pre_h,'UserData');
  preh_udata.LOG{length(preh_udata.LOG)+1}=...
        '% Starting the ''Clipping'' -window...';
  preh_udata.LOG{length(preh_udata.LOG)+1}='preprocess(''clipping'',''foo'');';
  set(pre_h,'UserData',preh_udata);
end

clip_h=findobj(get(0,'Children'),'Tag','Clipping');

if ~isempty(clip_h)
  figure(clip_h);
  return;
end

h0 = figure('Color',[0.8 0.8 0.8], ...
	'PaperPosition',[18 180 575 432], ...
	'PaperUnits','points', ...
	'Position',[718 389 300 249], ...
	'Tag','Clipping');

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
	'ListboxTop',0, ...
	'Position',[0.03 0.03614457831325301 0.4666666666666667 0.9236947791164658], ...
	'Style','frame', ...
	'Tag','Frame1');

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'ListboxTop',0, ...
	'Position',[0.05333333333333334 0.5983935742971887 0.42 0.3333333333333333], ...
	'Style','frame', ...
	'Tag','Frame2');

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'ListboxTop',0, ...
	'Style','frame', ...
	'Position',[0.05333333333333334 0.33 0.42 0.24], ...
	'Tag','Frame3');

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'ListboxTop',0, ...
	'Style','frame', ...
	'Position',[0.05333333333333334 0.06 0.42 0.24],...
	'Tag','Frame4');

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'ListboxTop',0, ...
	'Position',[0.5133333333333334 0.6385542168674698 0.4666666666666667 0.321285140562249], ...
	'Style','frame', ...
	'Tag','Frame5');

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'ListboxTop',0, ...
	'Position',[0.5366666666666667 0.6666666666666666 0.42 0.2650602409638554], ...
	'Style','frame', ...
	'Tag','Frame6');

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
	'Position',[0.31 0.823293172690763 0.15 0.09638554216867469], ...
	'Style','edit', ...
	'Tag','EditText1');

data.big_val_h = h1;

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
	'Position',[0.31 0.7148594377510039 0.15 0.09638554216867469], ...
	'Style','edit', ...
	'Tag','EditText2');

data.small_val_h = h1;

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
	'Position',[0.31 0.606425702811245 0.15 0.09638554216867469], ...
	'Style','edit', ...
	'Tag','EditText3');

data.equal_val_h=h1;

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',6, ...
	'FontWeight','demi', ...
	'HorizontalAlignment','left', ...
	'ListboxTop',0, ...
	'Position',[0.06000000000000001 0.8473895582329316 0.22 0.05622489959839357], ...
	'String','Bigger than', ...
	'Style','text', ...
	'Tag','StaticText1');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',6, ...
	'FontWeight','demi', ...
	'HorizontalAlignment','left', ...
	'ListboxTop',0, ...
	'Position',[0.06000000000000001 0.7389558232931727 0.24 0.04819277108433735], ...
	'String','Smaller than', ...
	'Style','text', ...
	'Tag','StaticText2');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',6, ...
	'FontWeight','demi', ...
	'HorizontalAlignment','left', ...
	'ListboxTop',0, ...
	'Position',[0.06000000000000001 0.610441767068273 0.22 0.07228915662650602], ...
	'String','Equal to', ...
	'Style','text', ...
	'Tag','StaticText3');

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'ListboxTop',0, ...
	'Position',[0.07000000000000001 0.465863453815261 0.06333333333333334 0.07228915662650602], ...
	'Style','radiobutton', ...
	'Value',1,...
	'Tag','Radiobutton1');

data.and_button_h=h1;

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'ListboxTop',0, ...
	'Position',[0.07000000000000001 0.3734939759036144 0.06333333333333334 0.07228915662650602], ...
	'Style','radiobutton', ...
	'Tag','Radiobutton2');

data.or_button_h=h1;

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',6, ...
	'FontWeight','demi', ...
	'HorizontalAlignment','left', ...
	'Position',[0.1466666666666667 0.45 0.2333333333333333 0.07228915662650602], ...
	'String','AND', ...
	'Style','text', ...
	'Tag','StaticText4');

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',6, ...
	'FontWeight','demi', ...
	'HorizontalAlignment','left', ...
	'ListboxTop',0, ...
	'String','OR', ...
	'Position',[0.1466666666666667 0.35 0.2333333333333333 0.07228915662650602], ...
	'Style','text', ...
	'Tag','StaticText5');

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'ListboxTop',0, ...
	'Position',[0.07000000000000001 0.1967871485943775 0.06333333333333334 0.07228915662650602], ...
	'Style','radiobutton', ...
	'Value',1,...
	'Tag','Radiobutton3');

data.all_button_h=h1;

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'ListboxTop',0, ...
	'Position',[0.07000000000000001 0.09236947791164658 0.06333333333333334 0.07228915662650602], ...
	'Style','radiobutton', ...
	'Tag','Radiobutton4');

data.sel_vects_button_h=h1;

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',6, ...
	'FontWeight','demi', ...
	'HorizontalAlignment','left', ...
	'ListboxTop',0, ...
	'Position',[0.1466666666666667 0.1927710843373494 0.2333333333333333 0.07228915662650602], ...
	'String','All vectors', ...
	'Style','text', ...
	'Tag','StaticText6');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',6, ...
	'FontWeight','demi', ...
	'HorizontalAlignment','left', ...
	'ListboxTop',0, ...
	'Position',[0.1466666666666667 0.09638554216867469 0.3133333333333334 0.05622489959839357], ...
	'String','Among selected', ...
	'Style','text', ...
	'Tag','StaticText7');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
	'Position',[0.7866666666666667 0.823293172690763 0.1366666666666667 0.09236947791164658], ...
	'Style','edit', ...
	'Tag','EditText4');

data.replace_val_h=h1;

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',6, ...
	'FontWeight','demi', ...
	'HorizontalAlignment','left', ...
	'ListboxTop',0, ...
	'Position',[0.5633333333333334 0.8273092369477911 0.2066666666666667 0.07630522088353413], ...
	'String','Replace', ...
	'Style','text', ...
	'Tag','StaticText8');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'FontWeight','demi', ...
	'ListboxTop',0, ...
	'Position',[0.5700000000000001 0.6827309236947791 0.3566666666666667 0.08032128514056225], ...
	'String','Replace', ...
	'Tag','Pushbutton1');

data.OK_button_h=h1;

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
	'Callback','preprocess close_c',...
	'FontWeight','demi', ...
	'ListboxTop',0, ...
	'Position',[0.6633333333333333 0.07228915662650602 0.2833333333333333 0.09638554216867469], ...
	'String','Close', ...
	'Tag','Pushbutton2');


data.state.and=1;
data.state.all=1;
data.state.big=[];
data.state.small=[];
data.state.equal=[];
data.state.replace=[];

set(data.or_button_h,'Callback','preprocess and_or_cb or');
set(data.and_button_h,'Callback','preprocess and_or_cb and');
set(data.and_button_h,'Value',1);
set(data.all_button_h,'Callback','preprocess all_sel_cb all');
set(data.sel_vects_button_h,'Callback','preprocess all_sel_cb sel');
set(data.big_val_h,'Callback','preprocess set_state_vals big');
set(data.small_val_h,'Callback','preprocess set_state_vals small');
set(data.equal_val_h,'Callback','preprocess set_state_vals equal');
set(data.replace_val_h,'Callback','preprocess set_state_vals replace');
set(data.OK_button_h,'Callback','preprocess clip_data clip');
set(h0,'UserData',data);

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function select(varargin)

if nargin ~= 1
  pre_h=findobj(get(0,'Children'),'Tag','Preprocess');
  preh_udata=get(pre_h,'UserData');
  preh_udata.LOG{length(preh_udata.LOG)+1}=...
      '% Starting the ''Select'' -window...';
  preh_udata.LOG{length(preh_udata.LOG)+1}='preprocess(''select'',''foo'');';
  set(pre_h,'UserData',preh_udata);
end

sel_h=findobj(get(0,'Children'),'Tag','Select');

if ~isempty(sel_h)
  figure(sel_h);
  return;
end

h0 = figure('Color',[0.8 0.8 0.8], ...
	'PaperPosition',[18 180 576 432], ...
	'PaperUnits','points', ...
	'Position',[750 431 168 365], ...
	'Tag','Select');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
	'ListboxTop',0, ...
	'Position',[0.05357142857142857 0.2712328767123288 0.8333333333333333 0.6301369863013698], ...
	'Style','frame', ...
	'Tag','Frame1');

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
	'ListboxTop',0, ...
	'Position',[0.05357142857142857 0.1041095890410959 0.8333333333333333 0.1397260273972603], ...
	'Style','frame', ...
	'Tag','Frame2');

h1 = uicontrol('Parent',h0,...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'ListboxTop',0, .