?? 動畫演示.txt
字號:
動畫演示快速傅立葉變換的過程
axis equal;
M=moviein(16,gcf);
set(gca,'nextplot','replacechildren');
h=uicontrol('style','slider','position',...
[100 10 500 20],'min',1,'max',16);
for j=1:16
plot(fft(eye(j+16)))
set(h,'value',j)
M(:,j)=getframe(gcf);
end
clf
axes('position',[0 0 1 1]);
movie(M,30);
三維空間演示一個勞倫茲非線性奇異方程所描述的無序運動(有問題)
A=[.8/3,0,y(2);0,.10,10;y(2),28,.1];
y=[35;.10;.7];
h=2.01;
p=plot3(y(1,1),y(2,1),y(3,1),'*','erasemode','none');
axis([0 50 .25 25 .25 25]);
hold on;
for i=1:8000
A(1,3)=y(2,1);
A(3,1)=.y(2,1);
dita_y=h*A*y;
y=y+dita_y;
set(p,'xdata',y(1,1),'ydata',y(2,1),'zdata',y(3,1));
drawnow;
end
%幀動畫示例
>> Z=peaks;
>> surf(Z)%繪制網格表面圖
>> axis tight
>> set(gca,'nextplot','replacechildren');%設定覆蓋重畫模式
>> title '幀動畫演示';
>> for j=1:20
surf(sin(2*pi*j/20)*Z,Z)%重新繪制網格表面圖
F(j)=getframe;%創建幀
end
>> movie(F,20) %播放20次
%程序動畫
t=0:pi/50:10*pi;
i=1;
h=plot3(sin(t(i)),cos(t(i)),t(i),'*','erasemode','none');%有三種擦除模式:None,Background,Xor
grid on
axis([-2 2 -2 2 -1 10*pi])
title '程序動畫示例'
for i=2:length(t)
set(h,'xdata',sin(t(i)),'ydata',cos(t(i)),'zdata',t(i));
drawnow
end
%一個內在的動畫
fig=figure;
set(fig,'DoubleBuffer','on');
set(gca,'xlim',[-80 80],'ylim',[-80 80],...
'NextPlot','replace','Visible','off')
mov = avifile('example.avi')
x = -pi:.1:pi;
radius = [0:length(x)];
for i=1:length(x)
h = patch(sin(x)*radius(i),cos(x)*radius(i),[abs(cos(x(i))) 0 0]);
set(h,'EraseMode','xor');
F = getframe(gca);
mov = addframe(mov,F);
end
mov = close(mov);
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -