自编的小程序

chenhan

clc;clear;clf;
' h# k# ?: o, xt=0:0.5:4*pi;
[t,x]=meshgrid(t);
t1=timer('Period',1.0,'Executionmode','fixedrate','StartDelay',0.5);
set(t1,'TimerFcn',['current_t=datestr(clock,''mmm.dd,yyyy  HH:MM:SS'');',...
- G, z+ j& ]- A. d) @& k- J8 i  'title(current_t,''edgecolor'',''red'',''backgroundcolor'',[0.9,0.1,0.5],''fontsize'',16)']);
  B6 z" h  n; T: ustart(t1);
- l! y* d4 W2 D7 C# I7 Z- {h=plot3(0,0,0,'marker','D','markersize',15);axis  off
2 g) f" H, v, h. g3 \/ Pc=reshape(t,1,numel(t));
d=reshape(x,1,numel(t));
6 n5 A$ I$ L0 Z3 m# P3 Yfor  i=1:numel(t)
    y(i)=exp(-0.2*c(i)).*sin(pi/24*c(i)-d(i));
. w# X; X# V  T$ ?& C: \    set(h,'xdata',c(i),'ydata',d(i),'zdata',y(i));
6 s! J  F, ^! P    if i==1
    line(c(i),d(i),y(i),'color',[0.5 0.5 0.5]);
    else
1 r. v8 J+ v% y% T" ]+ m  P      line(c(i-1:i),d(i-1:i),y(i-1:i),'color',[0.5 0.5 0.5],'linewidth',2);  
    end
    pause(0.003);
end
- E" n, G& M1 K, m$ Gcla;
4 V9 Q6 c& H. z+ |+ B# Hz=exp(-0.2*t).*sin(pi/24*t-x);
surf(t,x,z);
2 S" S5 [1 `: W" W& d) taxis  off
colormap  hot
shading interp
( [6 V* O1 X& c9 l, [: U; }material metal
1 R1 K; R* q) o: u' k! @& A7 vspinmap(10,2);
stop(t1)

chenhan

很简单的一系列的三维图形动作
  v  p# x3 g, `' y

yangzh4645

既然你诚信诚意的推荐了，那我就勉为其难的听听吧！
4 u; S# n% S+ T: L我是不是太肉麻了！数学中国社区我来了！
5 @; H$ V$ m( x% f9 ^

刘小奔

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

高阳皇

其实我一直觉得楼主的品味不错！呵呵！
数学中国社区太棒了！