开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > 波变换 > 查看源码
utthrgbl.m
资源名称：wavelet_toolbox.rar　[点击查看]
上传用户：haiyisale
上传日期：2013-01-09
资源大小：3246k
文件大小：25k
源码类别：

波变换

开发平台：

Matlab

utthrgbl.m：源码内容
  1. function varargout = utthrgbl(option,fig,varargin)
  2. %UTTHRGBL Utilities for global thresholding (compression).
  3. %   VARARGOUT = UTTHRGBL(OPTION,FIG,VARARGIN)
  5. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 15-Sep-98.
  6. %   Last Revision: 31-Jan-2003.
  7. %   Copyright 1995-2004 The MathWorks, Inc.
  8. %   $Revision: 1.7.4.2 $  $Date: 2004/03/15 22:42:10 $
  10. % Tag property.
  11. %--------------
  12. tag_fra_tool = ['Fra_' mfilename];
  14. switch option
  15.   case {'move','up','down','create'} , 
  17.   otherwise
  18.     % ud.handlesUIC = ...
  19.     %   [fra_utl;txt_top;pop_met; ...
  20.     %    txt_sel;sli_sel;edi_sel; ...
  21.     %    txt_nor;edi_nor;txt_npc; ...
  22.     %    txt_zer;edi_zer;txt_zpc; ...
  23.     %    tog_res;pus_est];
  24.     %---------------------------------
  25.     uic = findobj(get(fig,'Children'),'flat','type','uicontrol');
  26.     fra = findobj(uic,'style','frame','tag',tag_fra_tool);
  27.     if isempty(fra) , return; end
  28.     calledFUN = wfigmngr('getWinPROP',fig,'calledFUN');
  29.     ud = get(fra,'Userdata');
  30.     toolOPT = ud.toolOPT;
  31.     handlesUIC = ud.handlesUIC;
  32.     handlesOBJ = ud.handlesOBJ;
  33.     switch option
  34.       case 'handles'
  35.         handles = [handlesUIC(:);handlesOBJ(:)];
  36.         varargout{1} = handles(ishandle(handles));
  37.         return;
  38.       case {'handlesUIC','handlesuic'}
  39.         varargout{1} = handlesUIC;
  40.         return;
  41.     end
  42.     ind = 2;
  43.     txt_top = handlesUIC(ind); ind = ind+1;
  44.     pop_met = handlesUIC(ind); ind = ind+1;
  45.     txt_sel = handlesUIC(ind); ind = ind+1;
  46.     sli_sel = handlesUIC(ind); ind = ind+1;
  47.     edi_sel = handlesUIC(ind); ind = ind+1;
  48.     txt_nor = handlesUIC(ind); ind = ind+1;
  49.     edi_nor = handlesUIC(ind); ind = ind+1;
  50.     txt_npc = handlesUIC(ind); ind = ind+1;  
  51.     txt_zer = handlesUIC(ind); ind = ind+1;
  52.     edi_zer = handlesUIC(ind); ind = ind+1;
  53.     txt_zpc = handlesUIC(ind); ind = ind+1;  
  54.     tog_res = handlesUIC(ind); ind = ind+1;
  55.     pus_est = handlesUIC(ind); ind = ind+1;  
  56. end
  58. switch option
  59.     case 'down'
  60.         % in2 = [ axe_perf ;  
  61.         %         lin_norm ; lin_zero ; lin_perf ; ...
  62.         %         sli_sel ;  edi_sel ; edi_nor ; edi_zer ];
  63.         %--------------------------------------------------------------
  64.         sel_type = get(fig,'SelectionType');
  65.         if strcmp(sel_type,'open') , return; end
  66.         axe = varargin{1}(1);
  67.         if (axe~=gca) , axes(axe); end;
  68.     
  69.         % Setting the thresholded coefs axes invisible.
  70.         %----------------------------------------------
  71.         calledFUN = wfigmngr('getWinPROP',fig,'calledFUN');
  72.         feval(calledFUN,'clear_GRAPHICS',fig);
  73.         lin_perf = varargin{1}(4);
  74.         set(lin_perf,'Color','g');
  75.         drawnow
  76.         argCbstr = [num2mstr(fig) ',' num2mstr(varargin{1})];
  77.         cba_move = [mfilename '(''move'',' argCbstr ');'];
  78.         cba_up   = [mfilename '(''up'','  argCbstr ');'];
  79.         wtbxappdata('new',fig,'save_WindowButtonUpFcn',get(fig,'WindowButtonUpFcn'));
  80.         set(fig,'WindowButtonMotionFcn',cba_move,'WindowButtonUpFcn',cba_up);
  82.     case 'move'
  83.         % in2 = [ axe_perf ;  
  84.         %         lin_norm ; lin_zero ; lin_perf ; ...
  85.         %         sli_sel ;  edi_sel ; edi_nor ; edi_zer ];
  86.         %--------------------------------------------------
  87.         axe = varargin{1}(1);
  88.         p = get(axe,'currentpoint');
  89.         new_thresh = p(1,1);
  90.         sli_sel = varargin{1}(5);
  91.         min_sli = get(sli_sel,'Min');
  92.         max_sli = get(sli_sel,'Max');
  93.         new_thresh = max(min_sli,min(new_thresh,max_sli));
  94.         xnew = [new_thresh new_thresh];
  95.         xold = get(varargin{1}(4),'Xdata');
  96.         if isequal(xold,xnew) , return; end
  97.         [new_rl2scr,new_n0scr,new_thresh_BIS] = ...
  98.                 key2info(varargin{1}(2),varargin{1}(3),new_thresh,'T');
  99.         if new_rl2scr~=100 ,  new_thresh = new_thresh_BIS; end
  100.         set(varargin{1}(4),'Xdata',xnew);
  101.         set(sli_sel,'value',new_thresh);
  102.         set(varargin{1}(6),'string',sprintf('%1.4g',new_thresh));
  103.         set(varargin{1}(7),'string',sprintf('%5.2f',new_rl2scr));
  104.         set(varargin{1}(8),'string',sprintf('%5.2f',new_n0scr));
  106.     case 'up'
  107.         % in2 = [ axe_perf ;  
  108.         %         lin_norm ; lin_zero ; lin_perf ; ...
  109.         %         sli_sel ;  edi_sel ; edi_nor ; edi_zer ];
  110.         %--------------------------------------------------
  111.         save_WindowButtonUpFcn = wtbxappdata('del',fig,'save_WindowButtonUpFcn');
  112.         set(fig,'WindowButtonMotionFcn','wtmotion',...
  113. 'WindowButtonUpFcn',save_WindowButtonUpFcn);
  114.         set(varargin{1}(4),'Color',wtbutils('colors','linTHR'));
  115.         drawnow;
  117.     case 'create'
  119.         % Get Globals.
  120.         %--------------
  121.         [Def_Txt_Height,Def_Btn_Height,Def_Btn_Width,Pop_Min_Width, ...
  122.          X_Spacing,Y_Spacing,sliYProp,Def_FraBkColor,Def_EdiBkColor] = ...
  123.             mextglob('get',...
  124.                 'Def_Txt_Height','Def_Btn_Height','Def_Btn_Width',   ...
  125.                 'Pop_Min_Width','X_Spacing','Y_Spacing','Sli_YProp', ...
  126.                 'Def_FraBkColor','Def_EdiBkColor');
  128.         % Defaults.
  129.         %----------
  130.         xleft = Inf; xright  = Inf; xloc = Inf;
  131.         ytop  = Inf; ybottom = Inf; yloc = Inf;
  132.         bkColor = Def_FraBkColor;
  133.         enaVal = 'off';
  134.         visVal = 'on';
  135.         isbior = 0;
  136.         toolOPT = 'dw1dcomp';
  138.         % Inputs.
  139.         %--------        
  140.         nbarg = length(varargin);
  141.         for k=1:2:nbarg
  142.             arg = lower(varargin{k});
  143.             switch arg
  144.               case 'left'    , xleft   = varargin{k+1};
  145.               case 'right'   , xright  = varargin{k+1};
  146.               case 'xloc'    , xloc    = varargin{k+1};
  147.               case 'bottom'  , ybottom = varargin{k+1};
  148.               case 'top'     , ytop    = varargin{k+1};
  149.               case 'yloc'    , yloc    = varargin{k+1};
  150.               case 'bkcolor' , bkColor = varargin{k+1};
  151.               case 'visible' , visVal  = varargin{k+1};
  152.               case 'isbior'  , isbior  = varargin{k+1};
  153.               case 'toolopt' , toolOPT = varargin{k+1};
  154.             end 
  155.         end
  157.         % Structure initialization.
  158.         %--------------------------
  159.         ud = struct(...
  160.                 'toolOPT',toolOPT, ...
  161.                 'visible',lower(visVal),...
  162.                 'isbior',isbior, ...
  163.                 'handlesUIC',[], ...
  164.                 'handlesOBJ',[], ...
  165.                 'handleORI' ,[], ... 
  166.                 'handleTHR' ,[], ... 
  167.                 'handleRES' ,[]  ... 
  168.                 );
  170.         % Figure units.
  171.         %--------------
  172.         str_numfig = num2mstr(fig);
  173.         old_units  = get(fig,'units');
  174.         fig_units  = 'pixels';
  175.         if ~isequal(old_units,fig_units), set(fig,'units',fig_units); end       
  177.         % Positions utilities.
  178.         %---------------------
  179.         dx = X_Spacing; bdx = 3;
  180.         dy = Y_Spacing; bdy = 4;       
  181.         d_txt  = (Def_Btn_Height-Def_Txt_Height);
  182.         deltaY = (Def_Btn_Height+dy);
  183.         d_lev  = 2;
  184.         sli_hi = Def_Btn_Height*sliYProp;
  185.         sli_dy = 0.5*Def_Btn_Height*(1-sliYProp);
  186.         txt_width = Def_Btn_Width;
  187.         dy_lev    = Def_Btn_Height+d_lev;
  189.         % Setting frame position.
  190.         %------------------------
  191.         w_fra   = wfigmngr('get',fig,'fra_width');
  192.         h_fra   = 6*Def_Btn_Height+5.5*bdy;
  193.                    
  194.         xleft   = utposfra(xleft,xright,xloc,w_fra);
  195.         ybottom = utposfra(ybottom,ytop,yloc,h_fra);
  196.         pos_fra = [xleft,ybottom,w_fra,h_fra];
  198.         % Position property.
  199.         %-------------------
  200.         xleft = xleft+bdx;
  201.         w_rem = w_fra-2*bdx;
  202.         ylow  = ybottom+h_fra-Def_Btn_Height-bdy;
  204.         w_uic       = (5*txt_width)/2;
  205.         x_uic       = xleft+(w_rem-w_uic)/2;
  206.         y_uic       = ylow;
  207.         pos_txt_top = [x_uic, y_uic+d_txt/2, w_uic, Def_Txt_Height];
  209.         y_uic       = y_uic-Def_Btn_Height;
  210.         pos_pop_met = [x_uic, y_uic, w_uic, Def_Btn_Height];
  212.         y_uic       = y_uic-Def_Btn_Height-bdy;
  213.         pos_txt_sel = [x_uic, y_uic+d_txt/2, w_uic, Def_Txt_Height];
  215.         y_uic       = y_uic-Def_Btn_Height;
  216.         wid1        = (15*w_rem)/26;
  217.         wid2        = (8*w_rem)/26;
  218.         wid3        = (2*w_rem)/26;
  219.         wx          = (w_rem-wid1-wid2-wid3)/4;
  220.         
  221.         pos_sli_sel = [xleft+wx, y_uic+sli_dy, wid1-wx, sli_hi];
  222.         x_uic       = pos_sli_sel(1)+pos_sli_sel(3)+wx;
  223.         pos_edi_sel = [x_uic, y_uic, wid2, Def_Btn_Height];
  225.         y_uic       = y_uic-Def_Btn_Height-bdy;        
  226.         pos_txt_nor = [xleft, y_uic+d_txt/2, wid1, Def_Txt_Height];
  227.         x_uic       = pos_txt_nor(1)+pos_txt_nor(3)+wx;
  228.         pos_edi_nor = [x_uic, y_uic, wid2, Def_Btn_Height];
  229.         x_uic       = pos_edi_nor(1)+pos_edi_nor(3)+wx;
  230.         pos_txt_npc = [x_uic, y_uic+d_txt/2, wid3, Def_Txt_Height];
  232.         y_uic       = y_uic-Def_Btn_Height-bdy;       
  233.         pos_txt_zer = [xleft, y_uic+d_txt/2, wid1, Def_Txt_Height];
  234.         x_uic       = pos_txt_zer(1)+pos_txt_zer(3)+wx;
  235.         pos_edi_zer = [x_uic, y_uic, wid2, Def_Btn_Height];
  236.         x_uic       = pos_edi_zer(1)+pos_edi_zer(3)+wx;
  237.         pos_txt_zpc = [x_uic, y_uic+d_txt/2, wid3, Def_Txt_Height];
  239.         w_uic = w_fra/2-bdx;
  240.         x_uic = pos_fra(1);
  241.         h_uic = (3*Def_Btn_Height)/2;
  242.         y_uic = pos_fra(2)-h_uic-Def_Btn_Height;     
  243.         pos_pus_est = [x_uic, y_uic, w_uic, h_uic];
  244.         x_uic = pos_fra(1)+w_uic+2*bdx;
  245.         pos_tog_res = [x_uic, y_uic, w_uic, h_uic];
  247.         % String property.
  248.         %-----------------
  249.         str_txt_top = 'Select thresholding method';
  250.         str_pop_met = wthrmeth(toolOPT,'names');
  251.         if ud.isbior
  252.             str_txt_nor = 'Norm cfs recovery';
  253.         else
  254.             str_txt_nor = 'Retained energy';
  255.         end
  256.         str_txt_sel = 'Select Global Threshold';
  257.         str_txt_zer = 'Number of zeros';
  258.         str_tog_res = 'Residuals';
  259.         str_pus_est = 'Compress';
  261.         % Create UIC.
  262.         %------------
  263.         comProp = {...
  264.            'Parent',fig,    ...
  265.            'Unit',fig_units ...
  266.            'Visible',visVal ...
  267.            };
  269.         commonTxtProp = {comProp{:}, ...
  270.             'Style','Text',...
  271.             'Backgroundcolor',Def_FraBkColor...
  272.             };        
  274.         commonEdiProp = {comProp{:}, ...
  275.             'Style','Edit',...
  276.             'String','',...
  277.             'Backgroundcolor',Def_EdiBkColor,...
  278.             'HorizontalAlignment','center'...
  279.             };        
  281.         fra_utl = uicontrol(comProp{:}, ...
  282.                             'Style','frame', ...
  283.                             'Position',pos_fra, ...
  284.                             'Backgroundcolor',bkColor, ...
  285.                             'Tag',tag_fra_tool ...
  286.                             );
  288.         txt_top = uicontrol(commonTxtProp{:},      ...
  289.                             'Position',pos_txt_top,...
  290.                             'HorizontalAlignment','center',...
  291.                             'String',str_txt_top   ...
  292.                             );
  294.         cba = [mfilename '(''update_methName'',' str_numfig ');'];
  295.         pop_met = uicontrol(comProp{:}, ...
  296.                             'Style','Popup',...
  297.                             'Position',pos_pop_met,...
  298.                             'String',str_pop_met,...
  299.                             'HorizontalAlignment','center',...
  300.                             'Userdata',1,...
  301.                             'Callback',cba ...
  302.                             );
  304.         txt_sel = uicontrol(commonTxtProp{:},      ...
  305.                             'Position',pos_txt_sel,...
  306.                             'HorizontalAlignment','center',...
  307.                             'String',str_txt_sel   ...
  308.                             );
  310.         cba_sli = [mfilename '(''updateTHR'',' str_numfig ',''sli'');'];
  311.         sli_sel = uicontrol(comProp{:}, ...
  312.                             'Style','Slider',...
  313.                             'Position',pos_sli_sel,...
  314.                             'Min',0,...
  315.                             'Max',1,...
  316.                             'Value',0.5, ...
  317.                             'Callback',cba_sli ...
  318.                             );
  321.         cba_edi = [mfilename '(''updateTHR'',' str_numfig ',''edi'');'];
  322.         edi_sel = uicontrol(commonEdiProp{:}, ...
  323.                             'Position',pos_edi_sel,...
  324.                             'Callback',cba_edi ...
  325.                             );
  327.         txt_nor = uicontrol(commonTxtProp{:}, ...
  328.                             'Position',pos_txt_nor,...
  329.                             'HorizontalAlignment','left',...
  330.                             'String',str_txt_nor...
  331.                             );
  333.         cba_nor = [mfilename '(''updateTHR'',' str_numfig ',''nor'');'];
  334.         edi_nor = uicontrol(commonEdiProp{:}, ...
  335.                             'Position',pos_edi_nor,...
  336.                             'Callback',cba_nor ...
  337.                             );
  339.         txt_npc = uicontrol(commonTxtProp{:}, ...
  340.                             'Position',pos_txt_npc,...
  341.                             'HorizontalAlignment','center',...
  342.                             'String','%'...
  343.                             );
  345.         txt_zer = uicontrol(commonTxtProp{:}, ...
  346.                             'Position',pos_txt_zer,...
  347.                             'HorizontalAlignment','left',...
  348.                             'String',str_txt_zer...
  349.                             );
  351.         cba_zer = [mfilename '(''updateTHR'',' str_numfig ',''zer'');'];
  352.         edi_zer = uicontrol(commonEdiProp{:}, ...
  353.                             'Position',pos_edi_zer,...
  354.                             'Callback',cba_zer ...
  355.                             );
  357.         txt_zpc = uicontrol(commonTxtProp{:}, ...
  358.                             'Position',pos_txt_zpc,...
  359.                             'HorizontalAlignment','center',...
  360.                             'String','%'...
  361.                             );
  362.  
  363.         cba = [mfilename '(''residuals'',' str_numfig ');'];
  364.         tip = 'More on Residuals';
  365.         tog_res = uicontrol(comProp{:},             ...
  366.                             'Style','Togglebutton', ...
  367.                             'Position',pos_tog_res, ...
  368.                             'String',str_tog_res,   ...
  369.                             'Enable','off',         ...
  370.                             'Callback',cba,         ...
  371.                             'tooltip',tip,          ...
  372.                             'Interruptible','On'    ...
  373.                             );
  375.         cba_pus_est = [mfilename '(''compress'',' str_numfig ');'];
  376.         pus_est = uicontrol(comProp{:},             ...
  377.                             'Style','Pushbutton',   ...
  378.                             'Position',pos_pus_est, ...
  379.                             'String',xlate(str_pus_est),   ...
  380.                             'callback',cba_pus_est  ...
  381.                             );
  383. % Add Context Sensitive Help (CSHelp).
  384. %-------------------------------------
  385.         hdl_COMP_DENO_STRA = [...
  386. fra_utl,txt_top,pop_met; ...
  387.             txt_sel,sli_sel,edi_sel  ...
  388. ];
  389.         hdl_COMP_SCORES = [...
  390.              txt_nor,edi_nor,txt_npc, ...
  391.              txt_zer,edi_zer,txt_zpc  ...
  392.   ];
  393. wfighelp('add_ContextMenu',fig,hdl_COMP_DENO_STRA,'COMP_DENO_STRA');
  394. wfighelp('add_ContextMenu',fig,hdl_COMP_SCORES,'COMP_SCORES');
  395. %-------------------------------------
  397. % Store handles.
  398. %--------------
  399. ud.handlesUIC = ...
  400.             [fra_utl;txt_top;pop_met; ...
  401.              txt_sel;sli_sel;edi_sel; ...
  402.              txt_nor;edi_nor;txt_npc; ...
  403.              txt_zer;edi_zer;txt_zpc; ...
  404.              tog_res;pus_est];
  405.         set(fra_utl,'Userdata',ud);
  406.         if nargout>0
  407.             varargout{1} = [pos_fra(1) , pos_pus_est(2) , pos_fra([3 4])];
  408.         end
  410.     case 'displayPerf'
  411.         % Displaying perfos.
  412.         %-------------------
  413.         [pos_axe_perf,pos_axe_legend, ...
  414.             thresh,n0scr,rl2scr,suggthr] = deal(varargin{:});
  415.         fig_units = get(fig,'units');
  416.         comAxeProp = {...
  417.           'Parent',fig, ...
  418.           'Units',fig_units, ...
  419.           'Drawmode','fast', ...
  420.           'Box','On' ...
  421.           };
  422.         [colLINE,colPERF,colZERO] = wtbutils('colors','legend');
  423.         axe_perf = axes(comAxeProp{:},'Position',pos_axe_perf);
  424.         epsx = 0.0001;
  425.         xlim = [-epsx    1.01*max(thresh)+epsx];
  426.         set(axe_perf,'Xlim',xlim,'Ylim',[0 104]);
  427.         lin_zero = line('Xdata',thresh,...
  428.                        'Ydata',n0scr,...
  429.                        'Color',colZERO,...
  430.                        'EraseMode','none',...
  431.                        'Parent',axe_perf);
  432.         lin_norm = line('Xdata',thresh,...
  433.                        'Ydata',rl2scr,...
  434.                        'Color',colPERF,...
  435.                        'EraseMode','none',...
  436.                        'Parent',axe_perf);
  437.         if max(n0scr)==min(n0scr)   , set(lin_zero,'Linewidth',2); end
  438.         if max(rl2scr)==min(rl2scr) , set(lin_norm,'Linewidth',2); end
  439.         lin_perf = line('Xdata',[suggthr suggthr],...
  440.                         'Ydata',[0.5 104],...
  441.                         'Color',colLINE,...
  442.                         'EraseMode','xor',...
  443.                         'linestyle',':',...
  444.                         'Parent',axe_perf);
  445.         setappdata(lin_perf,'selectPointer','V')
  446.         handles = [axe_perf ; lin_norm ; lin_zero ; lin_perf; ...
  447.                    sli_sel ; edi_sel ; edi_nor ; edi_zer        ...
  448.                    ];
  449.         argCbstr = [num2mstr(fig) ',' num2mstr(handles)];
  450.         cba_lin_perf = [mfilename '(''down'',' argCbstr ');'];
  451.         set(lin_perf,'ButtonDownFcn',cba_lin_perf);
  453.         % Displaying legend.
  454.         %-------------------
  455.         ftnsize = get(0,'DefaultAxesFontSize');
  456.         ud.dynvzaxe.enable = 'off';
  457.         axe_legend  = axes(comAxeProp{:}, ...
  458.                            'Position',pos_axe_legend,       ...
  459.                            'XTicklabelMode','manual',       ...
  460.                            'YTicklabelMode','manual',       ...
  461.                            'XTicklabel',[],'YTicklabel',[], ...
  462.                            'XTick',[],'YTick',[],           ...
  463.                            'Xlim',[0 180],                  ...
  464.                            'Ylim',[0 20],                   ...
  465.                            'Fontsize',ftnsize,              ...
  466.                            'Userdata',ud                    ...
  467.                            );
  468.         
  469.         line(...
  470.              'Parent',axe_legend,...
  471.              'Xdata',11:25,...
  472.              'Ydata',ones(1,15)*15,...
  473.              'LineStyle',':',...
  474.              'Color',colLINE);
  476.         line(...
  477.              'Parent',axe_legend,...
  478.              'Xdata',11:25,...
  479.              'Ydata',ones(1,15)*10,...
  480.              'Color',colPERF);
  482.         line(...
  483.              'Parent',axe_legend,...
  484.              'Xdata',11:25,...
  485.              'Ydata',ones(1,15)*5,...
  486.              'Color',colZERO);
  488.         text(30,15,'  Global threshold','Parent',axe_legend);
  489.         if ud.isbior
  490.             str_norm_txt = '  Norm coefs recovery in %';
  491.         else
  492.             str_norm_txt = '  Retained energy in %';
  493.         end
  494.         text(30,10,str_norm_txt,'Parent',axe_legend);
  495.         text(30,5,'  Number of zeros in %','Parent',axe_legend);
  496.         ud.handlesOBJ.axes  = [axe_perf ; axe_legend]; 
  497.         ud.handlesOBJ.lines = [lin_norm ; lin_zero ; lin_perf]; 
  498.         set(fra,'Userdata',ud);
  500.     case 'visible'
  501.         visVal     = lower(varargin{1});
  502.         ud.visible = visVal;
  503.         axe_datas = ud.handlesOBJ.axes;
  504.         handles = [findobj(axe_datas(:));handlesUIC(:)];
  505.         set(handles(ishandle(handles)),'visible',visVal);
  507.     case 'get'
  508.         nbarg = length(varargin);
  509.         if nbarg<1 , return; end
  510.         for k = 1:nbarg
  511.            outType = lower(varargin{k});
  512.            switch outType
  513.              case 'position'  , varargout{k} = get(fra,'Position');
  514.              case 'valthr'    , varargout{k} = get(sli_sel,'Value');
  515.              case 'handleori' , varargout{k} = ud.handleORI;
  516.              case 'handlethr' , varargout{k} = ud.handleTHR;
  517.              case 'handleres' , varargout{k} = ud.handleRES;
  518.              case 'handlesuic', varargout{k} = ud.handlesUIC;
  519.            end
  520.         end
  522.     case 'getPerfo'
  523.        lin_norm  = handlesOBJ.lines(1);
  524.        lin_zero  = handlesOBJ.lines(2);
  525.        threshold = get(sli_sel,'Value');
  526.        [varargout{1},varargout{2}] = key2info(lin_norm,lin_zero,threshold,'T');
  528.     case 'set'
  529.         nbarg = length(varargin);
  530.         if nbarg<1 , return; end
  531.         for k = 1:2:nbarg
  532.            argType = lower(varargin{k});
  533.            argVal  = varargin{k+1};
  534.            switch argType
  535.              case 'handleori' , ud.handleORI = argVal; set(fra,'Userdata',ud);
  536.              case 'handlethr' , ud.handleTHR = argVal; set(fra,'Userdata',ud);
  537.              case 'handleres' , ud.handleRES = argVal; set(fra,'Userdata',ud);
  538.              case 'thrbounds'
  539.                set(sli_sel,'Min',argVal(1),'Value',argVal(2),'Max',argVal(3));
  540.                set(edi_sel,'String',sprintf('%1.4g',argVal(2)));
  541.              case 'perfo'
  542.                set(edi_nor,'String',sprintf('%5.2f',argVal(1)));
  543.                set(edi_zer,'String',sprintf('%5.2f',argVal(2)));
  544.            end
  545.         end
  547.     case 'compress'
  548.         feval(calledFUN,'compress',fig);
  550.     case 'update_by_Caller'
  551.         feval(calledFUN,'update_GBL_meth',fig);
  553.     case 'get_GBL_par'
  554.         numMeth = get(pop_met,'value');
  555.         meth    = wthrmeth(toolOPT,'shortnames',numMeth);
  556.         varargout = {numMeth , meth , get(sli_sel,'Value')};
  558.     case 'update_GBL_meth'
  559.         % called by : calledFUN('update_GBL_meth', ...)
  560.         %------------------------------------------------
  561.         valTHR = varargin{1};
  562.         utthrgbl('updateTHR',fig,'meth',valTHR);
  564.     case 'enable_tog_res'
  565.         enaVal = varargin{1};
  566.         set(tog_res,'Enable',enaVal);
  568.     case 'update_methName'
  569.         utthrgbl('update_by_Caller',fig)
  571.     case 'updateTHR'
  572.         upd_orig = varargin{1};
  573.         lin_norm = handlesOBJ.lines(1);
  574.         lin_zero = handlesOBJ.lines(2);
  575.         lin_perf = handlesOBJ.lines(3);
  577.         % Updating compression information.
  578.         %----------------------------------
  579.         count = 0; err = '';
  580.         switch upd_orig
  581.            case 'sli' , % Default
  583.            case 'edi'
  584.              keytype = 'T';
  585.              valstr = get(edi_sel,'string');
  586.              [keyval,count,err] = sscanf(valstr,'%f');
  588.            case 'nor'
  589.              keytype = 'N';
  590.              valstr = get(edi_nor,'string');
  591.              [keyval,count,err] = sscanf(valstr,'%f');
  593.            case 'zer'
  594.              keytype = 'Z';
  595.              valstr = get(edi_zer,'string');
  596.              [keyval,count,err] = sscanf(valstr,'%f');
  598.            case 'meth'
  599.              keytype = 'T';
  600.              keyval  = varargin{2};
  601.              count  = 1;
  603.         end
  604.         if (count~=1) | ~isempty(err)
  605.             keytype = 'T';
  606.             keyval = get(sli_sel,'Value');
  607.         end
  609.         [new_rl2scr,new_n0scr,new_thresh] = ...
  610.                         key2info(lin_norm,lin_zero,keyval,keytype);
  611.         set(sli_sel,'value',new_thresh);
  612.         set(edi_sel,'string',sprintf('%1.4g',new_thresh));
  613.         set(edi_nor,'string',sprintf('%5.2f',new_rl2scr));
  614.         set(edi_zer,'string',sprintf('%5.2f',new_n0scr));
  615.         xold = get(lin_perf,'Xdata');
  616.         xnew = [new_thresh new_thresh];
  617.         if ~isequal(xold,xnew)
  618.             set(lin_perf,'Xdata',xnew);
  619.             feval(calledFUN,'clear_GRAPHICS',fig);
  620.         end
  622.     case 'residuals'
  623.         [handleORI,handleTHR,handleRES] = ...
  624.             utthrgbl('get',fig,'handleORI','handleTHR','handleRES');
  625.         wmoreres('create',fig,tog_res,handleRES,handleORI,handleTHR,'blocPAR');
  627.     otherwise
  628.         errargt(mfilename,'Unknown Option','msg');
  629.         error('*');
  630. end
  632. %=============================================================================%
  633. % INTERNAL FUNCTIONS
  634. %=============================================================================%
  635. %-----------------------------------------------------------------------------%
  636. function varargout = wthrmeth(toolOPT,varargin)
  638. switch toolOPT
  639.   case {'dw1dcomp','wp1dcomp'}
  640.     thrMethods = {...
  641.         'Balance sparsity-norm',       'bal_sn',       1; ...
  642.         'Remove near 0',               'rem_n0',       2  ...
  643.         };
  645.   case {'dw2dcomp','wp2dcomp'}
  646.     thrMethods = {...
  647.         'Balance sparsity-norm',       'bal_sn',       1; ...
  648.         'Remove near 0',               'rem_n0',       2; ...
  649.         'Bal. sparsity-norm (sqrt)',   'sqrtbal_sn',   3  ...
  650.         };
  651. end
  652. nbin = length(varargin);
  653. if nbin==0 , varargout{1} = thrMethods; return; end
  655. option = varargin{1};
  656. switch option
  657.   case 'names'
  658.      out = strvcat(1,thrMethods{:,1});
  659.      varargout{1} = out(2:end,:);
  660.      if nbin==2
  661.          num = varargin{2};
  662.          varargout{1} = deblank(varargout{1}(num,:));
  663.      end
  665.   case 'shortnames'
  666.      out = strvcat(1,thrMethods{:,2});
  667.      varargout{1} = out(2:end,:);
  668.      if nbin==2
  669.          num = varargin{2};
  670.          varargout{1} = deblank(varargout{1}(num,:));
  671.      end
  673.   case 'nums'
  674.      varargout{1} = cat(1,thrMethods{:,3});
  675. end
  676. %-----------------------------------------------------------------------------%
  677. %=============================================================================%