eigtoolgui.m

个人特征结构配置GUI界面实现程序

        'Label','ARPACK/eigs computation (&Slower: N=100,000)', ...
        'Tag','SparseRandPSAl');
h4 = uimenu('Parent',h3, ...
        'Callback','eigtool_switch_fn(''DemoSparseRandC'')', ...
        'Label','&Description and code', ...
        'Separator','on', ...
        'Tag','SparseRandCode');
h3 = uimenu('Parent',h2, ...
        'Callback','', ...
        'Label','&Skew Laplacian (3D)', ...
        'Tag','');
h4 = uimenu('Parent',h3, ...
        'Callback','eigtool_switch_fn(''DemoSkewLapS'')', ...
        'Label','&ARPACK/eigs computation (N=6859)', ...
        'Tag','SkewLapPSAs');
h4 = uimenu('Parent',h3, ...
        'Callback','eigtool_switch_fn(''DemoSkewLapC'')', ...
        'Label','&Description and code', ...
        'Separator','on', ...
        'Tag','SkewLapCode');
h3 = uimenu('Parent',h2, ...
        'Callback','', ...
        'Label','S&UPG', ...
        'Tag','');
h4 = uimenu('Parent',h3, ...
        'Callback','eigtool_switch_fn(''DemoSUPGS'')', ...
        'Label','&ARPACK/eigs computation (N=900)', ...
        'Tag','SparseRandPSAs');
h4 = uimenu('Parent',h3, ...
        'Callback','eigtool_switch_fn(''DemoSUPGC'')', ...
        'Label','&Description and code', ...
        'Separator','on', ...
        'Tag','SUPGCode');
h3 = uimenu('Parent',h2, ...
        'Callback','', ...
        'Label','&Tolosa', ...
        'Tag','');
h4 = uimenu('Parent',h3, ...
        'Callback','eigtool_switch_fn(''DemoTolosaS'')', ...
        'Label','ARPACK/eigs computation (&Faster: N=1090)', ...
        'Tag','TolosaPSAs');
h4 = uimenu('Parent',h3, ...
        'Callback','eigtool_switch_fn(''DemoTolosaL'')', ...
        'Label','ARPACK/eigs computation (&Slower: N=4000)', ...
        'Tag','TolosaPSAl');
h4 = uimenu('Parent',h3, ...
        'Callback','eigtool_switch_fn(''DemoTolosaC'')', ...
        'Label','&Description and code', ...
        'Separator','on', ...
        'Tag','TolosaCode');

h1 = uimenu('Parent',h0, ...
	'Callback','winmenu(gcbo)', ...
	'Label','&Window', ...
	'Tag','WindowMenu');
h2 = uimenu('Parent',h1, ...
	'Callback','', ...
	'Label','blank', ...
	'Tag','');
h2 = uimenu('Parent',h1, ...
	'Callback','', ...
	'Label','blank', ...
	'Tag','');
h2 = uimenu('Parent',h1, ...
	'Callback','', ...
	'Label','blank', ...
	'Tag','');
h2 = uimenu('Parent',h1, ...
	'Callback','', ...
	'Label','blank', ...
	'Tag','');
h2 = uimenu('Parent',h1, ...
	'Callback','', ...
	'Label','blank', ...
	'Tag','');
h2 = uimenu('Parent',h1, ...
	'Callback','', ...
	'Label','blank', ...
	'Tag','');
h2 = uimenu('Parent',h1, ...
	'Callback','', ...
	'Label','blank', ...
	'Tag','');
h2 = uimenu('Parent',h1, ...
	'Callback','', ...
	'Label','blank', ...
	'Tag','');
h2 = uimenu('Parent',h1, ...
	'Callback','', ...
	'Label','blank', ...
	'Tag','');
h2 = uimenu('Parent',h1, ...
	'Callback','', ...
	'Label','blank', ...
	'Tag','');
h2 = uimenu('Parent',h1, ...
	'Callback','', ...
	'Label','blank', ...
	'Tag','');

h1 = uimenu('Parent',h0, ...
	'Callback','', ...
	'Label','&Help', ...
	'Tag','HelpMenu');
%        'Callback','web(''http://www.comlab.ox.ac.uk/pseudospectra/eigtool/documentation/'');', ...
%        'Callback','web([''file://'' which(''eigtool_docs.html'')]);', ...
h2 = uimenu('Parent',h1, ...
        'ForegroundColor',[.7 .25 .18], ...
	'Callback','et_download_mex', ...
	'Label','&Speeding up EigTool', ...
	'Tag','DownloadMEX');
h2 = uimenu('Parent',h1, ...
        'Callback','web([''file://'' which(''eigtool_docs.html'')]);', ...
        'Label','EigTool &Documentation', ...
        'Separator','on', ...
        'Tag','Documentation');
