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

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

波变换

开发平台：

Matlab

cwimtool.m：源码内容
  1. function varargout = cwimtool(option,varargin)
  2. %CWIMTOOL Complex Continuous Wavelet 1-D tool.
  3. %   VARARGOUT = CWIMTOOL(OPTION,VARARGIN)
  5. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 17-May-99.
  6. %   Last Revision: 16-Jan-2001.
  7. %   Copyright 1995-2002 The MathWorks, Inc.
  8. %   $Revision: 1.10 $  $Date: 2002/06/17 12:19:31 $
  10. % Test inputs.
  11. %-------------
  12. if nargin==0 , option = 'create'; end
  13. [option,winAttrb] = utguidiv('ini',option,varargin{:});
  15. % Default values.
  16. %----------------
  17. max_lev_anal = 12;
  18. default_nbcolors = 128;
  20. % Memory bloc of stored values.
  21. %==============================
  22. % MB0.
  23. %-----
  24. n_InfoInit   = 'InfoInit';
  25. ind_filename = 1;
  26. ind_pathname = 2;
  27. nb0_stored   = 2;
  29. % MB1.
  30. %-----
  31. n_param_anal   = 'Par_Anal';
  32. ind_sig_name   = 1;
  33. ind_sig_size   = 2;
  34. ind_wav_name   = 3;
  35. ind_lev_anal   = 4;
  36. ind_act_option = 5;
  37. ind_gra_area   = 6;
  38. nb1_stored     = 6;
  40. % MB2.
  41. %-----
  42. n_coefs_sca    = 'Coefs_Scales';
  43. ind_coefs      = 1;
  44. ind_scales     = 2;
  45. ind_frequences = 3;
  46. ind_sca_OR_frq = 4;
  47. nb2_stored     = 4;
  49. switch option
  50.     case 'create'
  52.         % Get Globals.
  53.         %-------------
  54.         [Def_Txt_Height,Def_Btn_Height,Def_Btn_Width,  ...
  55.          Pop_Min_Width,X_Spacing,Y_Spacing,            ...
  56.          Def_TxtBkColor,Def_EdiBkColor,Def_FraBkColor  ...
  57.          ] = mextglob('get',...
  58.               'Def_Txt_Height','Def_Btn_Height','Def_Btn_Width', ...
  59.               'Pop_Min_Width','X_Spacing','Y_Spacing',           ...
  60.               'Def_TxtBkColor','Def_EdiBkColor','Def_FraBkColor' ...
  61.               );
  63.         % window creation.
  64.         %-----------------
  65.         win_title = 'Complex Continuous Wavelet 1-D';
  66.         [win_tool,pos_win,win_units,str_numwin,...
  67.             fra_hdl,pos_fra,Pos_Graphic_Area,pus_close] = ...
  68.                wfigmngr('create',win_title,winAttrb,...
  69.                   'ExtFig_Tool_3',mfilename,1,1,0);
  70.         if nargout>0 , varargout{1} = win_tool; end
  72. % Add Help for Tool.
  73. %------------------
  74. wfighelp('addHelpTool',win_tool,'&Complex Continuous Analysis','CWIM_GUI');
  76. % Add Help Item.
  77. %----------------
  78. wfighelp('addHelpItem',win_tool,'Continuous Transform','CW_TRANSFORM');
  79. wfighelp('addHelpItem',win_tool,'Continuous Versus Discrete (1)','CW_CONTDISC1');
  80. wfighelp('addHelpItem',win_tool,'Continuous Versus Discrete (2)','CW_CONTDISC2');
  81. wfighelp('addHelpItem',win_tool,'Loading and Saving','CW_LOADSAVE');
  83. % Set 'WindowButtonUpFcn' function.
  84. %---------------------------------
  85. cb_up = ['cw1dmngr(''WindowButtonUpFcn'',' str_numwin ')'];
  86. set(win_tool,'WindowButtonUpFcn',cb_up);
  88.         % Menu construction for current figure.
  89.         %--------------------------------------
  90.     m_files = wfigmngr('getmenus',win_tool,'file');
  91.         men_load = uimenu(m_files,...
  92.                          'Label','&Load Signal ', ...
  93.                          'Position',1,           ...
  94.                          'Callback',             ...
  95.                          ['cw1dmngr(''load'',' str_numwin ');'] ...
  96.                          );
  98.         men_save = uimenu(m_files,...
  99.                          'Label','&Save Coefficients ',...
  100.                          'Position',2,                ...
  101.                          'Enable','Off',              ...
  102.                          'Callback',                  ...
  103.                           ['cw1dmngr(''save'',' str_numwin ');'] ...
  104.                           );
  106.         men_demo = uimenu(m_files,...
  107.                          'Label','&Example Analysis ','Position',3);
  109.         demoSET = {...
  110.           'Test Singuralities (I)' , ...
  111.               'cuspamax' , 'cgau2'       , 1 , [1,1,64] , 128 ; ...
  112.           'Test Singuralities (II)' , ...
  113.               'cuspamax' , 'cgau4'       , 1 , [1,1,64] , 128 ; ...
  114.           'Test Singuralities (III)' , ...
  115.               'cuspamax' , 'shan1-1.5'   , 1 , [1,1,64] , 128 ; ...
  116.           'Near Breaks (I)' , ...
  117.               'brkintri' , 'cmor1-0.1'   , 1 , [1,1,64] , 128 ; ...
  118.           'Near Breaks (II)' , ...
  119.               'brkintri' , 'cgau4'       , 1 , [1,1,64] , 128 ; ...
  120.           'Symmetric Cantor curve' , ...
  121.               'wcantsym' , 'cgau1'       , 1 , [1,1,64] , 128 ; ...
  122.           'Noisy sine' , ...
  123.               'noissin'  , 'cgau2'       , 2 , [1,1,48] , 128   ...
  124.           };
  125.         beg_call_str = ['cw1dmngr(''demo'',' str_numwin ','''];
  126.         nbDEM = size(demoSET,1);
  127.         for k=1:nbDEM
  128.             nam  = demoSET{k,1};
  129.             fil  = demoSET{k,2};
  130.             wav  = demoSET{k,3};
  131.             colm = demoSET{k,4};
  132.             val  = demoSET{k,5};
  133.             nbcol = demoSET{k,6};
  134.             scales = ['[' num2str(val(1)) ':' num2str(val(2)) ...
  135.                             ':' num2str(val(3)) ']'];
  136.             libel = ['with ' wav '   at scales  ' scales ...
  137.                             '  -->  ' nam];
  138.             action = [beg_call_str fil ''',''' wav ''','  ...
  139.                     num2str(val(1)) ',' num2str(val(2)) ',' ...
  140.                     num2str(val(3)) ',' sprintf('%.0f',colm) ',' ...
  141.                     int2str(nbcol) ');'];
  142.             uimenu(men_demo,'Label',libel,'Callback',action);
  143.         end
  145.         % Begin waiting.
  146.         %---------------
  147.         wwaiting('msg',win_tool,'Wait ... initialization');
  149.         % General graphical parameters initialization.
  150.         %--------------------------------------------
  151.         x_frame   = pos_fra(1);
  152.         cmd_width = pos_fra(3);
  153.         dx = X_Spacing;
  154.         dy = Y_Spacing; dy2 = 2*dy;        
  155.         d_txt = (Def_Btn_Height-Def_Txt_Height);
  156.         pop_width = pos_fra(3)-8*dx;
  158.         % Command part of the window.
  159.         %============================
  160.         % Data, Wavelet and Level parameters.
  161.         %------------------------------------
  162.         xlocINI = pos_fra([1 3]);
  163.         ytopINI = pos_win(4)-dy;
  164.         toolPos = utanapar('create',win_tool, ...
  165.                     'levflag',0, ...
  166.                     'xloc',xlocINI,'top',ytopINI,...
  167.                     'enable','off', ...
  168.                     'wtype','ccwt', ...
  169.                     'maxlev',max_lev_anal  ...
  170.                     );
  172.         % Adding colormap GUI.
  173.         %---------------------
  174.         utcolmap('create',win_tool, ...
  175.                  'xloc',xlocINI, ...
  176.                  'enable','off', ...
  177.                  'bkcolor',Def_FraBkColor);
  178.         colmapPos = utcolmap('position',win_tool);
  180.         % Setting Initial Colormap.
  181.         %--------------------------
  182.         cbcolmap('set',win_tool,'pal',{'pink',default_nbcolors})
  184.         % UIC construction.
  185.         %------------------------------------------------------------------
  186.         y_low       = toolPos(2);
  187.         h_fra       = Def_Btn_Height+2*dy;
  188.         y_fra       = y_low-h_fra-1.5*dy;
  189.         pos_fra_sam = [toolPos(1),y_fra,toolPos(3),h_fra];
  190.         y_low       = pos_fra_sam(2)+dy;
  191.         x_uic       = toolPos(1)+dx;
  192.         w_uic       = Pop_Min_Width;
  193.         pos_txt_sam = [x_uic, y_low+d_txt/2, 2*w_uic, Def_Txt_Height];
  194.         x_uic       = x_uic+pos_txt_sam(3);
  195.         pos_edi_sam = [x_uic, y_low , w_uic, Def_Btn_Height] ;      
  196.         %------------------------------------------------------------------
  197.         h_fra       = 4*Def_Btn_Height+7*dy;
  198.         y_fra       = pos_fra_sam(2)-h_fra-3*dy;
  199.         pos_fra_sca = [toolPos(1),y_fra,toolPos(3),h_fra];
  200.         y_low       = y_fra+dy;
  201.         %------------------------------------------------------------------
  202.         x_left_1    = x_frame+2*dx;
  203.         x_left_2    = x_frame+(cmd_width-pop_width)/2;
  204.         y_uic       = pos_fra_sca(2)+pos_fra_sca(4)-dy;
  205.         w_uic       = 1.5*Pop_Min_Width;        
  206.         x_uic       = toolPos(1)+(toolPos(3)-w_uic)/2;
  207.         pos_txt_sca = [x_uic, y_uic, w_uic, Def_Txt_Height];
  208.         y_low       = pos_txt_sca(2)-Def_Btn_Height-dy;
  209.         pos_pop_sca = [x_left_2, y_low, pop_width, Def_Btn_Height];
  210.         %------------------------------------------------------------------
  211.         deltay      = Def_Btn_Height+dy;
  212.         w_txt       = pos_pop_sca(3)/2+2*dx;
  213.         w_edi       = pos_pop_sca(3)/2-2*dx;
  214.         y_low       = pos_pop_sca(2)-Def_Btn_Height-dy2;
  215.         pos_txt_min = [x_left_1, y_low+d_txt/2, w_txt, Def_Txt_Height];
  216.         pos_edi_min = [x_left_1+w_txt, y_low, w_edi, Def_Btn_Height];
  217.         pos_txt_stp = pos_txt_min; pos_txt_stp(2) = pos_txt_stp(2)-deltay;
  218.         pos_edi_stp = pos_edi_min; pos_edi_stp(2) = pos_edi_stp(2)-deltay;
  219.         pos_txt_max = pos_txt_stp; pos_txt_max(2) = pos_txt_max(2)-deltay;
  220.         pos_edi_max = pos_edi_stp; pos_edi_max(2) = pos_edi_max(2)-deltay;
  221.         %------------------------------------------------------------------
  222.         w_txt       = (2*Def_Btn_Width)/3;
  223.         pos_txt_pow = [x_left_1, y_low+d_txt/2, w_txt, Def_Txt_Height];
  224.         xl          = pos_txt_pow(1)+pos_txt_pow(3)+dx;
  225.         pos_pop_pow = [xl, y_low, Pop_Min_Width, Def_Btn_Height];
  226.         %------------------------------------------------------------------
  227.         pos_txt_msc = [x_left_1, y_low , pos_pop_sca(3), Def_Txt_Height];
  228.         y_low       = y_low-Def_Btn_Height-dy;
  229.         pos_edi_msc = [x_left_2, y_low , pos_pop_sca(3), Def_Btn_Height];
  230.         %------------------------------------------------------------------
  231.         w_uic       = 1.5*Def_Btn_Width;
  232.         y_uic       = 1.5*Def_Btn_Height;
  233.         y_low       = pos_fra_sca(2)-y_uic-2*dy;
  234.         x_uic       = toolPos(1)+(toolPos(3)-w_uic)/2;
  235.         pos_pus_ana = [x_uic,y_low,w_uic,y_uic];
  236.         %------------------------------------------------------------------
  238.         %------------------------------------------------------------------
  239.         y_fra       = colmapPos(2)+colmapPos(4)+2*dy;
  240.         h_fra       = Def_Btn_Height+3*dy;        
  241.         pos_fra_ccm = [toolPos(1),y_fra,toolPos(3),h_fra];
  242.         y_low       = y_fra+dy;
  243.         pos_pop_ccm = [toolPos(1)+dx,y_low,toolPos(3)-2*dx,Def_Btn_Height];
  244.         y_low       = y_low+Def_Btn_Height+dy/2;
  245.         w_uic       = 1.5*Def_Btn_Width;
  246.         x_uic       = toolPos(1)+(toolPos(3)-w_uic)/2;
  247.         pos_txt_ccm = [x_uic, y_low, w_uic, Def_Txt_Height];
  248.         %------------------------------------------------------------------
  249.         y_low       = pos_fra_ccm(2)+pos_fra_ccm(4)+3*dy;
  250.         x_uic       = toolPos(1);
  251.         w_uic       = (toolPos(3)-dx)/2;
  252.         pos_rad_SCA = [x_uic, y_low, w_uic, Def_Btn_Height];
  253.         x_uic       = x_uic+w_uic+dx;
  254.         pos_rad_FRQ = [x_uic, y_low, w_uic, Def_Btn_Height];
  255.         %------------------------------------------------------------------
  256.         y_fra       = pos_rad_SCA(2)+pos_rad_SCA(4)+dy2;
  257.         h_fra       = 4*Def_Btn_Height+4*dy;
  258.         w_uic       = 2*Def_Btn_Width;
  259.         w_fra       = toolPos(3);
  260.         x_fra       = toolPos(1); 
  262.         pos_fra_axe = [x_fra,y_fra,w_fra,h_fra];
  263.         y_low       = y_fra+dy;
  264.         x_uic       = toolPos(1)+(toolPos(3)-w_uic)/2; 
  265.         pos_chk_LML = [x_uic, y_low, w_uic, Def_Btn_Height];
  266.         y_low       = y_low+Def_Btn_Height;
  267.         pos_chk_LC  = [x_uic, y_low, w_uic, Def_Btn_Height];
  268.         y_low       = y_low+Def_Btn_Height;
  269.         pos_chk_DEC = [x_uic, y_low, w_uic, Def_Btn_Height];
  270.         
  271.         y_low       = y_low+Def_Btn_Height+dy;
  272.         w_uic       = (w_fra-2*dx)/4;
  273.         x_uic       = x_fra+dx;
  274.         pos_rad_MOD = [x_uic, y_low, 1.5*w_uic, Def_Btn_Height];
  275.         x_uic       = x_uic+1.5*w_uic;
  276.         pos_rad_ANG = [x_uic, y_low, 1.5*w_uic, Def_Btn_Height];
  277.         x_uic       = x_uic+1.5*w_uic;
  278.         pos_rad_ALL = [x_uic, y_low, w_uic, Def_Btn_Height];
  279.         
  280.         y_low       = y_low+Def_Btn_Height;
  281.         w_uic       = 1.25*Def_Btn_Width;
  282.         x_uic       = toolPos(1)+(toolPos(3)-w_uic)/2; 
  283.         pos_txt_axe = [x_uic, y_low, w_uic, Def_Txt_Height];
  284.         %------------------------------------------------------------------
  285.         y_low       = pos_fra_axe(2)+pos_fra_axe(4)+2*dy2;
  286.         xg          = x_frame+(cmd_width-pop_width)/2;
  287.         pos_pus_ref = [xg,y_low,pop_width,Def_Btn_Height];
  288.         y_low       = y_low+Def_Btn_Height;
  289.         pos_pus_lin = [xg,y_low,pop_width,Def_Btn_Height];
  290.         %------------------------------------------------------------------
  292.         % String property of objects.
  293.         %----------------------------
  294.         str_txt_sam = 'Sampling Period:';
  295.         str_txt_sca = 'Scale Settings';
  296.         str_pop_sca = ...
  297.             strvcat('Step by Step Mode','Power 2 Mode','Manual Mode');
  298.         str_pus_ana = 'Analyze';
  299.         str_pus_lin = 'New Coefficients Line';
  300.         str_pus_ref = 'Refresh Maxima Lines';
  302.         str_txt_min = 'Min  ( > 0)';
  303.         str_txt_stp = 'Step ( > 0 )';
  304.         str_txt_max = 'Max     ';
  306.         str_txt_pow = 'Power';
  307.         str_pop_pow = int2str([1:max_lev_anal]');
  308.         str_txt_msc = 'Scales : MATLAB Vector';
  310.         str_txt_axe = 'Selected Axes';
  311.         str_rad_MOD = 'Modulus';
  312.         str_rad_ANG = 'Angle';
  313.         str_rad_ALL = 'Both';
  314.         str_chk_LML = 'Maxima Lines';
  315.         str_chk_LC  = 'Coefficients Line';
  316.         str_chk_DEC = 'Coefficients';
  318.         str_rad_SCA = 'Scales';
  319.         str_rad_FRQ = 'Frequencies';
  321.         str_txt_ccm = 'Coloration Mode';
  322.         str_pop_ccm = ['init + by scale     '; ...
  323.                        'init + all scales   '; ...
  324.                        'current + by scale  '; ...
  325.                        'current + all scales'     ];
  328.         % Callback property of objects.
  329.         %------------------------------
  330.         cba_edi_sam = ['cw1dmngr(''setSamPer'',' str_numwin ');'];
  331.         cba_pus_ana = ['cw1dmngr(''anal'',' str_numwin ');'];
  332.         cba_pus_lin = ['cw1dmngr(''newCfsLine'',' str_numwin ');'];
  333.         cba_pus_ref = ['cw1dmngr(''newChainLine'',' str_numwin ');'];
  334.         cba_pop_sca = ['cw1dmngr(''newScaleMode'',' str_numwin ');'];
  335.         cba_axe_RAD = ['cw1dmngr(''setPosAxesIMAG'',' str_numwin ');'];
  336.         cba_axe_CHK = ['cw1dmngr(''setPosAxes'',' str_numwin ');'];
  337.         cba_sof_RAD = ['cw1dmngr(''sca_OR_frq'',' str_numwin ');'];
  338.         cba_pop_ccm = ['cw1dmngr(''colorCoefs'',' str_numwin ');'];
  339.  
  340.         % UIC common properties.
  341.         %-----------------------
  342.         comPropINI = {...
  343.            'Parent',win_tool, ...
  344.            'Unit',win_units,  ...
  345.            };        
  346.         comPropAll = {comPropINI{:},'Visible','On'};
  347.         comPropFra = {comPropAll{:},       ...
  348.            'Style','frame',                 ...
  349.            'Backgroundcolor',Def_FraBkColor...
  350.            };
  351.         comPropTxtLEFT = {comPropAll{:},   ...
  352.            'Style','text',                 ...
  353.            'HorizontalAlignment','left',   ...
  354.            'Backgroundcolor',Def_FraBkColor...
  355.            };
  356.         comPropTxtCENT = {comPropAll{:},   ...
  357.            'Style','text',                 ...
  358.            'HorizontalAlignment','center', ...
  359.            'Backgroundcolor',Def_FraBkColor...
  360.            };
  361.         comPropEdi = {comPropAll{:},       ...
  362.            'Style','edit',                 ...
  363.            'Enable','Off',                 ...
  364.            'HorizontalAlignment','center', ...
  365.            'Backgroundcolor',Def_EdiBkColor...
  366.            };
  367.         comPropChk = {comPropAll{:},       ...
  368.            'Style','CheckBox',             ...
  369.            'Enable','Off',                 ...
  370.            'HorizontalAlignment','center', ...
  371.            'Backgroundcolor',Def_FraBkColor...
  372.            };
  373.         comPropRad = {comPropAll{:},       ...
  374.            'Style','RadioButton',          ...
  375.            'Enable','Off',                 ...
  376.            'HorizontalAlignment','center', ...
  377.            'Backgroundcolor',Def_FraBkColor...
  378.            };
  380.         % UIC construction.
  381.         %------------------
  382.         %-----------------------------------------------------------------%
  383.         fra_sam = uicontrol(comPropFra{:},'Position',pos_fra_sam);
  384.         txt_sam = uicontrol(comPropTxtLEFT{:},              ...
  385.                             'Position',pos_txt_sam,         ...
  386.                             'HorizontalAlignment','center', ...
  387.                             'String',str_txt_sam            ...
  388.                             );
  389.         edi_sam = uicontrol(comPropEdi{:}, ...
  390.                             'Position',pos_edi_sam, ...
  391.                             'CallBack',cba_edi_sam);
  392.         %-----------------------------------------------------------------%
  393.         fra_sca = uicontrol(comPropFra{:},          ...
  394.                             'Position',pos_fra_sca, ...
  395.                             'TooltipString','Scale Settings'  ...
  396.                             );
  398.         txt_sca = uicontrol(comPropTxtCENT{:},      ...
  399.                             'Position',pos_txt_sca, ...
  400.                             'String',str_txt_sca    ...
  401.                             );
  402.         sca_mod = 1;
  403.         pop_sca = uicontrol(comPropAll{:},          ...
  404.                             'Style','Popup',        ...
  405.                             'Position',pos_pop_sca, ...
  406.                             'String',str_pop_sca,   ...
  407.                             'Value',sca_mod ,       ...
  408.                             'UserData',0,           ...
  409.                             'Enable','Off',         ...
  410.                             'Callback',cba_pop_sca  ...
  411.                              );
  413.         pus_ana = uicontrol(comPropAll{:},          ...
  414.                             'Style','Pushbutton',   ...
  415.                             'Position',pos_pus_ana, ...
  416.                             'String',xlate(str_pus_ana),   ...
  417.                             'Enable','Off',         ...
  418.                             'Callback',cba_pus_ana, ...
  419.                             'Interruptible','On'    ...
  420.                             );
  422.         %-------------------------- Mode Step by Step --------------------%
  423.         txt_min = uicontrol(comPropTxtLEFT{:},      ...
  424.                             'Position',pos_txt_min, ...
  425.                             'String',str_txt_min    ...
  426.                             );
  428.         edi_min = uicontrol(comPropEdi{:},'Position',pos_edi_min);
  430.         txt_stp = uicontrol(comPropTxtLEFT{:},      ...
  431.                             'Position',pos_txt_stp, ...
  432.                             'String',str_txt_stp    ...
  433.                             );
  435.         edi_stp = uicontrol(comPropEdi{:},'Position',pos_edi_stp);
  437.         txt_max = uicontrol(comPropTxtLEFT{:},      ...
  438.                             'Position',pos_txt_max, ...
  439.                             'String',str_txt_max    ...
  440.                             );
  442.         edi_max = uicontrol(comPropEdi{:},'Position',pos_edi_max);
  443.         %--------------------------- Mode Power 2-------------------------%
  444.         txt_pow = uicontrol(comPropTxtLEFT{:},      ...
  445.                             'Visible','Off',        ...
  446.                             'Position',pos_txt_pow, ...
  447.                             'String',str_txt_pow    ...
  448.                             );
  450.         pop_pow = uicontrol(comPropAll{:},          ...
  451.                             'Style','Popup',        ...
  452.                             'Visible','Off',        ...
  453.                             'Position',pos_pop_pow, ...
  454.                             'String',str_pop_pow,   ...
  455.                             'Enable','off'          ...
  456.                             );
  457.         %-------------------------- Mode Manual --------------------------%
  458.         txt_msc = uicontrol(comPropTxtLEFT{:},      ...
  459.                             'Visible','Off',        ...
  460.                             'Position',pos_txt_msc, ...
  461.                             'String',str_txt_msc    ...
  462.                             );
  464.         edi_msc = uicontrol(comPropEdi{:},          ...
  465.                             'Visible','Off',        ...
  466.                             'Position',pos_edi_msc, ...
  467.                             'String','[1:2:64]'     ...
  468.                             );
  469.         %-----------------------------------------------------------------%
  470.         fra_axe = uicontrol(comPropFra{:},'Position',pos_fra_axe);
  471.         txt_axe = uicontrol(comPropTxtCENT{:},      ...
  472.                             'Position',pos_txt_axe, ...
  473.                             'String',str_txt_axe    ...
  474.                             );
  476.         rad_MOD = uicontrol(comPropRad{:},          ...
  477.                             'Position',pos_rad_MOD, ...
  478.                             'String',str_rad_MOD,   ...
  479.                             'Value',0,              ...
  480.                             'Callback',cba_axe_RAD  ...
  481.                             );
  482.         rad_ANG = uicontrol(comPropRad{:},          ...
  483.                             'Position',pos_rad_ANG, ...
  484.                             'String',str_rad_ANG,   ...
  485.                             'Value',0,              ...
  486.                             'Callback',cba_axe_RAD  ...                            
  487.                             );
  489.         rad_ALL = uicontrol(comPropRad{:},          ...
  490.                             'Position',pos_rad_ALL, ...
  491.                             'String',str_rad_ALL,   ...
  492.                             'Value',1,              ...
  493.                             'Callback',cba_axe_RAD  ...                            
  494.                             );
  496.         chk_DEC = uicontrol(comPropChk{:},          ...
  497.                             'Position',pos_chk_DEC, ...
  498.                             'String',str_chk_DEC,   ...
  499.                             'Value',1,              ...
  500.                             'Callback',cba_axe_CHK  ...
  501.                             );
  502.         chk_LC  = uicontrol(comPropChk{:},          ...
  503.                             'Position',pos_chk_LC,  ...
  504.                             'String',str_chk_LC,    ...
  505.                             'Value',1,              ...
  506.                             'Callback',cba_axe_CHK  ...
  507.                             );
  508.         chk_LML = uicontrol(comPropChk{:},          ...
  509.                             'Position',pos_chk_LML, ...
  510.                             'String',str_chk_LML,   ...
  511.                             'Value',1,              ...
  512.                             'Callback',cba_axe_CHK  ...
  513.                             );       
  514.         pus_lin = uicontrol(comPropAll{:},          ...
  515.                             'Style','Pushbutton',   ...
  516.                             'Position',pos_pus_lin, ...
  517.                             'String',xlate(str_pus_lin),   ...
  518.                             'Enable','Off',         ...
  519.                             'Callback',cba_pus_lin, ...
  520. 'Tooltip','New Coefficients Line', ...
  521.                             'Interruptible','On'    ...
  522.                             );
  523.         pus_ref = uicontrol(comPropAll{:},          ...
  524.                             'Style','Pushbutton',   ...
  525.                             'Position',pos_pus_ref, ...
  526.                             'String',xlate(str_pus_ref),   ...
  527.                             'Enable','Off',         ...
  528.                             'Callback',cba_pus_ref, ...
  529. 'Tooltip','Refresh Maxima Lines', ...
  530.                             'Interruptible','On'    ...
  531.                             );
  532. %-----------------------------------------------------------------%
  533.         rad_SCA = uicontrol(comPropRad{:},          ...
  534.                             'Position',pos_rad_SCA, ...
  535.                             'String',str_rad_SCA,   ...
  536.                             'Value',1,              ...
  537.                             'Callback',cba_sof_RAD  ...
  538.                             );
  539.         rad_FRQ = uicontrol(comPropRad{:},          ...
  540.                             'Position',pos_rad_FRQ, ...
  541.                             'String',str_rad_FRQ,   ...
  542.                             'Value',0,              ...
  543.                             'Callback',cba_sof_RAD  ...                            
  544.                             );
  545.         %-----------------------------------------------------------------%
  546.         fra_ccm = uicontrol(comPropFra{:},'Position',pos_fra_ccm);
  548.         txt_ccm = uicontrol(comPropTxtCENT{:},      ...
  549.                             'Position',pos_txt_ccm, ...
  550.                             'String',str_txt_ccm    ...
  551.                             );
  552.         pop_ccm = uicontrol(comPropAll{:},          ...
  553.                             'Style','Popup',        ...
  554.                             'Position',pos_pop_ccm, ...
  555.                             'String',str_pop_ccm,   ...
  556.                             'Value',1,              ...
  557.                             'UserData',0,           ...
  558.                             'Enable','Off',         ...
  559.                             'Callback',cba_pop_ccm  ...
  560.                             );
  561.         %-----------------------------------------------------------------%
  563.         % Callbacks update.
  564.         %------------------
  565.         utanapar('set_cba_num',win_tool,[m_files;pus_ana]);
  566.         drawnow;
  568.         %  Normalization.
  569.         %----------------
  570.         Pos_Graphic_Area = wfigmngr('normalize',win_tool,Pos_Graphic_Area);
  572.         % Tool Parameters & Axes Construction.
  573.         %-------------------------------------     
  574.         [hdl_Re_AXES,hdl_Im_AXES] = cw1dutil('initPosAxes',win_tool,'all',...
  575.                                          Pos_Graphic_Area);
  577. % Add Context Sensitive Help (CSHelp).
  578. %-------------------------------------
  579. hdl_CW_SCALES = [ ...
  580. fra_sca,txt_sca,pop_sca, ...
  581. txt_min,edi_min,txt_stp,edi_stp, ...
  582. txt_max,edi_max,txt_pow,pop_pow, ...
  583. txt_msc,edi_msc                  ...
  584. ];
  585. hdl_CW_COEFLINE = [pus_lin];
  586. hdl_CW_MAXLINE  = [pus_ref];
  587. hdl_CW_SCAL2FRQ = [rad_SCA,rad_FRQ];
  588. hdl_CW_COLMODE  = [fra_ccm,txt_ccm,pop_ccm];
  589. wfighelp('add_ContextMenu',win_tool,hdl_CW_SCALES,'CW_SCALES');
  590. wfighelp('add_ContextMenu',win_tool,hdl_CW_COEFLINE,'CW_COEFLINE');
  591. wfighelp('add_ContextMenu',win_tool,hdl_CW_MAXLINE,'CW_MAXLINE');
  592. wfighelp('add_ContextMenu',win_tool,hdl_CW_SCAL2FRQ,'CW_SCAL2FRQ');
  593. wfighelp('add_ContextMenu',win_tool,hdl_CW_COLMODE,'CW_COLMODE');
  594. %-------------------------------------
  595.  
  596.         % Memory for stored values.
  597.         %--------------------------
  598.         wmemtool('ini',win_tool,n_InfoInit,nb0_stored);
  599.         wmemtool('ini',win_tool,n_param_anal,nb1_stored);
  600.         wmemtool('ini',win_tool,n_coefs_sca,nb2_stored);
  601.         wmemtool('wmb',win_tool,n_param_anal,ind_gra_area,Pos_Graphic_Area);
  602.         wmemtool('wmb',win_tool,n_coefs_sca,ind_sca_OR_frq,ind_scales);
  604.         fields = {...
  605.           'fra_sam','txt_sam','edi_sam', ...
  606.           'fra_sca','txt_sca','pop_sca', ...
  607.           'pus_ana',                     ...
  608.           'txt_min','edi_min',           ...
  609.           'txt_stp','edi_stp',           ...
  610.           'txt_max','edi_max',           ...
  611.           'txt_pow','pop_pow',           ...
  612.           'txt_msc','edi_msc',           ...
  613.           'pus_lin','pus_ref',           ...
  614.           'fra_axe','txt_axe',           ...
  615.           'rad_MOD','rad_ANG','rad_ALL', ...
  616.           'chk_DEC','chk_LC' ,'chk_LML', ...
  617.           'rad_SCA','rad_FRQ',           ...
  618.           'fra_ccm','txt_ccm','pop_ccm'  ...
  619.           };
  621.         values = {...
  622.            fra_sam , txt_sam , edi_sam , ...
  623.            fra_sca , txt_sca , pop_sca , ...
  624.            pus_ana ,                     ...
  625.            txt_min , edi_min ,           ...
  626.            txt_stp , edi_stp ,           ...
  627.            txt_max , edi_max ,           ...
  628.            txt_pow , pop_pow ,           ...
  629.            txt_msc , edi_msc ,           ...
  630.            pus_lin , pus_ref ,           ...
  631.            fra_axe , txt_axe ,           ...
  632.            rad_MOD , rad_ANG , rad_ALL,  ...
  633.            chk_DEC , chk_LC  , chk_LML , ...
  634.            rad_SCA , rad_FRQ ,           ...
  635.            fra_ccm , txt_ccm , pop_ccm   ...
  636.            };
  637.         
  638.         hdl_UIC = cell2struct(values,fields,2);
  640.         hdl_MEN = [men_load ; men_save ; men_demo];
  641.         handles = struct(...
  642.             'hdl_MEN',hdl_MEN, ...
  643.             'hdl_UIC',hdl_UIC, ...
  644.             'hdl_Re_AXES',hdl_Re_AXES,...
  645.             'hdl_Im_AXES',hdl_Im_AXES ...
  646.             );
  647.         wfigmngr('storeValue',win_tool,['CW1D_handles'],handles);
  649.         % End waiting.
  650.         %---------------
  651.         wwaiting('off',win_tool);
  653.     case 'close'
  655.     otherwise
  656.         errargt(mfilename,'Unknown Option','msg');
  657.         error('*');
  658. end