gui_median_filter.m

主成分分析和偏最小二乘SquaresPrincipal成分分析（ PCA ）和偏最小二乘（ PLS ）

function gui_median_filter;
% GUI_MEDIAN_FILTER provides median filtration of data

% last modified 02.12.04

global TS

str=TS.name;
[selection,ok] = listdlg('PromptString','Select data:',...
                'SelectionMode','multiple','ListString',str);

if ok
    prompt = {'Enter filter aperture '};
	dlg_title = 'Median filter';
	num_lines= 1;
	def     = {'5'};
	answer  = inputdlg(prompt,dlg_title,num_lines,def);
	if ~isempty(answer)
        aperture=str2num(answer{1});
        for i=1:length(selection)
            TS.data(:,selection(i))=median_filter(TS.data(:,selection(i)),aperture);
            TS.name{selection(i)}=['mf' num2str(aperture) '_' TS.name{selection(i)}];
            waitbar_handle=waitbar(i/length(selection));
        end
        delete(waitbar_handle);
    end
end