crc.rar_CRC PLOT MATLAB_builder treeview_matlab crc_matlab treev

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % CRC - ExploreStruct v1.1, % MatLab Utility for exploring structures and plotting their fields % Syntax: explorestruct(S), where S is structure, array of strctures or nested structures % % Hassan Lahdili (hassan.lahdili@crc.ca) % Communications Research Centre (CRC) | Advanced Audio Systems (AAS) % www.crc.ca | www.crc.ca/aas % Ottawa. Canada % CRC Advanced Audio Systems - Ottawa � 2004-2005 % 16/02/2005 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function explorestruct(varargin) if ~isstruct(varargin{:}) msgerror = strcat('''',inputname(1),''''' is not a structure!!'); error(msgerror); end import javax.swing.*; h = figure('Units', 'normalized', 'Color', [.925 .914 .847], 'Position', [.15 .15 .7 .6]); set(h,'NextPlot', 'add', 'NumberTitle', 'off', 'Toolbar', 'figure') name = inputname(1); fig_name = 'explorestruct'; fig_name = strcat(fig_name, ': ', name); set(h, 'Name', fig_name); root = uitreenode(name, name, [], false); tree = uitree( h,'Root', root,'ExpandFcn', @myExpfcn4); set(tree, 'Units', 'normalized', 'position', [0 0 0.35 1]) set(tree, 'NodeWillExpandCallback', @nodeWillExpand_cb4); set(tree, 'NodeSelectedCallback', @nodeSelected_cb4); tmp = tree. FigureComponent; cell_Data = cell(2,1); cell_Data{1} = varargin{:}; set(tmp, 'UserData', cell_Data); haxes = axes('Units', 'normalized','Position', [.491 .182 .434 .653], 'Box', 'on', 'XTick', [], 'YTick', []); haxes2 = axes('Units', 'normalized','Position', [.873 .055 .06 .05], 'XTick', [], 'YTick', []); logo = load ('Stbrowser'); image(logo.A, 'Parent', haxes2); set(haxes2, 'visible','off'); pb1 = uicontrol('String', 'Plot Selected', 'Units', 'normalized',... 'Position', [.36 .6 .086 .083] , 'callback', @plotselected_cb,... 'TooltipString', ' Plot Selection '); pb2 = uicontrol('String', 'Disp Selected', 'Units', 'normalized',... 'Position', [.36 .464 .086 .083], 'callback', @displayselected_cb,... 'TooltipString', ' Display Selection in command '); pb3 = uicontrol('String', 'Export', 'Units', 'normalized',... 'Position', [.36 .328 .086 .083], 'callback', @exportselected_cb,... 'TooltipString', ' Export Selection to workspace '); txt1 = uicontrol('String', '', 'Units', 'normalized', 'Style', 'Edit',... 'Position', [.491 .915 .145 .034], 'BackgroundColor', [.925 .914 .847]); txt2 = uicontrol('String', '', 'Units', 'normalized', 'Style', 'Edit',... 'Position', [.636 .915 .145 .034], 'BackgroundColor', [.925 .914 .847]); txt3 = uicontrol('String', '', 'Units', 'normalized', 'Style', 'Edit',... 'Position', [.781 .915 .145 .034], 'BackgroundColor', [.925 .914 .847]); txt4 = uicontrol('String', 'CRC-ExploreStruct', 'Units', 'normalized', 'Style', 'text',... 'Position', [.547 .065 .29 .046], 'ForeGroundColor', [0.2 0.4 1],... 'FontSize', 18,'FontWeight', 'bold','FontAngle', 'italic'); col1 = uicontrol('String', 'Name', 'Units', 'normalized', 'Style', 'Text',... 'Position', [.491 .949 .145 .03], 'BackgroundColor', [.925 .914 .847]); col2 = uicontrol('String', 'Size', 'Units', 'normalized', 'Style', 'Text',... 'Position', [.636 .949 .145 .03], 'BackgroundColor', [.925 .914 .847]); col3 = uicontrol('String', 'Class', 'Units', 'normalized', 'Style', 'Text',... 'Position', [.781 .949 .145 .03], 'BackgroundColor', [.925 .914 .847]); label = uicontrol('String', 'Selected''s info', 'Units', 'normalized', 'Style', 'Text',... 'Position', [.375 .91 .1 .034], 'BackgroundColor', [.925 .914 .847]); test = get(tmp, 'UserData'); cMenu1 = JMenuItem('Plot selected'); set(cMenu1, 'ActionPerformedCallback', @cMenu1_cb); cMenu2 = JMenuItem('Display selected'); set(cMenu2, 'ActionPerformedCallback', @cMenu2_cb); cMenu3 = JMenuItem('Export selected'); set(cMenu3, 'ActionPerformedCallback', @cMenu3_cb); pUpMenu = JPopupMenu; pUpMenu.add(cMenu1); pUpMenu.add(cMenu2); pUpMenu.add(cMenu3); cmenu = uicontextmenu; set(root,'UIContextMenu', cmenu); t = tree.Tree; set(t, 'MousePressedCallback', @mouse_cb); % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Mouse Pressed Handler function mouse_cb(h, ev) if ev.getModifiers()== ev.META_MASK pUpMenu.show(t, ev.getX, ev.getY); pUpMenu.repaint; end end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function plotselected_cb(h, ev) tmp = tree. FigureComponent; S = get(tmp, 'UserData'); s = S{1}; cNode = S{2}; [val, plotted, cNode] = getcNodevalue(cNode, s); if isnumeric(val) & length(val)>1 if isreal(val) plot(haxes,val) set(haxes, 'XLim', [1 length(val)]) title(haxes, plotted) else plot(haxes,abs(val)) set(haxes, 'XLim', [1 length(val)]) title(haxes, plotted) legend(haxes,strcat('abs of (',plotted, ')')) end else errordlg('variable to be plotted should be numeric with length > 1') end end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function displayselected_cb(h, ev) tmp = tree. FigureComponent; S = get(tmp, 'UserData'); s = S{1}; cNode = S{2}; [val, displayed, cNode] = getcNodevalue(cNode, s); disp(strcat(displayed, '=')) disp(val) end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function exportselected_cb(h, ev) %Exporting data from a tree to the MATLAB workspace tmp = tree. FigureComponent; S = get(tmp, 'UserData'); s = S{1}; cNode = S{2}; val = s; [val, exported, cNode] = getcNodevalue(cNode, s); disp(strcat(exported, ' is assigned to V in workspace')) assignin('base', 'V', val); end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function cMenu1_cb(h,ev) plotselected_cb; end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function cMenu2_cb(h,ev) displayselected_cb; end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function cMenu3_cb(h,ev) exportselected_cb; end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function cNode = nodeSelected_cb4(tree,ev) cNode = ev.getCurrentNode; tmp = tree.FigureComponent; cell_Data =get(tmp, 'UserData'); cell_Data{2} = cNode; s = cell_Data{1}; val = s; plotted = cNode.getValue; selected = plotted; [val, plotted, cNode] = getcNodevalue(cNode, val); set(txt1, 'string', selected) set(txt2, 'string', strcat(num2str(size(val,1)),'x',num2str(size(val,2))) ) set(txt3, 'string', class(val)) set(tmp, 'UserData', cell_Data); end end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function nodes = myExpfcn4(tree,value) try tmp = tree. FigureComponent; S= get(tmp, 'UserData'); s = S{1}; cNode = S{2}; [val, cNode] = getcNodevalue(cNode, s); fnames = fieldnames(val); pth = [matlabroot, '\work\exp_struct_icons\']; %% L = length(val); count = 0; if L > 1 iconpath =[pth,'struct_icon.GIF']; for J = 1:L coun