自编的小程序

chenhan

clc;clear;clf;
t=0:0.5:4*pi;
. E& a! D1 e* m4 K[t,x]=meshgrid(t);
4 l1 r  U5 S& T/ tt1=timer('Period',1.0,'Executionmode','fixedrate','StartDelay',0.5);
set(t1,'TimerFcn',['current_t=datestr(clock,''mmm.dd,yyyy  HH:MM:SS'');',...
2 k$ W  b8 q( {" e" G  'title(current_t,''edgecolor'',''red'',''backgroundcolor'',[0.9,0.1,0.5],''fontsize'',16)']);
start(t1);
h=plot3(0,0,0,'marker','D','markersize',15);axis  off
c=reshape(t,1,numel(t));
d=reshape(x,1,numel(t));
for  i=1:numel(t)
    y(i)=exp(-0.2*c(i)).*sin(pi/24*c(i)-d(i));
    set(h,'xdata',c(i),'ydata',d(i),'zdata',y(i));
$ V$ q$ ^! d% r* n& p    if i==1
% E3 J+ T6 J, _" V* M    line(c(i),d(i),y(i),'color',[0.5 0.5 0.5]);
  w0 ]  E: O4 J* k. ]# @    else
      line(c(i-1:i),d(i-1:i),y(i-1:i),'color',[0.5 0.5 0.5],'linewidth',2);  
& }% _2 |7 A8 e" K  W7 f    end
    pause(0.003);
* N4 b. h* U4 aend
cla;
7 \5 A4 g( Y2 F7 y, x" q# {7 Yz=exp(-0.2*t).*sin(pi/24*t-x);
surf(t,x,z);
3 n" Q; Q* g7 Kaxis  off
colormap  hot
shading interp
material metal
% ^. H0 t$ }1 W0 ]spinmap(10,2);
stop(t1)
3 c+ m: b. y& M* j% H, F/ v

高阳皇

其实我一直觉得楼主的品味不错！呵呵！
数学中国社区太棒了！
- v0 F% v0 {5 n# T& b, a# T$ a/ F! Z

刘小奔

你把头像换换，跟要债似的，哈哈

yangzh4645

既然你诚信诚意的推荐了，那我就勉为其难的听听吧！
我是不是太肉麻了！数学中国社区我来了！
" |+ A1 J) \8 ~/ V( j. f

chenhan

很简单的一系列的三维图形动作