matlab绘制视觉错觉图!

青年梦想家

点击看图

%
% 视觉错觉图-
%
% copyright© 2007-2011 $author: baby_wolf $
%                  
% $25-Dec-2011 00:25:14$
%%
clear all
close all
hfig=figure('menu','none','pos',[200 200 800 300],'color','k') ;
hold on
axis([0 1 -2 2]);
axis off
%%  标注
text(0.01,1.1,'@蜀山掌门V','color',[0.5 0.06 0.9],'fontsize',8);
%%  点图
t=0:1/480:479/480;
y=sin(30*2*pi*t).*sin(2*pi*t);
hplot=plot(t,y,'g.','markersize',3);
%% 设置 gif 图片帧数等
numFrames=30;
frames = struct('cdata', [], 'colormap', []);
frames(numFrames) = frames;
%% 循环绘制各帧
k=0;
while k<=30%ishandle(hfig)
    y=y([17:end,1:16]);
   set(hplot,'xdata',t,'ydata',y);         %点图 移动
pause(0.1);
k=k+1;
frames(k)=getframe(gcf);   %获取当前帧
end
%% 写gif文件
animated(1,1,1,numFrames) = 0;
for k=1:numFrames
   if k == 1
      [animated, cmap] = rgb2ind(frames(k).cdata, 256, 'nodither');
   else
      animated(:,:,1,k) = ...
         rgb2ind(frames(k).cdata, cmap, 'nodither');
   end     
end
%%  
filename = 'illusorygif2.gif';
if ~exist(filename,'file');
imwrite(animated, cmap, filename, 'DelayTime', 0.1, ...
   'LoopCount', inf);
end
web(filename)

1345389794

赞！！！！！！！！！！！！！！！！！！！

数学中国YY主管

这个图我给满分

青年梦想家

数学中国YY主管 发表于 2015-11-19 23:52
这个图我给满分

青年梦想家

1345389794 发表于 2015-11-19 22:31
赞！！！！！！！！！！！！！！！！！！！

森之张卫东

好厉害的图啊！！！