stampplot.m

％ Atomizer Main Directory, Version .802 里面信号含有分解去噪合成过程的代码 ％---------------------------------------

function StampPlot(figname, fignote, n, signame, pars)
% StampPlot -- add legend with file name, date, flag
%  Usage
%    StampPlot(figname, fignote, n, signame, pars)
%  Inputs
%    figname    string. name of the file generating the current plot
%    fignote    string. summary of the current plot
%    n		integer. sample size
%    signame	string. name of the signal
%    dictname   string. name of the dictionary
%    pars	string. parameters of the dictionary
%  Effects
%    Near the bottom of the current figure, a legend is displayed
%    in a small font; the legend contains the figname and current date
%    and the note for the plot
%

if nargin < 5,
	pars = '';
end
if nargin < 4,
	signame = '';
end
if nargin < 3,
	n = 0;
end
if nargin < 2,
	fignote = '';
end

sep = ' ----- ';
samplesize = sprintf('%g', n);
axes('Position',[.01 .01 .98 .05],'Visible','off');
str1 = [figname '        ' date '        ' fignote];
str2 = ['Signal Length: ' samplesize sep 'Signal: ' signame sep pars];
h1 = text(.01,0.5,str1);
set(h1,'FontSize',6);
h1 = text(.01,0.01,str2);
set(h1,'FontSize',6);