06-20.txt

来自「MATLABR2006a基础教程」· 文本 代码 · 共 25 行

function plotvar(varargin)
lineflag = 0;
subk = 0;
for k = 1:length(varargin)    
    if ischar(varargin{k})
        lineflag = k;
    else
        subk = subk + 1;
        x(subk) = varargin{k}(1); % Cell array indexing
        y(subk) = varargin{k}(2);
    end
end
xmin = min(0,min(x));
ymin = min(0,min(y));
axis([xmin fix(max(x))+3 ymin fix(max(y))+3])
if lineflag ~= 0
    plot(x,y,varargin{lineflag});
else
    plot(x,y);
end


>> figure,subplot(1,2,1),plotvar([2 3],[1 5],[4 8],[6 5],[4 2],[2 3]);
>> subplot(1,2,2),plotvar([2 3],[1 5],[4 8],[6 5],[4 2],[2 3],'*');