exeval.m

matlab宝典,电子工业出版社,包含该书的源码4-6章

function y=exeval(theta,arg)
t=(0:theta)/theta*2*pi;
y=subexeval(6,arg);

%子函数代码
function yt=subexeval(theta,arg)
t=(0:theta)/theta*2*pi;argt='theta*exp(i*t)';
switch arg
case {'base','caller'}
   yt=evalin(arg,argt);
case 'self'
   yt=eval(argt);
end