testjob.m

% testjob
%%%%%%%%%   Miroslav Balda,  2008-08-14, 2008-12-20
diary on
diary off
delete diary
close all
clear all

Id = '';                %   Test of availability of functions
if ~exist('inp.m','file'),     Id = [Id 'inp (Id=9033) ']; end
if ~exist('fig.m','file'),     Id = [Id 'fig (Id=9035) ']; end
if ~exist('separator.m','file'), Id=[Id 'separator(Id=11725 ']; end
if ~exist('openjob.m','file'), Id = [Id 'openjob (Id=22261) ']; end
if ~isempty(Id)
    fprintf(['\n    Download function(s) ' Id ' from File Exchange!\n\n']);
end

disp('Pick up arbitrary file')
[pth,name] = openjob('c:\',{'txt'});
disp('    Test of openjob.m and closejob.m')
[p,base] = fileparts(name);
t = 1:10;
fig(2); plot(t,t.^2)    %   1st figure
fid = {gcf};
fig(4); plot(t,1./t)    %   2nd figure
fid = [fid {gcf}];
closejob(base,fid,{'fig','eps','pdf','png'},'Recs','Figs')
close all