h2 = uimenu('Parent',h1, ...
        'Callback','eigtool_switch_fn(''PSADEMO'');', ...
        'Label','Pseudospectra &Tutorial', ...
        'Tag','PsaTutorial');
h2 = uimenu('Parent',h1, ...
        'Callback','web(''http://www.comlab.ox.ac.uk/pseudospectra/eigtool/'');', ...
        'Label','EigTool &Homepage', ...
        'Separator','on', ...
        'Tag','EigToolHome');
h2 = uimenu('Parent',h1, ...
        'Callback','web(''http://www.comlab.ox.ac.uk/pseudospectra/'');', ...
        'Label','Pseudospectra &Gateway', ...
        'Tag','PsaInfo');

h1 = uimenu('Parent',h0, ...
	'HandleVisibility','off', ...
	'Tag','ScribeFigObjStorage', ...
	'Visible','off');

%% This cell array contains all the messages the GUI can display
the_messages = { ...
  'EigTool: left button to zoom in, right button to zoom out',
  'Press the Go! button to compute on the new axes...',
  'Press the Go! button to compute on the new grid...',
  'Press the Go! button to compute with new projection level...',
  'Please click on an eigenvalue...',
  'More Info: http://www.comlab.ox.ac.uk/pseudospectra/ (click)',
  'Click close to return to EigTool...',
  'Automatic appropriate levels',
  'Begin computing',
  'Compute the numerical range',
  'Revert to original plot',
  'Display an eigenmode and eigenvalue condition number',
  'Display a pseudomode and corresponding resolvent norm',
  'Create a 3D surface plot of the pseudospectra',
  'Exit EigTool',
  'The amount of projection used: Inf = none',
  'Define appropriate levels automatically',
  'Smallest contour levels shown (log base 10)',
  'Level spacing: see Extras menu for abritrary spacing',
  'Stop the current computation',
  'Coloured or black and white lines',
  'Thick or thin lines',
  'Equivalent to axis equal',
  'This number is the minimum x value.',
  'This number is the maximum x value.',
  'This number is the minimum y value.',
  'This number is the minimum y value.',
  'Press the Go! button to compute with the new scale...',
  'Please click on a point...',
  'EigTool: a graphical tool for nonsymmetric eigenproblems',
  'Press the Go! button to compute with the new parameters...',
  'Pause the current computation',
  'Press the Go! button to compute with the new method...',
  'Display a Ritz vector and its residual',
  'Press Pause to change display options',
  'Press Resume to continue',
  'Change ARPACK parameters and press Go! to compute...',
  'EigTool: please wait...',
  'Press the Go! button to recompute...'
  'Please click on a point as the basis for the bound...',
  };

%% Frames
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.701960784313725 0.701960784313725 0.701960784313725], ...
	'ListboxTop',0, ...
	'Position',[16.941176470588   12.705882352941   203.294117647059   122.823529411765], ...
	'Style','frame', ...
	'Tag','Frame1');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.701960784313725 0.701960784313725 0.701960784313725], ...
	'ListboxTop',0, ...
	'Position',[338.823529411765   12.705882352941   173.647058823529   122.823529411765], ...
	'String','testy1', ...
	'Style','frame', ...
	'Tag','Frame2');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.701960784313725 0.701960784313725 0.701960784313725], ...
	'ListboxTop',0, ...
	'Position',[410.8235294117647 144 101.6470588235294 38.11764705882353], ...
	'Style','frame', ...
	'Tag','Frame3');

h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.701960784313725 0.701960784313725 0.701960784313725], ...
	'ListboxTop',0, ...
	'Position',[12.705882352941   444.705882352941   499.764705882353   25.411764705882], ...
	'Style','frame', ...
	'Tag','MessageFrame', ...
        'UserData',the_messages);
%h1 = uicontrol('Parent',h0, ...
%	'Units','points', ...
%	'BackgroundColor',[0.701960784313725 0.701960784313725 0.701960784313725], ...
%	'ListboxTop',0, ...
%	'Position',[228.7058823529412 93.17647058823529 101.6470588235294 42.35294117647059], ...
%	'Style','frame', ...
%	'Tag','Frame5');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.701960784313725 0.701960784313725 0.701960784313725], ...
	'ListboxTop',0, ...
	'Position',[410.823529411765   190.588235294118   101.647058823529   245.647058823529], ...
	'Style','frame', ...
	'Tag','Frame6');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.701960784313725 0.701960784313725 0.701960784313725], ...
	'ListboxTop',0, ...
	'Position',[228.705882352941   12.705882352941   101.647058823529   123], ...
	'Style','frame', ...
	'Tag','Frame7');

