exm060301.m

来自「matlab电子书籍」· M 代码 · 共 21 行

function Hr=exm060301f(flag )
%zzy 2006-2 
t=(0:50)/50*2*pi;
x=sin(t);
y=cos(t);
Hr=@cirline;        	
feval(Hr,flag,x,y,t)

function cirline(wd,x,y,t)
switch wd
case 'line'
    plot(t, x, 'b' ,t , y, 'r', 'LineWidth', 2)
case 'circle'
    plot(x, y, '-g', 'LineWidth', 8),
    %axis([-1.1,1.1,-1.1,1.1]);
    axis square off
otherwise
    error('输入宗量只能取 ''line'' 或 ''circle'' ！ ')
end
shg