基于Matlab实现Pareto多目标优化分析（源码）.rar

function state = gadsplot(options,optimvalues,flag,fname) %GADSPLOT Helper function that manages the plot functions. % STOP = GADSPLOT(options,optimvalues,flag,fname) runs % each of the plot functions. % % This function is private to simulanneal, patternsearch, ga, gamultiobj. persistent plotNo plotNames args isNew fig position axhandle % Different for GA and other solvers if strcmpi(fname,'genetic algorithm') state = optimvalues; currentIter = optimvalues.Generation; elseif any(strcmpi(fname, {'multistart', 'globalsearch'})) % Note that there are no spaces in the fname for MultiStart and % GlobalSearch, as this is how these solvers are referred to in the % product documentation. state = false; currentIter = optimvalues.localrunindex; % GlobalSearch and MultiStart do not support PlotInterval and % PlotFcnsArgs. Set them to sensible defaults. options.PlotInterval = 1; options.PlotFcnsArgs = repmat({{}}, 1, length(options.PlotFcns)); else state = false; currentIter = optimvalues.iteration; end if ~strcmpi(flag, 'done') && (rem(currentIter,options.PlotInterval) ~=0) return; end functions = options.PlotFcns; fcnargs = options.PlotFcnsArgs; if isempty(functions) || ... (any(strcmpi(flag,{'interrupt','done'})) && isempty(findobj(0,'Type','figure','name',fname))) return; end % It is always safe to reset the state of the solver state when plots are % called with 'init' flag. if strcmpi(flag,'init') setappdata(0,'gadsSolverState','') end % Check if 'stop' was requested before coming to this plot function driver if(strcmpi('stop',getappdata(0,'gadsSolverState'))) % Different for GA and other solvers if strcmpi(fname,'genetic algorithm') state.StopFlag = 'stop requested from plot function.'; else state= true; end setappdata(0,'gadsSolverState','') return; end functions = removeDup(functions); % Called with 'init' flag or the figure is not present if (strcmp(flag,'init') || isempty(findobj(0,'Type','figure','name',fname))) && ... ~strcmp(flag,'interrupt') fig = findobj(0,'type','figure','name',fname); if isempty(fig) fig = figure('visible','off'); if ~isempty(position) && ~strcmpi(get(fig,'WindowStyle'),'docked') set(fig,'Position',position); end end set(0,'CurrentFigure',fig); clf; set(fig,'numbertitle','off','name',fname, ... 'userdata',[]); % Initialize the persistent variables plotNo = []; plotNames = [];isNew = []; axhandle = []; [plotNames, args, plotNo, isNew] = updatelist(plotNames, plotNo, axhandle, ... functions, fcnargs, fig, 'init'); if ~isdeployed % optimtool may not be present when this function is called from deployed apps. optimtoolGui = javaMethodEDT('getOptimGUI','com.mathworks.toolbox.optim.OptimGUI'); isGUIOpen = ~isempty(optimtoolGui); % Check the state of the GUI. getRunMode == 1 when the GUI is running/paused. if isGUIOpen isGUIRunning = (javaMethodEDT('getRunMode',optimtoolGui) == 1); else isGUIRunning = false; end buttonsOK = ~(isGUIOpen && isGUIRunning); else buttonsOK = true; end if buttonsOK pObj = uicontrol('string','Pause','Position',[60 10 50 20],'callback',@buttonPauseContinue); uicontrol('string','Stop','Position',[5 10 50 20],'callback',{@buttonStop,pObj}); end set(fig,'CloseRequestFcn',@beforeClose); setappdata(0,'gadsSolverState','') set(gcf,'visible','on') shg end % Determine the layout size in the figure rows = ceil(sqrt(length(functions))); cols = ceil(length(functions)/rows); % Set the current figure to fig set(0,'CurrentFigure',fig); if change_runtime(functions,plotNames) [plotNames, args, plotNo, isNew] = updatelist(plotNames, plotNo, axhandle, ... functions, fcnargs, fig, ''); figure(fig); end if all(isNew) mouseaction([],[],[],[],'init'); end % Call each plot function for i = 1:length(plotNames) axhandle(i) = subplot(rows,cols,plotNo(i)); if isNew(i) cmenu(i) = uicontextmenu; set(axhandle(i),'UIContextMenu', cmenu(i)); % Provide a uicontext menu item to open the axes in a new figure % window cmenuCallback = {@mouseaction,axhandle(i),plotNames{i},'add'}; uimenu(cmenu(i),'Label', 'Open this plot in a new window', 'Callback', cmenuCallback); % Do not delete the axis (which is the default settings) set(axhandle(i),'NextPlot','replacechildren','Tag',func2str(plotNames{i})); [state,optimvalues] = callOnePlotFcn(fname,plotNames{i},state,options,optimvalues,'init',args{i}{:}); isNew(i)= false; % If in the middle of itertions, call with the regular 'flag' too. if ~strcmpi(flag,'init') [state,optimvalues] = callOnePlotFcn(fname,plotNames{i},state,options,optimvalues,flag,args{i}{:}); end else [state,optimvalues] = callOnePlotFcn(fname,plotNames{i},state,options,optimvalues,flag,args{i}{:}); end end % Call plot functions whose UIContextMenu has been called state = gadsplotagain(fname,plotNames,args,options,optimvalues,state,flag); if strcmpi(flag,'done') % reset the closerequest function set(fig,'CloseRequestFcn','closereq'); rmappdata(0,'gadsSolverState'); end drawnow % Check if the figure is still alive or 'stop' is requested if isempty(findobj(0,'Type','figure','name',fname)) || ... (strcmpi('stop',getappdata(0,'gadsSolverState'))) % Different for GA and other solvers if strcmpi(fname,'genetic algorithm') state.StopFlag = 'stop requested from plot function.'; else state= true; end setappdata(0,'gadsSolverState','') return; end % Remember the position position = get(fig,'Position'); %------------------------------------------------------- %CALLONEPLOTFCN Calls a plot function %------------------------------------------------------- function [state,optimvalues] = callOnePlotFcn(fname,plotfcn,state,varargin) % optimvalues = varargin{2}; switch lower(strtrim(fname)) case {'pattern search','multistart','globalsearch'} state = plotfcn(varargin{2:end}) || state; case {'simulated annealing'} state = plotfcn(varargin{1:end}) || state; case 'genetic algorithm' optimvalues = plotfcn(varargin{1:end}); state = optimvalues; end %------------------------------------------------------- %UPDATELIST updates the function list and plot numbers %------------------------------------------------------- function [plotNames, fcnArgs, plotNo, isNew] = updatelist(plotNames,plotNo,axhandle,functions,args,fig,flag) if strcmpi(flag,'init') plotNames = functions; plotNo = 1:length(functions); isNew = true(length(plotNames),1); fcnArgs = args; return; end %determine the layout size in the figure rows = ceil(sqrt(length(functions))); cols = ceil(length(functions)/rows); %what was the layout size before rows1 = ceil(sqrt(length(plotNames))); cols1 = ceil(length(plotNames)/rows1); set(0,'CurrentFigure',fig); fcnArgs = cell(1,length(plotNames)); isNew = false(length(plotNames),1); to_delete = false(length(plotNames),1); %Check if any of plotNames is not in functions;remove such entries for i = 1:length(plotNames) [found, index] = foundfunc(plotNames{i},functions); if ~found delete_this = subplot(rows1,cols1,plotNo(i)); delete(delete_this); to_delete(i) = true; else fcnArgs(i) = args(index(1)); end end %delete the plot names which are not in functions plotNames(to_delete) = []; plotNo(to_delete) = []; isNew(to_delete) = []; fcnArgs(to_delete) = []; axhandle(to_delete) = []; %Now, add all new entries of functions in plotNames for i = 1:length(functions) found = foundfunc(functions{i},plotNames); if ~found plotNames(end+1) = functions(i); fcnArgs(end+1) = args(i); isNew(end+1) = true; plotNo(end+1) = 0; axhandle(end+1) = 0; end end %Determine