exeval.m

来自「matlab源代码,适用于开发研究,带来很好的学习效果.」· 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