exeval.m

来自「matlab宝典,电子工业出版社,包含该书的源码4-6章」· M 代码 · 共 14 行

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