Another Particle Swarm Toolbox: psoplotbestf(options,state,flag) - File Exchange

Code covered by the BSD License

Highlights from
Another Particle Swarm Toolbox

... This is like "soft" boundaries, except that some kind of penalty value
...
... Particle swarm optimization for binary genomes.
...
... Find the minimum of a function using Particle Swarm Optimization.
ackleysfcn(x) Ackley's Function.
binarytestfcn(x)
dejongsfcn(x)
dropwavefcn(x)
evolutioncomplete(options,sta... Plays a notification when genetic algorithm finishes. Requires a
griewangksfcn(x) Template for writing custom test/demonstration functions for psodemo.
langermannsfcn(x)
nonlinearconstrdemo(x) Nonlinear constraints demo with Rosenbrock's function.
psoboundsabsorb(state,Aineq,b...
psodemo(DemoMode) Runs the PSO on a few demonstration functions, which should be located
psoiterate(options,state,flag... Updates swarm positions and velocities. Called to iterate the swarm from
psooptimset(varargin) Creates an options structure for pso.
psoplotbestf(options,state,fl... Plots the best, mean, and worst scores of particle swarm.
psoplotscores(options,state,f... Plots the best and mean scores of particle swarm.
psoplotswarm(options,state,fl... Plots the positions of particle swarm.
psoplotswarmsurf(options,stat... Shows the evolution of a 2-variable population over a known surface. This
rastriginsfcn(x) Takes row inputs. If not row, will attempt to correct it.
rosenbrocksfcn(x) Takes row inputs. If input is not row, will attempt to correct it.
schwefelsfcn(x) Schwefel's function.
templatefcn(x) Template for writing custom test/demonstration functions for psodemo.
testfcn1(x)
View all files

from Another Particle Swarm Toolbox by Sam
Implementation of a PSO algorithm with the same syntax as the Genetic Algorithm Toolbox.

psoplotbestf(options,state,flag)

function [state,options] = psoplotbestf(options,state,flag)
% Plots the best, mean, and worst scores of particle swarm.

notinf = isfinite(state.Score) ;

if strcmp(flag,'init')
    set(gca,'NextPlot','add',...
        'XLabel',xlabel('Generation'),...
        'YLabel',ylabel('Score'))
%     line(state.Generation,max(state.Score),...
%         'Color','red',...
%         'Tag','Worst Scores',...
%         'Marker','.',...
%         'LineStyle','none')
    line(state.Generation,mean(state.Score(notinf)),...
        'Color','blue',...
        'Tag','Mean Scores',...
        'Marker','.',...
        'LineStyle','none')
    line(state.Generation,min(state.Score),...
        'Color','black',...
        'Tag','Best Scores',...
        'Marker','.',...
        'LineStyle','none')
elseif strcmp(flag,'done')
    legend({'Mean Score','Best Score'})
else
%     hworst = findobj(gca,'Tag','Worst Scores','Type','line') ;
    hmean = findobj(gca,'Tag','Mean Scores','Type','line') ;
    hbest = findobj(gca,'Tag','Best Scores','Type','line') ;
    x = [get(hmean,'XData'), state.Generation] ;
%     yworst = [get(hworst,'YData'), max(state.Score)] ;
    ymean = [get(hmean,'YData'), mean(state.Score(notinf))] ;
    ybest = [get(hbest,'YData'), min(state.Score)] ;
%     set(hworst,...
%         'XData',x,...
%         'YData',yworst)
    set(hmean,...
        'XData',x,...
        'YData',ymean)
    set(hbest,...
        'XData',x,...
        'YData',ybest)
    titletxt = sprintf('Best: %g Mean: %g',ybest(end),ymean(end)) ;
    title(titletxt)
end

Highlights from Another Particle Swarm Toolbox

Highlights from
Another Particle Swarm Toolbox