savedata

 $Id: savedata.m,v 1.1 2004/05/20 00:25:39 dalai Exp $

0001 % $Id: savedata.m,v 1.1 2004/05/20 00:25:39 dalai Exp $
0002 
0003 function savedata(filename,saveargs)
0004 
0005 % convert cell array to a single string
0006 if iscellstr(saveargs)
0007     tmpsaveargs = '';
0008     for n = 1:length(saveargs)
0009         tmpsaveargs = [tmpsaveargs ' ' saveargs{n}];
0010     end
0011     saveargs = tmpsaveargs;
0012 end
0013 
0014 % create string to execute that will save the data
0015 savestr = ['save ' filename ' ' saveargs];
0016 evalin('base',savestr);