这个问题在这里已有答案:
我在下面写了一个简单的代码来制作动画图,但它们往往是计算密集型的,比整个时间长了整整几秒:
function animplot(t,f,ymin,ymax,dt,num_iters)
h = plot(0,0); % set initial handle for first iteration
tic % start timer
for i=2:num_iters
delete(h);
h = plot(t,f(t-dt*i),'LineWidth',2,'color','b');
axis([min(t) max(t) ymin ymax]); pause(1/num_iters)
end
toc % end timer, return time elapsed since 'tic'
end
用1/num_iters
替换dT = T / num_iters
,并设置T = 1
,1000次迭代的计算时间是6秒(而不是1秒)。 Sample animation为t = 0:.01:2*pi; f = @(t)sin(t); dt = .05; num_iters = 1000
有没有更有效的动画制作方法?
一个明显更高效的代码,适用于related inquiry的每个解决方案:
function animplot(t,f,ymin,ymax,dt,num_iters,T)
% ANIMPLOT(t,f,ymin,ymax,dt,num_iters) -- f must be defined w/ handle,
% e.g. f = @(t)sin(t); default T = 5, num_iters = 500, dt = .05,
% (ymax - ymin) = 1.4*range.
switch nargin
case 6; T = 5;
case 5; T = 5; num_iters = 500;
case 4; T = 5; num_iters = 500; dt = .05;
case 2; T = 5; num_iters = 500; dt = .05;
ymin = 1.2*min(f(t)) - max(f(t))/5;
ymax = 1.2*max(f(t)) - min(f(t))/5;
end
dT = T/num_iters; % set pause interval
h = plot(0,0,'LineWidth',2,'color','b'); % set initial handle
set(h, 'Xdata',t, 'Ydata', f(t)); % initialize curve plot
axis([min(t) max(t) ymin ymax]);
tic % start timer
for i=2:num_iters
pause(dT)
set(h, 'Ydata', f(t-dt*i))
end
toc % end timer, return time elapsed since 'tic'
end
注意:num_iters
主要用作动画'分辨率';更高的是以更大的偏离设置T
为代价。
使用命令:“set(h,'Xdata',t,'Ydata',f(t))”将比在每次循环迭代中重用绘图函数更有效,并且可能足以实现结果你在找。为了进一步改进,您可以启用可变帧速率。为此,消除任何“暂停(dt)”,获取当前循环迭代“t”的时间,评估当时“f(t)”的函数,并将绘图x和y数据设置为该值。这将确保动画平滑不超过指定的时间。您还可以通过使用“interp1(x,v,xq)”函数在数据点之间进行线性插值,将此技术用于数据集,而不仅仅是函数。