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

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

波变换

开发平台：

Matlab

utthrw2d.m：源码内容
  1. function varargout = utthrw2d(option,fig,varargin)
  2. %UTTHRW2D Utilities for wavelet thresholding 2-D.
  3. %   VARARGOUT = UTTHRW2D(OPTION,FIG,VARARGIN)
  5. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 01-Oct-98.
  6. %   Last Revision: 22-May-2003.
  7. %   Copyright 1995-2004 The MathWorks, Inc.
  8. %   $Revision: 1.8.4.2 $  $Date: 2004/03/15 22:42:12 $
  10. % Default values.
  11. %----------------
  12. max_lev_anal = 5;
  13. def_lev_anal = 2;
  15. % Tag property.
  16. %--------------
  17. tag_fra_tool = ['Fra_' mfilename];
  19. switch option
  20.   case {'create'}
  22.   otherwise
  23.     uic = findobj(get(fig,'Children'),'flat','type','uicontrol');
  24.     fra = findobj(uic,'style','frame','tag',tag_fra_tool);
  25.     if isempty(fra) , return; end
  26.     calledFUN = wfigmngr('getWinPROP',fig,'calledFUN');
  27.     ud = get(fra,'Userdata');
  28.     toolOPT = ud.toolOPT;
  29.     toolStatus = ud.status;
  30.     handlesUIC = ud.handlesUIC;
  31.     h_CMD_LVL  = ud.h_CMD_LVL;
  32.     h_GRA_LVL  = ud.h_GRA_LVL;
  33.     if isequal(option,'handles')
  34.         handles = [handlesUIC(:);h_CMD_LVL(:)];
  35.         varargout{1} = handles(ishandle(handles));
  36.         return;
  37.     end
  38.     thrStruct = ud.thrStruct;
  39.     ind = 2;
  40.     txt_top = handlesUIC(ind); ind = ind+1;
  41.     pop_met = handlesUIC(ind); ind = ind+1;
  42.     rad_sof = handlesUIC(ind); ind = ind+1;
  43.     rad_har = handlesUIC(ind); ind = ind+1;
  44.     txt_noi = handlesUIC(ind); ind = ind+1;
  45.     pop_noi = handlesUIC(ind); ind = ind+1;
  46.     txt_BMS = handlesUIC(ind); ind = ind+1;  
  47.     sli_BMS = handlesUIC(ind); ind = ind+1;
  48.     pop_dir = handlesUIC(ind); ind = ind+1;
  49.     txt_tit(1:3) = handlesUIC(ind:ind+2); ind = ind+3;
  50.     txt_nor = handlesUIC(ind); ind = ind+1;
  51.     edi_nor = handlesUIC(ind); ind = ind+1;
  52.     txt_npc = handlesUIC(ind); ind = ind+1;
  53.     txt_zer = handlesUIC(ind); ind = ind+1;
  54.     edi_zer = handlesUIC(ind); ind = ind+1;
  55.     txt_zpc = handlesUIC(ind); ind = ind+1;
  56.     tog_res = handlesUIC(ind); ind = ind+1;
  57.     pus_est = handlesUIC(ind); ind = ind+1;
  58. end
  60. switch option
  61.     case 'create'
  62.         % Get Globals.
  63.         %--------------
  64.         [Def_Txt_Height,Def_Btn_Height,Def_Btn_Width,Pop_Min_Width, ...
  65.          X_Spacing,Y_Spacing,sliYProp,Def_FraBkColor,Def_EdiBkColor] = ...
  66.             mextglob('get',...
  67.                 'Def_Txt_Height','Def_Btn_Height','Def_Btn_Width',   ...
  68.                 'Pop_Min_Width','X_Spacing','Y_Spacing','Sli_YProp', ...
  69.                 'Def_FraBkColor','Def_EdiBkColor');
  71.         % Defaults.
  72.         %----------
  73.         xleft = Inf; xright  = Inf; xloc = Inf;
  74.         ytop  = Inf; ybottom = Inf; yloc = Inf;
  75.         bkColor = Def_FraBkColor;
  76.         enaVal  = 'Off';
  77.         %------------------------
  78.         ydir   = -1;
  79.         levmin = 1;
  80.         levmax = def_lev_anal;
  81.         levmaxMAX = max_lev_anal;
  82.         levANAL = def_lev_anal;
  83.         visVal = 'On';        
  84.         isbior = 0;
  85.         statusINI = 'On';
  86.         toolOPT   = 'deno';
  87.         %------------------------
  89.         % Inputs.
  90.         %--------        
  91.         nbarg = length(varargin);
  92.         for k=1:2:nbarg
  93.             arg = lower(varargin{k});
  94.             switch arg
  95.               case 'left'     , xleft     = varargin{k+1};
  96.               case 'right'    , xright    = varargin{k+1};
  97.               case 'xloc'     , xloc      = varargin{k+1};
  98.               case 'bottom'   , ybottom   = varargin{k+1};
  99.               case 'top'      , ytop      = varargin{k+1};
  100.               case 'yloc'     , yloc      = varargin{k+1};
  101.               case 'bkcolor'  , bkColor   = varargin{k+1};
  102.               case 'visible'  , visVal    = varargin{k+1};
  103.               case 'enable'   , enaVal    = varargin{k+1};
  104.               case 'isbior'   , isbior    = varargin{k+1};
  105.               case 'ydir'     , ydir      = varargin{k+1};
  106.               case 'levmin'   , levmin    = varargin{k+1};
  107.               case 'levmax'   , levmax    = varargin{k+1};
  108.               case 'levmaxmax', levmaxMAX = varargin{k+1};
  109.               case 'levanal'  , levANAL   = varargin{k+1};
  110.               case 'status'   , statusINI = varargin{k+1};
  111.               case 'toolopt'  , toolOPT   = varargin{k+1};
  112.             end 
  113.         end
  115.         % Structure initialization.
  116.         %--------------------------
  117.         % h_CMD_LVL: [txt_lev ; sli_lev ; edi_lev] x Level
  118.         % h_GRA_LVL: [axe_thr ; lin_min ; lin_max] x Dir x Level
  119.         h_CMD_LVL = NaN*ones(3,levmaxMAX);        
  120.         h_GRA_LVL = NaN*ones(3,3,levmaxMAX);
  121.         threshDEF = NaN*ones(3,levmaxMAX);
  122.         thrStruct = struct('value',threshDEF,'max',threshDEF);
  123.         ud = struct(...
  124.                 'toolOPT',toolOPT, ...
  125.                 'status',statusINI,...
  126.                 'levmin',levmin,   ...
  127.                 'levmax',levmax,   ...
  128.                 'levmaxMAX',levmaxMAX, ...
  129.                 'levANAL',levANAL, ...
  130.                 'thrStruct',thrStruct, ...            
  131.                 'visible',lower(visVal),...
  132.                 'ydir', ydir,          ...
  133.                 'isbior',isbior,       ...
  134.                 'handlesUIC',[],       ...
  135.                 'h_CMD_LVL',h_CMD_LVL, ...
  136.                 'h_GRA_LVL',h_GRA_LVL, ...
  137.                 'handleORI' ,[],       ... 
  138.                 'handleTHR',[],        ... 
  139.                 'handleRES' ,[]        ... 
  140.                 );
  142.         % Figure units.
  143.         %--------------
  144.         str_numfig = num2mstr(fig);
  145.         old_units  = get(fig,'units');
  146.         fig_units  = 'pixels';
  147.         if ~isequal(old_units,fig_units), set(fig,'units',fig_units); end       
  149.         % Positions utilities.
  150.         %---------------------
  151.         dx = X_Spacing; bdx = 3;
  152.         dy = Y_Spacing; bdy = 4;       
  153.         d_txt  = (Def_Btn_Height-Def_Txt_Height);
  154.         deltaY = (Def_Btn_Height+dy);
  155.         d_lev  = 2;
  156.         sli_hi = Def_Btn_Height*sliYProp;
  157.         sli_dy = 0.5*Def_Btn_Height*(1-sliYProp);
  159.         % Setting frame position.
  160.         %------------------------
  161.         switch  toolOPT
  162.           case {'deno','esti'} , NB_Height = 7;
  163.           case {'comp'}        , NB_Height = 8;
  164.         end
  165.         w_fra   = wfigmngr('get',fig,'fra_width');
  166.         h_fra   = (levmaxMAX+NB_Height)*Def_Btn_Height+...
  167.                    levmaxMAX*d_lev+ (NB_Height-2)*bdy;
  168.         xleft   = utposfra(xleft,xright,xloc,w_fra);
  169.         ybottom = utposfra(ybottom,ytop,yloc,h_fra);
  170.         pos_fra = [xleft,ybottom,w_fra,h_fra];
  172.         % String property of objects.
  173.         %----------------------------
  174.         str_txt_top = 'Select thresholding method';
  175.         str_txt_BMS = '-       Sparsity       +';
  176.         str_pop_dir = strvcat('Horizontal details coefs', ...
  177.                               'Diagonal details coefs',   ...
  178.                               'Vertical details coefs'  );
  179.         str_txt_tit = strvcat('Level','Select','Thresh');
  180.         str_tog_res = 'Residuals';
  181.         str_pop_met = wthrmeth(toolOPT,'names');
  182.         switch  toolOPT
  183.           case {'deno','esti'}
  184.             str_rad_sof = 'soft';
  185.             str_rad_har = 'hard';
  186.             str_txt_noi = 'Select noise structure';
  187.             str_pop_noi = strvcat(...
  188.                 'Unscaled white noise', ...
  189.                 'Scaled white noise',   ...
  190.                 'Non-white noise'       ...
  191.                 );
  193.           case 'comp'
  194.             if ud.isbior
  195.                 str_txt_nor = 'Norm cfs recovery';
  196.             else
  197.                 str_txt_nor = 'Retained energy';
  198.             end
  199.             str_txt_zer = 'Number of zeros';
  200.         end
  201.         switch  toolOPT
  202.           case 'deno' , str_pus_est = 'De-noise'; estOPT = 'denoise';
  203.           case 'comp' , str_pus_est = 'Compress'; estOPT = 'compress';
  204.           case 'esti' , str_pus_est = 'Estimate'; estOPT = 'estimate';
  205.         end
  207.         % Position properties.
  208.         %---------------------
  209.         txt_width   = Def_Btn_Width;
  210.         dy_lev      = Def_Btn_Height+d_lev;
  211.         xleft       = xleft+bdx;
  212.         w_rem       = w_fra-2*bdx;
  213.         ylow        = ybottom+h_fra-Def_Btn_Height-bdy;
  215.         w_uic       = (5*txt_width)/2;
  216.         x_uic       = xleft+(w_rem-w_uic)/2;
  217.         y_uic       = ylow;
  218.         pos_txt_top = [x_uic, y_uic+d_txt/2, w_uic, Def_Txt_Height];
  220.         y_uic       = y_uic-Def_Btn_Height;
  221.         pos_pop_met = [x_uic, y_uic, w_uic, Def_Btn_Height];
  222.         y_uic       = y_uic-Def_Btn_Height;
  223.         switch  toolOPT
  224.           case {'deno','esti'}
  225.             y_uic       = y_uic-bdy;
  226.             w_rad       = Pop_Min_Width;
  227.             w_sep       = (w_uic-2*w_rad)/3;
  228.             x_rad       = x_uic+w_sep;
  229.             pos_rad_sof = [x_rad, y_uic, w_rad, Def_Btn_Height];
  230.             x_rad       = x_rad+w_rad+w_sep;
  231.             pos_rad_har = [x_rad, y_uic, w_rad, Def_Btn_Height];
  233.             y_uic       = y_uic-Def_Btn_Height;
  234.             y_BMS       = y_uic;
  235.             pos_txt_noi = [x_uic, y_uic, w_uic, Def_Txt_Height];
  236.             y_uic       = y_uic-Def_Btn_Height;
  237.             pos_pop_noi = [x_uic, y_uic, w_uic, Def_Btn_Height];
  239.           case 'comp'
  240.             y_BMS       = y_uic;
  241.             y_uic       = y_uic-Def_Btn_Height;
  242.         end
  244.         pos_txt_BMS = [x_uic, y_BMS, w_uic, Def_Txt_Height];
  245.         y_BMS       = y_BMS-Def_Btn_Height;
  246.         w_BMS       = (w_uic-bdx)/3;
  247.         pos_sli_BMS = [x_uic+w_BMS/2, y_BMS+sli_dy, 2*w_BMS, sli_hi];
  249.         y_uic       = y_uic-Def_Btn_Height-bdy;
  250.         pos_pop_dir = [x_uic, y_uic, w_uic, Def_Btn_Height];
  252.         wx          = 2;
  253.         wbase       = 2*(w_rem-4*wx)/5;
  254.         w_lev       = [6*wbase ; 15*wbase ; 9*wbase]/12;
  255.         x_uic       = xleft+wx;
  256.         y_uic       = y_uic-Def_Btn_Height;
  257.         pos_lev_tit = [x_uic, y_uic, w_lev(1), Def_Txt_Height];
  258.         pos_lev_tit = pos_lev_tit(ones(1,3),:);
  259.         pos_lev_tit(:,3) = w_lev; 
  260.         for k=1:2 , pos_lev_tit(k+1,1) = pos_lev_tit(k,1)+pos_lev_tit(k,3); end
  261.         y_uic = pos_lev_tit(1,2)-levmaxMAX*(Def_Btn_Height+d_lev);
  263.         switch  toolOPT
  264.           case {'deno','esti'}
  265.           case {'comp'}
  266.             wid1 = (15*w_rem)/26;
  267.             wid2 = (8*w_rem)/26;
  268.             wid3 = (2*w_rem)/26;
  269.             wx   = (w_rem-wid1-wid2-wid3)/4;
  270.             y_uic       = y_uic-Def_Btn_Height-bdy;
  271.             pos_txt_nor = [xleft, y_uic+d_txt/2, wid1, Def_Txt_Height];
  272.             x_uic       = pos_txt_nor(1)+pos_txt_nor(3)+wx;
  273.             pos_edi_nor = [x_uic, y_uic, wid2, Def_Btn_Height];
  274.             x_uic       = pos_edi_nor(1)+pos_edi_nor(3)+wx;
  275.             pos_txt_npc = [x_uic, y_uic+d_txt/2, wid3, Def_Txt_Height];
  277.             y_uic       = y_uic-Def_Btn_Height-bdy;
  278.             pos_txt_zer = [xleft, y_uic+d_txt/2, wid1, Def_Txt_Height];
  279.             x_uic       = pos_txt_zer(1)+pos_txt_zer(3)+wx;
  280.             pos_edi_zer = [x_uic, y_uic, wid2, Def_Btn_Height];
  281.             x_uic       = pos_edi_zer(1)+pos_edi_zer(3)+wx;
  282.             pos_txt_zpc = [x_uic, y_uic+d_txt/2, wid3, Def_Txt_Height];
  283.         end
  285.         w_uic = w_fra/2-bdx;
  286.         x_uic = pos_fra(1);
  287.         h_uic = (3*Def_Btn_Height)/2;
  288.         y_uic = pos_fra(2)-h_uic-Def_Btn_Height/2;
  289.         pos_pus_est = [x_uic, y_uic, w_uic, h_uic];
  290.         x_uic = x_uic+w_uic+2*bdx;
  291.         pos_tog_res = [x_uic, y_uic, w_uic, h_uic];
  293.         % Create UIC.
  294.         %------------
  295.         comProp = {...
  296.            'Parent',fig,    ...
  297.            'Unit',fig_units ...
  298.            'Visible','On'  ...
  299.            };
  300.         comTxtProp = {comProp{:}, ...
  301.            'Style','Text',...
  302.            'HorizontalAlignment','center', ...
  303.            'Backgroundcolor',bkColor ...
  304.            };
  306.         fra_utl = uicontrol(comProp{:}, ...
  307.                             'Style','frame', ...
  308.                             'Position',pos_fra, ...
  309.                             'Backgroundcolor',bkColor, ...
  310.                             'Tag',tag_fra_tool ...
  311.                             );
  313.         txt_top = uicontrol(comProp{:}, ...
  314.                             'Style','Text', ...
  315.                             'Position',pos_txt_top,   ...
  316.                             'String',str_txt_top,     ...
  317.                             'Backgroundcolor',bkColor ...
  318.                             );
  320.         cba = [mfilename '(''update_methName'',' str_numfig ');'];
  321.         pop_met = uicontrol(comProp{:}, ...
  322.                             'Style','Popup',...
  323.                             'Position',pos_pop_met,...
  324.                             'Enable',statusINI, ...
  325.                             'String',str_pop_met,...
  326.                             'HorizontalAlignment','center',...
  327.                             'Userdata',1,...
  328.                             'Callback',cba ...
  329.                             );
  331.         switch  toolOPT
  332.           case {'deno','esti'}
  333.             rad_sof = uicontrol(comProp{:}, ...
  334.                                 'Style','RadioButton',...
  335.                                 'Position',pos_rad_sof,...
  336.                                 'Enable',statusINI, ...
  337.                                 'HorizontalAlignment','center',...
  338.                                 'String',str_rad_sof,...
  339.                                 'Value',1,'Userdata',1 ...
  340.                                 );
  342.             rad_har = uicontrol(comProp{:}, ...
  343.                                 'Style','RadioButton',...
  344.                                 'Position',pos_rad_har,...
  345.                                 'Enable',statusINI, ...
  346.                                 'HorizontalAlignment','center',...
  347.                                 'String',str_rad_har,...
  348.                                 'Value',0,'Userdata',0 ...
  349.                                 );
  350.             cba = [mfilename '(''update_thrType'',' str_numfig ');'];
  351.             set(rad_sof,'Callback',cba);
  352.             set(rad_har,'Callback',cba);
  354.             txt_noi = uicontrol(comProp{:}, ...
  355.                                 'Style','Text',...
  356.                                 'Position',pos_txt_noi,...
  357.                                 'Backgroundcolor',bkColor,...
  358.                                 'String',str_txt_noi...
  359.                                 );
  361.             cba = [mfilename '(''update_by_Caller'',' str_numfig ');'];
  362.             pop_noi = uicontrol(comProp{:}, ...
  363.                                 'Style','Popup',...
  364.                                 'Position',pos_pop_noi,...
  365.                                 'Enable',statusINI, ...
  366.                                 'String',str_pop_noi,...
  367.                                 'HorizontalAlignment','center',...
  368.                                 'Userdata',1,...
  369.                                 'Callback',cba ...
  370.                                 );
  371.           case {'comp'}
  372.         end
  374.         txt_BMS = uicontrol(comProp{:}, ...
  375.                             'Style','Text',...
  376.                             'Position',pos_txt_BMS,...
  377.                             'Backgroundcolor',bkColor,...
  378.                             'String',str_txt_BMS...
  379.                             );
  381.         cba = [mfilename '(''update_by_Caller'',' str_numfig ');'];
  382.         sli_BMS = uicontrol(comProp{:}, ...
  383.                             'Style','Slider',...
  384.                             'Position',pos_sli_BMS,...
  385.                             'Enable',statusINI,    ...
  386.                             'Min',1+sqrt(eps),     ...
  387.                             'Max',5-sqrt(eps),     ...
  388.                             'Value',1.5,           ...
  389.                             'Backgroundcolor',bkColor, ...
  390.                             'Callback',cba         ...
  391.                             );
  393.         cba = [mfilename '(''update_DIR'',' str_numfig ');'];
  394.         pop_dir = uicontrol(comProp{:}, ...
  395.                             'Style','Popup',...
  396.                             'Position',pos_pop_dir,...
  397.                             'Enable',statusINI,    ...
  398.                             'String',str_pop_dir,  ...
  399.                             'Userdata',1,          ...
  400.                             'Callback',cba         ...
  401.                             );
  402.         txt_tit = zeros(3,1);
  403.         for k=1:3
  404.             txt_tit(k) = uicontrol(...
  405.                                    comTxtProp{:}, ...
  406.                                    'Position',pos_lev_tit(k,:), ...
  407.                                    'String',deblank(str_txt_tit(k,:))...
  408.                                    );
  409.         end
  410.         xbtn0 = xleft;
  411.         ybtn0 = pos_lev_tit(1,2)-Def_Btn_Height;
  412.         xbtn  = xbtn0;
  413.         ybtn  = ybtn0;
  414.         if ud.ydir==1
  415.             index = [1:levmaxMAX];
  416.         else
  417.             index = [levmaxMAX:-1:1];
  418.             ybtn  = ybtn0+(levmaxMAX-levmax)*dy_lev;
  419.         end
  420.         for j=1:length(index)
  421.             i = index(j);
  422.             max_lev = 1;
  423.             val_lev = 0.5;
  424.             pos_lev = [xbtn ybtn+d_txt/2 w_lev(1) Def_Txt_Height];
  425.             str_lev = sprintf('%.0f',i);
  426.             txt_lev = uicontrol(...
  427.                               comTxtProp{:},     ...
  428.                               'Position',pos_lev,...
  429.                               'String',str_lev,  ...
  430.                               'Userdata',i       ...
  431.                               );
  433.             xbtn    = xbtn+w_lev(1)+wx;
  434.             pos_lev = [xbtn, ybtn+sli_dy, w_lev(2), sli_hi];
  435.             sli_lev = uicontrol(...
  436.                               comProp{:},         ...
  437.                               'Style','Slider',   ...
  438.                               'Enable',enaVal,    ...
  439.                               'Position',pos_lev, ...
  440.                               'Min',0,            ...
  441.                               'Max',max_lev,      ...
  442.                               'Value',val_lev,    ...
  443.                               'Userdata',i        ...
  444.                               );
  446.             xbtn    = xbtn+w_lev(2)+wx;
  447.             pos_lev = [xbtn ybtn w_lev(3) Def_Btn_Height];
  448.             str_val = sprintf('%1.4g',val_lev);
  449.             edi_lev = uicontrol(...
  450.                               comProp{:},         ...
  451.                               'Style','Edit',     ...
  452.                               'Enable',enaVal,    ...
  453.                               'Position',pos_lev, ...
  454.                               'String',str_val,   ...
  455.                               'HorizontalAlignment','center',...
  456.                               'Backgroundcolor',Def_EdiBkColor,...
  457.                               'Userdata',i          ...
  458.                               );
  460.             beg_cba = [mfilename '(''update_by_UIC'',' str_numfig ',' str_lev];
  461.             cba_sli = [beg_cba ',''sli'');'];
  462.             cba_edi = [beg_cba ',''edi'');'];
  463.             set(sli_lev,'Callback',cba_sli);
  464.             set(edi_lev,'Callback',cba_edi);
  465.             h_CMD_LVL(:,i) = [txt_lev ; sli_lev ; edi_lev];
  466.             xbtn = xbtn0;
  467.             ybtn = ybtn-dy_lev;
  468.         end
  470.         switch  toolOPT
  471.           case {'deno','esti'}
  472.           case {'comp'}
  473.             comEdiProp = {comProp{:}, ...
  474.                 'Style','Edit',...
  475.                 'String','',...
  476.                 'Enable','Inactive', ...
  477.                 'Backgroundcolor',bkColor,...
  478.                 'HorizontalAlignment','center'...
  479.                 };
  480.             txt_nor = uicontrol(comTxtProp{:}, ...
  481.                                 'Position',pos_txt_nor,...
  482.                                 'HorizontalAlignment','left',...
  483.                                 'String',str_txt_nor...
  484.                                 );
  486.             cba_nor = [mfilename '(''updateTHR'',' str_numfig ',''nor'');'];
  487.             edi_nor = uicontrol(comEdiProp{:}, ...
  488.                                 'Position',pos_edi_nor,...
  489.                                 'Callback',cba_nor ...
  490.                                 );
  492.             txt_npc = uicontrol(comTxtProp{:}, ...
  493.                                 'Position',pos_txt_npc,...
  494.                                 'String','%'...
  495.                                 );
  497.             txt_zer = uicontrol(comTxtProp{:}, ...
  498.                                 'Position',pos_txt_zer,...
  499.                                 'HorizontalAlignment','left',...
  500.                                 'String',str_txt_zer...
  501.                                 );
  503.             cba_zer = [mfilename '(''updateTHR'',' str_numfig ',''zer'');'];
  504.             edi_zer = uicontrol(comEdiProp{:}, ...
  505.                                 'Position',pos_edi_zer,...
  506.                                 'Callback',cba_zer ...
  507.                                 );
  509.             txt_zpc = uicontrol(comTxtProp{:}, ...
  510.                                 'Position',pos_txt_zpc,...
  511.                                 'String','%'...
  512.                                 );
  513.         end
  515.         cba = [mfilename '(''residuals'',' str_numfig ');'];
  516.         tip = 'More on Residuals';
  517.         tog_res = uicontrol(...
  518.                             comProp{:},             ...
  519.                             'Style','Togglebutton', ...
  520.                             'Position',pos_tog_res, ...
  521.                             'String',str_tog_res,   ...
  522.                             'Enable','off',         ...
  523.                             'Callback',cba,         ...
  524.                             'tooltip',tip,          ...
  525.                             'Interruptible','Off'   ...
  526.                             );
  528.         cba_pus_est = [mfilename '(''' estOPT ''',' str_numfig ');'];
  529.         pus_est = uicontrol(comProp{:},             ...
  530.                             'Style','Pushbutton',   ...
  531.                             'Position',pos_pus_est, ...
  532.                             'String',xlate(str_pus_est),   ...
  533.                             'Enable',enaVal,        ...
  534.                             'callback',cba_pus_est  ...
  535.                             );
  537. % Add Context Sensitive Help (CSHelp).
  538. %-------------------------------------
  539.         switch  toolOPT
  540.           case {'deno','esti'}
  541. hdl_DENO_SOFTHARD   = [rad_sof,rad_har];
  542. hdl_DENO_NOISSTRUCT = [txt_noi,pop_noi];
  543. wfighelp('add_ContextMenu',fig,hdl_DENO_SOFTHARD,'DENO_SOFTHARD');
  544. wfighelp('add_ContextMenu',fig,hdl_DENO_NOISSTRUCT,'DENO_NOISSTRUCT');
  546.           case {'comp'}
  547. hdl_COMP_SCORES = [...
  548. txt_nor,edi_nor,txt_npc,txt_zer,edi_zer,txt_zpc ...
  549. ];   
  550. wfighelp('add_ContextMenu',fig,hdl_COMP_SCORES,'COMP_SCORES');
  552.         end
  553.         hdl_COMP_DENO_STRA = [...
  554. fra_utl,txt_top,pop_met,txt_BMS,sli_BMS,  ...
  555. ];
  556. wfighelp('add_ContextMenu',fig,hdl_COMP_DENO_STRA,'COMP_DENO_STRA');
  557. %-------------------------------------
  559. % Store handles.
  560. %--------------
  561.         switch  toolOPT
  562.           case {'deno','esti'}
  563.             ud.handlesUIC = ...
  564.                 [fra_utl;txt_top;pop_met;...
  565.                 rad_sof;rad_har;txt_noi;pop_noi; ...
  566.                 txt_BMS;sli_BMS;pop_dir;txt_tit(1:3); ...
  567.                 NaN;NaN;NaN;NaN;NaN;NaN; ...
  568.                 tog_res;pus_est];
  570.           case {'comp'}
  571.             ud.handlesUIC = ...
  572.                 [fra_utl;txt_top;pop_met; ...
  573.                 NaN;NaN;NaN;NaN; ...
  574.                 txt_BMS;sli_BMS;pop_dir;txt_tit(1:3);...
  575.                 txt_nor;edi_nor;txt_npc;txt_zer;edi_zer;txt_zpc; ...
  576.                 tog_res;pus_est];
  578.         end        
  579.         ud.h_CMD_LVL = h_CMD_LVL;
  580.         ud.h_GRA_LVL = h_GRA_LVL;
  581.         set(fra_utl,'Userdata',ud);
  582.         varargout{1} = utthrw2d('set',fig,'position',{levmin,levmax});
  584.     case 'status'
  585.       if length(varargin)>0
  586.          toolStatus = varargin{1};
  587.          ud.status  = toolStatus;
  588.          set(fra,'Userdata',ud);
  589.          set([pop_met;rad_sof;rad_har;...
  590.               pop_noi;sli_BMS;pop_dir],'Enable',toolStatus)
  591.          if isequal(lower(toolStatus),'off')
  592.              utthrw2d('enable',fig,'off')
  593.          end       
  594.       end
  595.       varargout{1} = toolStatus;
  597.     case 'enable'
  598.         enaVal = varargin{1};
  599.         if length(varargin)>1
  600.             levs = varargin{2};
  601.         else
  602.             levs = [1:size(h_GRA_LVL,3)];
  603.         end
  604.         uic = h_CMD_LVL(2:3,:);
  605.         set([uic(:);tog_res;pus_est],'Enable','off');
  606.         if isequal(lower(enaVal),'on')
  607.             uic = h_CMD_LVL(2:3,levs);
  608.             set([uic(:);pus_est],'Enable',enaVal);
  609.         end
  611.     case 'enable_tog_res'
  612.         enaVal = varargin{1};
  613.         set(tog_res,'Enable',enaVal);
  615.     case 'visible'
  616.         visVal     = lower(varargin{1});
  617.         ud.visible = visVal;
  618.         handlesAXE = h_GRA_LVL(1,:,ud.levmin:ud.levmax);
  619.         handlesAXE = findobj(handlesAXE(ishandle(handlesAXE(:))));
  620.         if isequal(visVal,'on')
  621.             h_CMD_LVL = h_CMD_LVL(1:3,ud.levmin:ud.levmax);
  622.             numMeth = get(pop_met,'value');
  623.             switch toolOPT
  624.               case {'deno','esti'}
  625.                 switch numMeth
  626.                   case {1,5}   , invis = [txt_BMS;sli_BMS];
  627.                   case {2,3,4} , invis = [txt_noi;pop_noi];
  628.                 end
  630.               case {'comp'}
  631.                 switch numMeth
  632.                    case {1,2,3} , invis = [];
  633.                    case {4,5,6} , invis = [txt_BMS;sli_BMS];
  634.                 end 
  635.             end
  636.             handlesUIC = setdiff(handlesUIC,invis);
  637.         end
  638.         handles = [h_CMD_LVL(:);handlesAXE(:);handlesUIC(:)];
  639.         set(handles(ishandle(handles)),'visible',visVal);
  641.     case 'set'
  642.         nbarg = length(varargin);
  643.         if nbarg<1 , return; end
  644.         for k = 1:2:nbarg
  645.            argType = lower(varargin{k});
  646.            argVal  = varargin{k+1};
  647.            switch argType
  648.                case 'position'
  649.                  [levmin,levmax] = deal(argVal{:});
  650.                  nblevs = levmax-levmin+1;
  651.                  if ud.ydir==1
  652.                      dnum_lev = (levmin-ud.levmin);
  653.                  else
  654.                      dnum_lev = (ud.levmax-levmax);
  655.                  end
  656.                  ud.levmin = levmin;
  657.                  ud.levmax = levmax;
  658.                  set(fra,'Userdata',ud);
  659.                  old_units = get(fig,'units');
  660.                  tmpHandles = [h_CMD_LVL(:);handlesUIC(:)];
  661.                  tmpHandles = tmpHandles(ishandle(tmpHandles));
  662.                  set(tmpHandles,'visible','off');
  663.                  set([fig;tmpHandles],'units','pixels');
  664.                  [pos_fra,dy_lev,y_res,y_est] = getPosFraThr(fra,nblevs,toolOPT);
  665.                  set(fra,'Position',pos_fra);
  666.                  ytrans = dnum_lev*dy_lev;
  667.                  [row,col] = size(h_CMD_LVL);
  668.                  for j=1:col
  669.                      for k = 1:row
  670.                          p = get(h_CMD_LVL(k,j),'Position');
  671.                          set(h_CMD_LVL(k,j),'Position',[p(1),p(2)+ytrans,p(3:4)]);
  672.                      end
  673.                  end
  674.                  p = get(tog_res,'Position');
  675.                  set(tog_res,'Position',[p(1),y_res,p(3:4)]);
  676.                  ytrans = y_res-p(2);
  677.                  p = get(pus_est,'Position');
  678.                  set(pus_est,'Position',[p(1),y_est,p(3:4)]);
  679.                  switch toolOPT
  680.                    case {'comp'}
  681.                      tmpHDL = [txt_nor;edi_nor;txt_npc;txt_zer;edi_zer;txt_zpc];
  682.                      for k = 1:length(tmpHDL)
  683.                          p = get(tmpHDL(k),'Position');
  684.                          set(tmpHDL(k),'Position',[p(1),p(2)+ytrans,p(3:4)]);
  685.                      end                  
  686.                  end
  687.                  set([fig;tmpHandles],'units',old_units);
  688.                  utthrw2d('visible',fig,ud.visible);
  689.                  if nargout>0
  690.                      varargout{1} = [pos_fra(1) , y_est , pos_fra([3 4])];
  691.                  end
  693.                case 'axes'
  694.                  [row,col] = size(argVal);
  695.                  ud.h_GRA_LVL(1,1:row,1:col) = argVal;
  696.                  set(fra,'Userdata',ud);
  698.                case 'handleori' , ud.handleORI = argVal; set(fra,'Userdata',ud);
  699.                case 'handlethr' , ud.handleTHR = argVal; set(fra,'Userdata',ud);
  700.                case 'handleres' , ud.handleRES = argVal; set(fra,'Userdata',ud);
  701.                case 'perfos'  
  702.                  switch toolOPT
  703.                    case {'comp'}
  704.                      set(edi_nor,'string',sprintf('%5.2f',argVal{1}));
  705.                      set(edi_zer,'string',sprintf('%5.2f',argVal{2}));
  706.                  end
  707.                case {'valthr','maxthr'}
  708.                  threshDEF = NaN*ones(3,ud.levmaxMAX);
  709.                  sizARG = size(argVal);
  710.                  NB_old = ud.levmax-ud.levmin+1;
  711.                  if (sizARG(1)==3) && (sizARG(2)>NB_old)
  712.                     Cbeg = 1; Cend = sizARG(2);
  713.                  else
  714.                     Cbeg = ud.levmin; Cend = ud.levmax;
  715.                  end
  716.                  threshDEF(:,Cbeg:Cend) = argVal;
  717.                  if isequal(argType,'valthr')
  718.                      ud.thrStruct.value = threshDEF;
  719.                  else
  720.                      ud.thrStruct.max = threshDEF;
  721.                  end
  722.                  set(fra,'Userdata',ud);
  723.            end
  724.         end
  726.     case 'get'
  727.         nbarg = length(varargin);
  728.         if nbarg<1 , return; end
  729.         for k = 1:nbarg
  730.            outType = lower(varargin{k});
  731.            switch outType
  732.                case 'position'
  733.                  pos_fra = get(fra,'Position');
  734.                  pos_est = get(pus_est,'Position');
  735.                  varargout{k} = [pos_fra(1) , pos_est(2) , pos_fra([3 4])];
  737.                case 'valthr' ,
  738.                  varargout{k} = ud.thrStruct.value(:,ud.levmin:ud.levmax);
  740.                case 'allvalthr' , varargout{k} = ud.thrStruct.value;                 
  741.                case 'maxthr'    , varargout{k} = ud.thrStruct.max;
  743.                case {'pus_den','pus_est','pus_com'} , varargout{k} = pus_est;
  744.                case 'handleori' , varargout{k} = ud.handleORI;
  745.                case 'handlethr' , varargout{k} = ud.handleTHR;
  746.                case 'handleres' , varargout{k} = ud.handleRES;
  747.            end
  748.         end
  750.     case 'update_methName'
  751.         numMeth = get(pop_met,'value');
  752.         switch toolOPT
  753.           case {'deno','esti'}
  754.             HDL_1 = [txt_BMS;sli_BMS];
  755.             HDL_2 = [txt_noi;pop_noi];
  756.             switch numMeth
  757.               case {1,5}
  758.                 invis  = HDL_1;   vis = HDL_2;
  759.                 radDef = rad_sof; radNoDef = rad_har;
  760.               case {2,3,4}
  761.                 invis  = HDL_2;   vis = HDL_1;
  762.                 radDef = rad_har; radNoDef = rad_sof;
  763.             end
  764.             set(sli_BMS,'value',3)
  765.             set(invis,'Visible','off')
  766.             set(vis,'Visible','on')
  767.             set(radDef,'Value',1,'Userdata',1);
  768.             set(radNoDef,'Value',0,'Userdata',0);
  770.           case {'comp'}
  771.             HDL_1 = [txt_BMS;sli_BMS];
  772.             HDL_2 = [];
  773.             switch numMeth
  774.               case {1,2,3} , invis = HDL_2; vis = HDL_1;
  775.               case {4,5,6} , invis = HDL_1; vis = HDL_2;
  776.             end
  777.             set(sli_BMS,'value',1.5);
  778.             set(invis,'Visible','off')
  779.             set(vis,'Visible','on')
  780.         end
  781.         utthrw2d('update_by_Caller',fig)
  783.     case 'update_DIR'
  784.         newDIR = get(pop_dir,'Value');
  785.         oldDIR = get(pop_dir,'Userdata');
  786.         if isequal(newDIR,oldDIR) , return; end
  787.         set(pop_dir,'Userdata',newDIR)
  788.         valTHR = ud.thrStruct.value(newDIR,:);
  789.         maxTHR = ud.thrStruct.max(newDIR,:);
  790.         for k = ud.levmin:ud.levmax
  791.             set(h_CMD_LVL(2,k),'Min',0,'Max',maxTHR(k),'Value',valTHR(k));
  792.             set(h_CMD_LVL(3,k),'String',sprintf('%1.4g',valTHR(k)));
  793.         end
  795.     case 'update_by_UIC'
  796.         level    = varargin{1};
  797.         type_hdl = varargin{2};
  798.         sli = h_CMD_LVL(2,level);
  799.         edi = h_CMD_LVL(3,level);
  800.         dir = get(pop_dir,'Value');
  801.         lHu = h_GRA_LVL(2,dir,level);
  802.         lHd = h_GRA_LVL(3,dir,level);
  804.         % Updating threshold.
  805.         %---------------------
  806.         switch type_hdl
  807.             case 'sli'
  808.               thresh = get(sli,'value');
  809.               set(edi,'string',sprintf('%1.4g',thresh));
  811.             case 'edi'
  812.               valstr = get(edi,'string');
  813.               [thresh,count,err] = sscanf(valstr,'%f');
  814.               if (count~=1) || ~isempty(err)
  815.                   thresh = get(sli,'Value');
  816.                   set(edi,'string',sprintf('%1.4g',thresh));
  817.                   return
  818.               else
  819.                   mi = get(sli,'Min');
  820.                   ma = get(sli,'Max');
  821.                   if     thresh<mi , thresh = mi;
  822.                   elseif thresh>ma , thresh = ma;
  823.                   end
  824.                   set(sli,'Value',thresh);
  825.                   set(edi,'string',sprintf('%1.4g',thresh));
  826.               end
  827.         end
  828.         xdata = [thresh thresh];
  829.         set(lHu,'Xdata', xdata);
  830.         if thresh<sqrt(eps) , xdata = [NaN NaN]; end
  831.         set(lHd,'Xdata',-xdata);
  832.         feval(calledFUN,'clear_GRAPHICS',fig);
  833.         utthrw2d('update_thrStruct',fig,dir,level,thresh);
  834.         if isequal(toolOPT,'comp') , utthrw2d('show_LVL_perfos',fig); end
  836.     case 'update_thrType'
  837.         rad = gcbo;
  838.         old = get(rad,'userdata');
  839.         if old==1 , set(rad,'Value',1); return; end
  840.         if isequal(rad,rad_sof)
  841.            type = 's'; other = rad_har;
  842.         else
  843.            type = 'h'; other = rad_sof;           
  844.         end
  845.         set(other,'Value',0,'Userdata',0);
  846.         set(rad,'Value',1,'Userdata',1);
  847.         feval(calledFUN,'clear_GRAPHICS',fig);
  849.     case 'update_by_Caller'
  850.         feval(calledFUN,'update_LVL_meth',fig);
  852.     case 'get_LVL_par'
  853.         numMeth = get(pop_met,'value');
  854.         meth    = wthrmeth(toolOPT,'shortnames',numMeth);
  855.         switch  toolOPT
  856.           case {'deno','esti'}             
  857.              valType = get(rad_sof,'value');
  858.              if valType==1 , sorh = 's'; else , sorh = 'h'; end
  859.              switch numMeth
  860.                case {1,5}
  861.                  valNoise = get(pop_noi,'value');
  862.                  switch valNoise
  863.                    case 1 , scal = 'sln';
  864.                    case 2 , scal = 'one';
  865.                    case 3 , scal = 'mln';
  866.                  end
  867.                case {2,3,4}, scal = get(sli_BMS,'value');
  868.              end
  869.              varargout = {numMeth,meth,scal,sorh};
  871.           case {'comp'}
  872.              sorh = 'h';
  873.              switch numMeth
  874.                case {1,2,3} , scal = get(sli_BMS,'value');
  875.                case {4,5,6} , scal = get(sli_BMS,'value'); % Not Used           
  876.              end
  877.              varargout = {numMeth,meth,scal,sorh};
  878.         end
  880.     case 'update_LVL_meth'
  881.         % called by : calledFUN('update_LVL_meth', ...)
  882.         %-------------------------------------------
  883.         valTHR = varargin{1};
  884.         NB_lev = size(valTHR,2);
  885.         maxTHR = utthrw2d('get',fig,'maxTHR');
  886.         maxTHR = maxTHR(:,ud.levmin:NB_lev);        
  887.         valTHR = min(valTHR,maxTHR);
  888.         
  889.         utthrw2d('set',fig,'valTHR',valTHR);
  890.         direct = get(pop_dir,'Value'); 
  891.         sli_lev = h_CMD_LVL(2,1:NB_lev);
  892.         edi_lev = h_CMD_LVL(3,1:NB_lev);        
  893.         for k = 1:NB_lev
  894.             thr  = valTHR(direct,k);
  895.             set(sli_lev(k),'Value',thr);
  896.             set(edi_lev(k),'string',sprintf('%1.4g',thr));            
  897.         end
  898.         for k = 1:NB_lev
  899.             for d=1:3
  900.                 thr = valTHR(d,k);
  901.                 thr = [thr thr];
  902.                 set(h_GRA_LVL(2,d,k),'Xdata', thr);
  903.                 set(h_GRA_LVL(3,d,k),'Xdata',-thr);
  904.             end
  905.         end
  907.     case 'show_LVL_perfos'
  908.         if isequal(toolOPT,'comp')
  909.             feval(calledFUN,'show_LVL_perfos',fig);
  910.         end
  912.     case 'update_thrStruct'
  913.         % called by : cbthrw2d
  914.         %----------------------
  915.         dir   = varargin{1};
  916.         level = varargin{2};
  917.         thr   = varargin{3};
  918.         ud.thrStruct.value(dir,level) = thr;
  919.         set(fra,'Userdata',ud);
  921.     case {'denoise','compress','estimate'}
  922.         feval(calledFUN,option,fig);
  924.     case 'clean_thr'
  925.         set(h_CMD_LVL(2,:),'Min',0,'Max',1,'Value',0.5);  % sli_lev;
  926.         set(h_CMD_LVL(3,:),'String','');                  % edi_lev
  927.         switch toolOPT
  928.           case {'deno','esti'} , 
  929.           case {'comp'} ,
  930.         end
  932.     case 'residuals'
  933.         wmoreres('create',fig,tog_res,ud.handleRES,ud.handleORI,ud.handleTHR,'blocPAR');
  935.     case 'plot_dec'
  936.         dirDef = get(pop_dir,'Value');
  937.         [thr_max,thr_val,ylim,direct,level,axeAct] = deal(varargin{2}{:});
  938.         if direct==dirDef
  939.             set(h_CMD_LVL(2,level),'Min',0,'Max',thr_max,'Value',thr_val);
  940.             set(h_CMD_LVL(3,level),'String',sprintf('%1.4g',thr_val));
  941.         end
  942.         colTHR = wtbutils('colors','linTHR');
  943.         l_min = line('Linestyle','--',...
  944.                   'Color',colTHR,...
  945.                   'EraseMode','xor',...
  946.                   'Xdata',[thr_val thr_val],...
  947.                   'Ydata',ylim,...
  948.                   'Parent',axeAct);
  949.         l_max = line('Linestyle','--',...
  950.                   'Color',colTHR,...
  951.                   'EraseMode','xor',...
  952.                   'Xdata',[-thr_val -thr_val],...
  953.                   'Ydata',ylim,...
  954.                   'Parent',axeAct);
  955.         setappdata(l_min,'selectPointer','V');
  956.         setappdata(l_max,'selectPointer','V');
  957.         if thr_val==0 , set(l_max,'Visible','Off'); end
  958.         maxval  = num2mstr(thr_max);
  959.         hdl_str = num2mstr(...
  960.                     [fig ; pop_dir ; direct ; level ; ...
  961.                      l_min; l_max; h_CMD_LVL(2:3,level)] ...
  962.                      );
  963.         cba_thr_min = ['cbthrw2d' '(''down'',' hdl_str ',' ...
  964.                                 int2str(+1) ',' maxval ');'];
  965.         cba_thr_max = ['cbthrw2d' '(''down'',' hdl_str ',' ...
  966.                                 int2str(-1) ',' maxval ');'];
  967.         set(l_min,'ButtonDownFcn',cba_thr_min)
  968.         set(l_max,'ButtonDownFcn',cba_thr_max)
  969.         h_GRA_LVL(2:3,direct,level) = [l_min , l_max];
  970.         ud.h_GRA_LVL = h_GRA_LVL;
  971.         set(fra,'Userdata',ud);
  973.     case 'demo'
  974.     % SPECIAL for DEMOS
  975.     %------------------
  976.     [tool,den_Meth,thr_Val] = deal(varargin{:});
  977.     shortnames = wthrmeth(toolOPT,'shortnames');
  978.     ind = strmatch(deblank(den_Meth),shortnames);
  979.     if isempty(ind) , return; end
  980.     set(pop_met,'Value',ind)
  981.     utthrw2d('update_methName',fig)
  982.     if ~isnan(thr_Val)
  983.         utthrw2d('set',fig,'valTHR',thr_Val);
  984.         thr_Val = utthrw2d('get',fig,'valTHR');
  985.         utthrw2d('update_LVL_meth',fig,thr_Val);
  986.     end
  988.     otherwise
  989.         errargt(mfilename,'Unknown Option','msg');
  990.         error('*');
  991. end
  994. %=============================================================================%
  995. % INTERNAL FUNCTIONS
  996. %=============================================================================%
  997. %-----------------------------------------------------------------------------%
  998. function varargout = wthrmeth(toolOPT,varargin)
  1000. switch toolOPT
  1001.   case {'deno','esti'}
  1002.     thrMethods = {...
  1003.         'Fixed form threshold',       'sqtwolog',    1; ...
  1004.         'Penalize high',              'penalhi',     2; ...
  1005.         'Penalize medium',            'penalme',     3; ...
  1006.         'Penalize low',               'penallo',     4; ...
  1007.         'Bal. sparsity-norm (sqrt)',  'sqrtbal_sn',  5  ...
  1008.         };
  1010.   case 'comp'
  1011.     thrMethods = {...
  1012.         'Scarce high',                'scarcehi',   1; ...
  1013.         'Scarce medium',              'scarceme',   2; ...
  1014.         'Scarce low',                 'scarcelo',   3; ...
  1015.         'Balance sparsity-norm',      'bal_sn',     4; ...
  1016.         'Remove near 0',              'rem_n0',     5; ...
  1017.         'Bal. sparsity-norm (sqrt)',  'sqrtbal_sn', 6  ...
  1018.         };
  1019. end
  1020. nbin = length(varargin);
  1021. if nbin==0 , varargout{1} = thrMethods; return; end
  1023. option = varargin{1};
  1024. switch option
  1025.   case 'names'
  1026.      out = strvcat(1,thrMethods{:,1});
  1027.      varargout{1} = out(2:end,:);
  1028.      if nbin==2
  1029.          num = varargin{2};
  1030.          varargout{1} = deblank(varargout{1}(num,:));
  1031.      end
  1033.   case 'shortnames'
  1034.      out = strvcat(1,thrMethods{:,2});
  1035.      varargout{1} = out(2:end,:);
  1036.      if nbin==2
  1037.          num = varargin{2};
  1038.          varargout{1} = deblank(varargout{1}(num,:));
  1039.      end
  1041.   case 'nums'
  1042.      varargout{1} = cat(1,thrMethods{:,3});
  1043. end
  1044. %-----------------------------------------------------------------------------%
  1045. function [pos_fra,dy_lev,y_res,y_est] = getPosFraThr(fra,nblevs,toolOPT)
  1047. Def_Btn_Height = mextglob('get','Def_Btn_Height');
  1048. d_lev = 2;
  1049. bdy   = 4;
  1050. pos_fra = get(fra,'Position');
  1051. top_fra = pos_fra(2)+pos_fra(4);
  1052. switch  toolOPT
  1053.   case {'deno','esti'} , NB_Height = 7;
  1054.   case {'comp'}        , NB_Height = 8;
  1055. end
  1056. h_ini   = (NB_Height-2)*bdy+NB_Height*Def_Btn_Height;
  1057. h_fra   = h_ini+ nblevs*(Def_Btn_Height+d_lev);
  1058. pos_fra(2) = top_fra-h_fra;
  1059. pos_fra(4) = h_fra;
  1060. dy_lev = d_lev+Def_Btn_Height;
  1061. y_est  = pos_fra(2)-(3*Def_Btn_Height)/2-Def_Btn_Height/2;
  1062. y_res  = y_est;
  1063. %-----------------------------------------------------------------------------%
  1064. function varargout = depOfMachine(varargin)
  1066. btn_height = varargin{1};
  1067. scrSize = get(0,'ScreenSize');
  1068. if scrSize(4)<600
  1069.     height = btn_height;
  1070. elseif scrSize(4)<800
  1071.     height = 3*btn_height/2;
  1072. else
  1073.     height = 3*btn_height/2;
  1074. end
  1075. varargout = {height};
  1076. %-----------------------------------------------------------------------------%
  1077. %=============================================================================%