0001 function varargout = plot(varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033
0034
0035
0036
0037 VERSION = '$Id: plot.html,v 1.14 2008/03/31 10:27:33 hewitson Exp $';
0038 CATEGORY = 'Output';
0039
0040 axes_handle = [];
0041 ao_s = [];
0042 line_spec = '';
0043 prop_val = {};
0044 lines_h = [];
0045
0046
0047 if nargin == 2
0048 if isa(varargin{1}, 'ao') && ischar(varargin{2})
0049 in = char(varargin{2});
0050 if strcmp(in, 'Params')
0051 varargout{1} = plist();
0052 return
0053 elseif strcmp(in, 'Version')
0054 varargout{1} = VERSION;
0055 return
0056 elseif strcmp(in, 'Category')
0057 varargout{1} = CATEGORY;
0058 return
0059 end
0060 end
0061 end
0062
0063
0064 var_argin = varargin;
0065
0066 while ~isempty(var_argin)
0067 if isempty(var_argin{1})
0068 var_argin = var_argin(2:end);
0069 elseif ishandle(var_argin{1}) & isempty(axes_handle)
0070 axes_handle = var_argin{1};
0071 var_argin = var_argin(2:end);
0072 elseif isa(var_argin{1}, 'ao')
0073 var_argin{1} = reshape(var_argin{1}, 1, []);
0074 ao_s = [ao_s var_argin{1}];
0075 var_argin = var_argin(2:end);
0076 elseif ischar(var_argin{1}) && islinespec(var_argin{1}) && isempty(line_spec)
0077 line_spec = var_argin{1};
0078 var_argin = var_argin(2:end);
0079 else
0080 if length(var_argin) == 1
0081 error('### There is only one propery [%s] without value left', var_argin{1});
0082 elseif length(var_argin) >= 2
0083 prop = var_argin{1};
0084 val = var_argin{2};
0085 prop_val = [prop_val, prop, val];
0086 var_argin = var_argin(3:end);
0087 end
0088 end
0089 end
0090
0091
0092
0093
0094 for ii = 1:length(ao_s)
0095
0096
0097 line_colors = getappdata(0, 'ltpda_default_plot_colors');
0098
0099
0100 [res, style] = islinespec(line_spec);
0101
0102 if isempty(style{3})
0103 prop_val{end+1} = 'Color';
0104 prop_val{end+1} = line_colors{ii};
0105 end
0106
0107
0108 [x,y] = get_xy_values(ao_s(ii).data);
0109
0110 if isreal(y)
0111 if isempty(x)
0112 x = 1:length(y);
0113 end
0114 else
0115 if isempty(x)
0116 x = real(y);
0117 y = imag(y);
0118 end
0119 end
0120
0121
0122 if ~isempty(axes_handle) && ~isempty(line_spec)
0123 line_h = plot(axes_handle, x, y, line_spec);
0124 elseif ~isempty(axes_handle)
0125 line_h = plot(axes_handle, x, y);
0126 elseif ~isempty(line_spec)
0127 line_h = plot(x, y, line_spec);
0128 else
0129 line_h = plot(x, y);
0130 end
0131
0132 hold on;
0133
0134 line_h = reshape(line_h, 1, []);
0135 lines_h = [lines_h line_h];
0136
0137
0138 axes_h = get(line_h(1), 'Parent');
0139 figure_h = get(axes_h, 'Parent');
0140
0141
0142 while length(prop_val) >= 2
0143 prop = prop_val{1};
0144 val = prop_val{2};
0145 prop_val = prop_val(3:end);
0146 if isprop(line_h, prop)
0147 set(line_h, prop, val);
0148 else
0149 if isprop(axes_h, prop)
0150 set(axes_h, prop, val);
0151 else
0152 error('### Invalid line property OR axes property: ''%s''.', prop);
0153 end
0154 end
0155 end
0156
0157 end
0158
0159
0160
0161
0162
0163 if nargout == 0
0164 elseif nargout == 1
0165 varargout{1} = lines_h;
0166 elseif nargout == 2
0167 varargout{1} = lines_h;
0168 varargout{2} = axes_h;
0169 elseif nargout == 3
0170 varargout{1} = lines_h;
0171 varargout{2} = axes_h;
0172 varargout{3} = figure_h;
0173 else
0174 error('### Unknown number of outputs.')
0175 end
0176
0177 hold off;
0178
0179 end
0180
0181
0182
0183
0184
0185
0186