utstats.m
上传用户：haiyisale
上传日期：2013-01-09
资源大小：3246k
文件大小：11k
- function varargout = utstats(option,fig,varargin)
- %UTSTATS Utilities for statistics tools.
- % VARARGOUT = UTSTATS(OPTION,FIG,VARARGIN)
- % M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 04-May-98.
- % Last Revision: 04-May-1999.
- % Copyright 1995-2002 The MathWorks, Inc.
- % $Revision: 1.4 $ $Date: 2002/04/14 19:48:47 $
- % Tag property of objects.
- %-------------------------
- tag_sta_val = 'Fra_StaVal';
- switch option
- case 'create'
- % Get Globals.
- %--------------
- [Def_Txt_Height,Def_Btn_Height,X_Spacing,Y_Spacing, ...
- Def_TxtBkColor,Def_FraBkColor] = ...
- mextglob('get',...
- 'Def_Txt_Height','Def_Btn_Height','X_Spacing','Y_Spacing', ...
- 'Def_TxtBkColor','Def_FraBkColor' ...
- );
- % General graphical parameters initialization.
- %--------------------------------------------
- % Borders and double borders.
- dx = X_Spacing; dx2 = 2*dx;
- dy = Y_Spacing; dy2 = 2*dy;
- % Defaults.
- %----------
- xleft = Inf; xright = Inf; xloc = Inf;
- ytop = Inf; ybottom = Inf; yloc = Inf;
- bkColor = Def_FraBkColor;
- % Inputs.
- %--------
- nbarg = length(varargin);
- for k=1:2:nbarg
- arg = lower(varargin{k});
- switch arg
- case 'left' , xleft = varargin{k+1};
- case 'right' , xright = varargin{k+1};
- case 'xloc' , xloc = varargin{k+1};
- case 'bottom' , ybottom = varargin{k+1};
- case 'top' , ytop = varargin{k+1};
- case 'yloc' , yloc = varargin{k+1};
- case 'bkcolor' , bkColor = varargin{k+1};
- end
- end
- old_units = get(fig,'units');
- fig_units = 'pixels';
- if ~isequal(old_units,fig_units), set(fig,'units',fig_units); end
- % Setting frame position.
- %------------------------
- [dummy,win_width ,dummy,cmd_width] = wfigmngr('figsizes',fig);
- w_fra = win_width-cmd_width-2*dx2;
- h_fra = 3*Def_Btn_Height+8*dy;
- xleft = utposfra(xleft,xright,xloc,w_fra);
- ybottom = utposfra(ybottom,ytop,yloc,h_fra);
- pos_fra = [xleft,ybottom,w_fra,h_fra];
- % Position property of objects.
- %------------------------------
- yd_ini = pos_fra(2)+h_fra-Def_Btn_Height-dy2;
- wx = (pos_fra(3)-4*dx)/8;
- xl = pos_fra(1)+dx;
- yd = yd_ini;
- pos_mean_txt = [xl, yd, 4*wx/5, Def_Btn_Height];
- yd = yd-Def_Btn_Height-dy2;
- pos_med_txt = [xl, yd, 4*wx/5, Def_Btn_Height];
- yd = yd-Def_Btn_Height-dy2;
- pos_mode_txt = [xl, yd, 4*wx/5, Def_Btn_Height];
- xl = pos_mean_txt(1)+pos_mean_txt(3)+dx+6*wx/5;
- yd = yd_ini;
- pos_max_txt = [xl, yd, wx, Def_Btn_Height];
- yd = yd-Def_Btn_Height-dy2;
- pos_min_txt = [xl, yd, wx, Def_Btn_Height];
- yd = yd-Def_Btn_Height-dy2;
- pos_range_txt = [xl, yd, wx, Def_Btn_Height];
- xl = pos_max_txt(1)+pos_max_txt(3)+dx+6*wx/5;
- yd = yd_ini;
- pos_std_txt = [xl, yd, 13*wx/5, Def_Btn_Height];
- yd = yd-Def_Btn_Height-dy2;
- pos_mad_txt = [xl, yd, 13*wx/5, Def_Btn_Height];
- yd = yd-Def_Btn_Height-dy2;
- pos_madm_txt = [xl, yd, 13*wx/5, Def_Btn_Height];
- pos_mean_val = [ pos_mean_txt(1)+pos_mean_txt(3) ,...
- pos_mean_txt(2) ,...
- 6*wx/5 ,...
- Def_Btn_Height ];
- pos_med_val = [ pos_med_txt(1)+pos_med_txt(3) ,...
- pos_med_txt(2) ,...
- 6*wx/5 ,...
- Def_Btn_Height ];
- pos_mode_val = [ pos_mode_txt(1)+pos_mode_txt(3) ,...
- pos_mode_txt(2) ,...
- 6*wx/5 ,...
- Def_Btn_Height ];
- pos_max_val = [ pos_max_txt(1)+pos_max_txt(3) ,...
- pos_max_txt(2) ,...
- 6*wx/5 ,...
- Def_Btn_Height ];
- pos_min_val = [ pos_min_txt(1)+pos_min_txt(3) ,...
- pos_min_txt(2) ,...
- 6*wx/5 ,...
- Def_Btn_Height ];
- pos_range_val = [ pos_range_txt(1)+pos_range_txt(3) ,...
- pos_range_txt(2) ,...
- 6*wx/5 ,...
- Def_Btn_Height ];
- pos_std_val = [ pos_std_txt(1)+pos_std_txt(3) ,...
- pos_std_txt(2) ,...
- 6*wx/5 ,...
- Def_Btn_Height ];
- pos_mad_val = [ pos_mad_txt(1)+pos_mad_txt(3) ,...
- pos_mad_txt(2) ,...
- 6*wx/5 ,...
- Def_Btn_Height ];
- pos_madm_val = [ pos_madm_txt(1)+pos_madm_txt(3) ,...
- pos_madm_txt(2) ,...
- 6*wx/5 ,...
- Def_Btn_Height ];
- % String property of objects.
- %----------------------------
- str_mean_txt = 'Mean';
- str_med_txt = 'Median';
- str_mode_txt = 'Mode';
- str_max_txt = 'Maximum';
- str_min_txt = 'Minimum';
- str_range_txt = 'Range';
- str_std_txt = 'Standard deviation';
- str_mad_txt = 'Median absolute deviation';
- str_madm_txt = 'Mean absolute deviation';
- % Frame Stats construction.
- %--------------------------
- txt_color = Def_FraBkColor;
- val_color = Def_TxtBkColor;
- fra_utl = uicontrol('Parent',fig,...
- 'Style','frame',...
- 'Unit',fig_units,...
- 'Position',pos_fra,...
- 'Visible','off',...
- 'Backgroundcolor',txt_color,...
- 'Foregroundcolor','k',...
- 'tag',tag_sta_val ...
- );
- commonPropTxt = {...
- 'Parent',fig,...
- 'Style','Text',...
- 'Unit',fig_units,...
- 'HorizontalAlignment','left',...
- 'Visible','off',...
- 'Backgroundcolor',txt_color...
- };
- commonPropVal = {...
- 'Parent',fig,...
- 'Style','Text',...
- 'Unit',fig_units,...
- 'HorizontalAlignment','center',...
- 'Visible','off',...
- 'Backgroundcolor',val_color...
- };
- txt_mean_txt = uicontrol(commonPropTxt{:}, ...
- 'Position',pos_mean_txt,'String',str_mean_txt);
- txt_mean_val = uicontrol(commonPropVal{:},'Position',pos_mean_val);
- txt_med_txt = uicontrol(commonPropTxt{:}, ...
- 'Position',pos_med_txt,'String',str_med_txt);
- txt_med_val = uicontrol(commonPropVal{:},'Position',pos_med_val);
- txt_mode_txt = uicontrol(commonPropTxt{:}, ...
- 'Position',pos_mode_txt,'String',str_mode_txt);
- txt_mode_val = uicontrol(commonPropVal{:},'Position',pos_mode_val);
- txt_max_txt = uicontrol(commonPropTxt{:}, ...
- 'Position',pos_max_txt,'String',str_max_txt);
- txt_max_val = uicontrol(commonPropVal{:},'Position',pos_max_val);
- txt_min_txt = uicontrol(commonPropTxt{:}, ...
- 'Position',pos_min_txt,'String',str_min_txt);
- txt_min_val = uicontrol(commonPropVal{:},'Position',pos_min_val);
- txt_range_txt = uicontrol(commonPropTxt{:}, ...
- 'Position',pos_range_txt,'String',str_range_txt);
- txt_range_val = uicontrol(commonPropVal{:},'Position',pos_range_val);
- txt_std_txt = uicontrol(commonPropTxt{:}, ...
- 'Position',pos_std_txt,'String',str_std_txt);
- txt_std_val = uicontrol(commonPropVal{:},'Position',pos_std_val);
- txt_mad_txt = uicontrol(commonPropTxt{:}, ...
- 'Position',pos_mad_txt,'String',str_mad_txt);
- txt_mad_val = uicontrol(commonPropVal{:},'Position',pos_mad_val);
- txt_madm_txt = uicontrol(commonPropTxt{:}, ...
- 'Position',pos_madm_txt,'String',str_madm_txt);
- txt_madm_val = uicontrol(commonPropVal{:},'Position',pos_madm_val);
- drawnow
- % Sets of handles.
- %-----------------
- ud.handles = [...
- fra_utl; ...
- txt_mean_txt; txt_med_txt; txt_mode_txt; ...
- txt_max_txt ; txt_min_txt; txt_range_txt; ...
- txt_std_txt ; txt_mad_txt; txt_madm_txt; ...
- txt_mean_val; txt_med_val; txt_mode_val; ...
- txt_max_val; txt_min_val; txt_range_val; ...
- txt_std_val; txt_mad_val; txt_madm_val ...
- ];
- set(fra_utl,'Userdata',ud);
- if nargout>0
- varargout{1} = ud.handles;
- varargout{2} = h_fra;
- end
- case 'display'
- val_handles = utstats('handles',fig,'val');
- tab_values = varargin{1};
- for k=1:length(val_handles)
- set(val_handles(k),'string',sprintf('%1.4g',tab_values(k)));
- end
- case 'handles'
- fra = findobj(fig,'Style','frame','tag',tag_sta_val);
- ud = get(fra,'Userdata');
- varargout{1} = ud.handles;
- if length(varargin)>0
- type = varargin{1};
- switch type
- case 'all' ,
- case 'val' , varargout{1}([1:10]) = [];
- case 'txt' , varargout{1}([1,11:end]) = [];
- end
- end
- otherwise
- errargt(mfilename,'Unknown Option','msg');
- error('*');
- end
English
