07-21.txt

《MATLAB R2007基础教程》 清华大学出版社,包含电子课件,实例原文件,习题答案,都是基于matlab实现

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],'*');