www.gusucode.com > wavelet工具箱matlab源码程序 > wavelet/wmultisig1d/wmuldentoolmonab.m

    function varargout = wmuldentoolmonab(varargin)
% WMULDENTOOLMONAB MATLAB file for wmuldentoolmonab.fig
%	Called by WMULDENTOOL (More On Adapted Basis).

% Last Modified by GUIDE v2.5 11-Jul-2013 17:57:54
%
%   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 06-Jan-2006.
%   Last Revision: 25-Jan-2012.
%   Copyright 1995-2012 The MathWorks, Inc.
%   $Revision: 1.1.6.6 $ $Date: 2013/08/23 23:46:10 $ 

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @wmuldentoolmonab_OpeningFcn, ...
                   'gui_OutputFcn',  @wmuldentoolmonab_OutputFcn, ...
                   'gui_LayoutFcn',  [] , ...
                   'gui_Callback',   []);
if nargin && ischar(varargin{1})
    gui_State.gui_Callback = str2func(varargin{1});
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
    gui_mainfcn(gui_State, varargin{:});
end
% End initialization code - DO NOT EDIT
%--------------------------------------------------------------------------
function wmuldentoolmonab_OpeningFcn(hObject,~,handles,varargin)
% This function has no output args, see OutputFcn.
% hObject    handle to figure

% Choose default command line output for wmuldentoolmonab
handles.output = hObject;

% Update handles structure
guidata(hObject,handles);

%%!!!!!!!!!!!!!!!!!!!!%
% TOOL INITIALISATION %
%%!!!!!!!!!!!!!!!!!!!!%
callingFIG = gcbf;
wfigmngr('init_called_FIG',hObject);
set(hObject,'Name',getWavMSG('Wavelet:mdw1dRF:Pus_More_Nois_ADAP'));
uic = wfindobj(hObject,'Type','uicontrol');
txt = wfindobj(uic,'Tag','Pus_Close');
set(txt,'String',getWavMSG('Wavelet:commongui:Str_Close'));
txt = wfindobj(uic,'Tag','Txt_Eig_VAL');
set(txt,'String',getWavMSG('Wavelet:mdw1dRF:Eigenvalues'));
txt = wfindobj(uic,'Tag','Txt_Eig_VECT');
set(txt,'String',getWavMSG('Wavelet:mdw1dRF:Eigenvectors'));
txt = wfindobj(uic,'Tag','Txt_Robust');
set(txt,'String',getWavMSG('Wavelet:mdw1dRF:Txt_Robust'));
pus_MORE = varargin{1};
[pc,variances,cov_est] = deal(varargin{2}{:});
posCaller = get(callingFIG,'Position');
posLocFig = get(hObject,'Position');
posLocFig(1) = posCaller(1) + 0.025;
posLocFig(2) = posCaller(2)+(posCaller(4) - posLocFig(4))/2;
set(hObject,'Position',posLocFig,'UserData',pus_MORE);

set(handles.Axe_ALL,'XTick',[],'YTick',[],'Visible','On')
load('wmuldenpcamoab_img')
image(Xsigma,'Parent',handles.Axe_Sigma);
image(Xeigenv,'Parent',handles.Axe_EigenV);
image(Xlambda,'Parent',handles.Axe_Lambda);
image(Xsigmacov,'Parent',handles.Axe_SigmaVAL);
set([handles.Axe_Sigma,handles.Axe_EigenV,handles.Axe_Lambda],...
    'XTick',[],'YTick',[],'Visible','Off')
set(handles.Axe_SigmaVAL,'XTick',[],'YTick',[],'Visible','On')
nbVAL = length(variances);
switch nbVAL
    case 5       , FontSize = 10;
    case {6,7,8} , FontSize = 8;
    otherwise    , FontSize = 10;
end
formatNUM = '%9.4f';
set(handles.Txt_VARESTI,'FontSize',FontSize,...
    'String',num2str(cov_est,formatNUM));
set(handles.Txt_EigVAL_VAL,'FontSize',FontSize,...
    'String',num2str(variances,formatNUM));
set(handles.Txt_EIGVect_VAL,'FontSize',FontSize,...
    'String',num2str(pc,formatNUM));
%--------------------------------------------------------------------------
function varargout = wmuldentoolmonab_OutputFcn(~,~,handles) 

% Get default command line output from handles structure
varargout{1} = handles.output;
%--------------------------------------------------------------------------
function Pus_Close_Callback(~,~,handles) %#ok<*DEFNU>

fig = handles.output;
wmuldentool('Pus_More_ADAP_Callback',fig,[],handles)
%--------------------------------------------------------------------------