1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
|
function plot_benchmarks(hostname)
% function plot_benchmarks(hostname)
%
% $Id$
%
% Copyright (c) 2001 Patrick Guio <patrick.guio@fys.uio.no>
%
% All Rights Reserved.
%
% This program is free software; you can redistribute it and/or modify it
% under the terms of the GNU General Public License as published by the
% Free Software Foundation; either version 2. of the License, or (at your
% option) any later version.
%
% This program is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
% Public License for more details.
%
close all
bench={'daxpy','haney','loop1','loop2','loop3','loop5','loop6','loop8',...
'loop9','loop10','loop11','loop12','loop13','loop14','loop15','loop16',...
'loop17','loop18','loop19','loop21','loop22','loop23','loop24','loop25',...
'loop36','stencil'};
if nargin == 0,
str=sprintf('@PACKAGE@-@VERSION@ benchmark on a %s', computer);
else
str=sprintf('@PACKAGE@-@VERSION@ benchmark on %s (%s)', hostname, computer);
end
str=sprintf('%s\nCXX=@CXX@ CXXFLAGS=@CXXFLAGS@ @CXX_OPTIMIZE_FLAGS@', str);
str=sprintf('%s\nF77=@F77@ FFLAGS=@FFLAGS@ @F77_OPTIMIZE_FLAGS@', str);
if length('@FC@')
str=sprintf('%s\nFC=@FC@ FCFLAGS=@FCFLAGS@ @FC_OPTIMIZE_FLAGS@', str);
end
str=strrep(str,'_','\_');
h=text(0.5,0.5,str);
set(h,'HorizontalAlignment','center')
set(h,'FontSize',18)
set(h,'FontWeight','demi')
set(gca,'visible','off')
orient landscape
print -dpsc benchmarks.ps
for i=1:length(bench),
eval(bench{i})
hs=get(gca,'children')';
for h=hs, set(h,'linewidth',1.5) , end
legend
orient landscape
print -dpsc -append benchmarks.ps
end
|