%% Title
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.701960784313725 0.701960784313725 0.701960784313725], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'HorizontalAlignment','left', ...
	'ListboxTop',0, ...
	'Position',[16.94117647058824 447 491.2941176470588 19], ...
	'String',the_messages{1}, ...
        'Enable','inactive', ...
	'Style','text', ...
	'Tag','MessageText');

%% Buttons
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0 0.921 0.38375], ...
	'Callback','eigtool_switch_fn(''Redraw'');', ...
	'Enable','off', ...
	'ListboxTop',0, ...
	'Position',[423.529 397.270 77.929 24.564], ...
	'String','Go!', ...
	'Tag','RedrawPlot', ...
        'TooltipString',the_messages{9});
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 .86 .18], ...
	'Callback','eigtool_switch_fn(''Pause'');', ...
	'Enable','off', ...
	'ListboxTop',0, ...
	'Position',[423.529 365.082 77.929 24.564], ...
	'String','Pause', ...
	'Tag','Pause', ...
        'TooltipString',the_messages{32});
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.701960784313725 0.701960784313725 0.701960784313725], ...
	'Callback','eigtool_switch_fn(''FieldOfVals'');', ...
	'Enable','off', ...
	'HorizontalAlignment','left', ...
	'ListboxTop',0, ...
	'Position',[423.5294117647059   332.894   77.92941176470588  25.41176470588235], ...
	'String','Field of Vals.', ...
	'Style','checkbox', ...
	'Tag','FieldOfVals', ...
	'Value',0, ...
        'TooltipString',the_messages{10});
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.701960784313725 0.701960784313725 0.701960784313725], ...
	'Callback','eigtool_switch_fn(''EwCond'');', ...
	'Enable','off', ...
	'ListboxTop',0, ...
	'Position',[423.529  300.7058 77.929 25.411], ...
	'String','Mode+Cond.No', ...
	'Tag','EwCond', ...
        'TooltipString',the_messages{12});
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.701960784313725 0.701960784313725 0.701960784313725], ...
	'Callback','eigtool_switch_fn(''PseudoMode'');', ...
	'Enable','off', ...
	'ListboxTop',0, ...
	'Position',[423.529 268.517 77.929 25.411], ...
	'String','Pmode+epsilon', ...
	'Tag','PseudoMode', ...
        'TooltipString',the_messages{13});
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.701960784313725 0.701960784313725 0.701960784313725], ...
	'Callback','eigtool_switch_fn(''Print3D'');', ...
	'ListboxTop',0, ...
	'Position',[423.529 235.482 77.929 25.411], ...
	'String','3D Plot', ...
	'Tag','Plot3D', ...
        'TooltipString',the_messages{14});
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.701960784313725 0.701960784313725 0.701960784313725], ...
	'Callback','eigtool_switch_fn(''Quit'');', ...
	'ListboxTop',0, ...
	'Position',[423.529 203.294 77.929 25.411], ...
	'String','Quit', ...
	'Tag','Quit', ...
        'TooltipString',the_messages{15});

%% Axes
h1 = axes('Parent',h0, ...
	'Units','points', ...
        'Box','on', ...
	'CameraUpVector',[0 1 0], ...
	'CameraUpVectorMode','manual', ...
	'Color',[1 1 1], ...
	'CreateFcn','plotedit(gcbf,''promoteoverlay''); ', ...
	'HitTest','off', ...
	'NextPlot','replacechildren', ...
	'PlotBoxAspectRatioMode','manual', ...
	'Position',[38 169 285 255], ...
	'Tag','MainAxes', ...
	'Visible','off', ...
	'WarpToFill','off', ...
	'WarpToFillMode','manual', ...
	'XColor',[0 0 0], ...
	'YColor',[0 0 0], ...
	'ZColor',[0 0 0]);
h2 = text('Parent',h1, ...
	'Color',[0 0 0], ...
	'HandleVisibility','off', ...
	'HorizontalAlignment','center', ...
	'Position',[0.4984126984126984 -0.06349206349206349 9.160254037844386], ...
	'Tag','Axes1Text4', ...
	'VerticalAlignment','cap');
set(get(h2,'Parent'),'XLabel',h2);
h2 = text('Parent',h1, ...
	'Color',[0 0 0], ...
        'fontsize',10, ...
	'HandleVisibility','off', ...
	'HorizontalAlignment','center', ...
	'Position',[-0.07619047619047609 0.4984126984126983 9.160254037844386], ...
	'Rotation',90, ...
        'String','', ...
	'Tag','MainAxYLabel', ...
	'VerticalAlignment','baseline');
set(get(h2,'Parent'),'YLabel',h2);
h2 = text('Parent',h1, ...
	'Color',[0 0 0], ...
	'HandleVisibility','off', ...
	'HorizontalAlignment','right', ...