0001 function varargout = export(a, fname)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017 VERSION = '$Id: export.m,v 1.7 2008/01/22 20:59:42 hewitson Exp $';
0018 CATEGORY = 'Output';
0019
0020
0021 if nargin == 2
0022 if isa(a, 'ao') && ischar(fname)
0023 in = char(fname);
0024 if strcmp(in, 'Params')
0025 varargout{1} = plist();
0026 return
0027 elseif strcmp(in, 'Version')
0028 varargout{1} = VERSION;
0029 return
0030 elseif strcmp(in, 'Category')
0031 varargout{1} = CATEGORY;
0032 return
0033 end
0034 end
0035 end
0036
0037 if isa(a, 'ao')
0038
0039 d = a.data;
0040
0041 [x,y] = get_xy_values(a.data);
0042
0043 if isreal(y)
0044 out = [x y];
0045 else
0046 out = [x real(y) imag(y)];
0047 end
0048
0049 save(fname, 'out', '-ASCII', '-DOUBLE', '-TABS');
0050
0051 else
0052 error('### incorrect usage: first argument should be an AO.');
0053 end
0054
0055
0056