%《MATLAB在電子信息課程中的應用》第二章第五節演示程序三q253
% 彩色和動畫
% 電子工業出版社出版  陳懷琛 吳大正 高西全合著 2001年10月

echo on,clf,axis equal, 	% 因為產生的圖形是圓形,故把坐標設成相等比例
M = moviein(16);	% 為變量M預留16幅圖的存儲空間
for j=1:16 		% 作16次循環
	plot(fft(eye(j+16))); 	% 畫圖
	M(:,j)=getframe; 		% 依次存入M中
end
shg,movie(M,30)				% 作動畫
[x,y]=meshgrid([-2:.2:2]); % 設定網格
z = x.*exp(-x.^2-y.^2);		% 凹凸曲面方程
pause,subplot(1,2,1),surf(x,y,z),colorbar,pause	% 彩色圖按z坐標取
subplot(1,2,2),surf(x,y,z,abs(gradient(z))),colorbar,pause	% 彩色圖按z的梯度取