draw.m
function draw(c)
n=10
m=100;
dt = 2 * pi / n;
x=0:2*pi/m:2*pi;
plot(x,sin(x));
for i=1:n
t=i*dt;
plot(x,sin(x-c*t));
% (gcf)がないと幅・高さの警告が出る(gcf=get current figure handle)
% gca=get current axes handle
F(i)=getframe(gcf);
drawnow;
end
disp('movie');
%movie(F,1);
% movie2avi() で圧縮の形式を指定しないと、デフォールトの Indeo5 が選ばれるが、
% Windows Vista では CODEC がないため、圧縮できず、avi ファイルは出来ない。
% Windows XP では一応 avi ファイルができたが、Windows MediaPlayer や
% QuickTime では表示できなかった。RealPlayer ではOKだったけれど。
% そういうわけで、Mathworks 推奨の Cinepak を指定することに。
movie2avi(F,'nantoka.avi','compression','Cinepak');
いくつか注意点を書いておく (bad knowhow のような気がする)。
2017-06-19