自编的小程序

chenhan

clc;clear;clf;
t=0:0.5:4*pi;
[t,x]=meshgrid(t);
0 F0 [: q( {  V5 At1=timer('Period',1.0,'Executionmode','fixedrate','StartDelay',0.5);
0 P1 g& N/ i$ N. S0 P- aset(t1,'TimerFcn',['current_t=datestr(clock,''mmm.dd,yyyy  HH:MM:SS'');',...
  'title(current_t,''edgecolor'',''red'',''backgroundcolor'',[0.9,0.1,0.5],''fontsize'',16)']);
1 W& R. B6 V2 i' o; t+ {start(t1);
h=plot3(0,0,0,'marker','D','markersize',15);axis  off
c=reshape(t,1,numel(t));
  D; I* g4 D4 F, B$ jd=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));
    if i==1
    line(c(i),d(i),y(i),'color',[0.5 0.5 0.5]);
1 |* B& E7 z  L- J; l    else
      line(c(i-1:i),d(i-1:i),y(i-1:i),'color',[0.5 0.5 0.5],'linewidth',2);  
) s0 G1 c3 l1 n  G    end
    pause(0.003);
8 h% v# C0 i0 X7 I. c0 \7 t7 s( @end
cla;
z=exp(-0.2*t).*sin(pi/24*t-x);
) T( ?* y$ C: n% U& Xsurf(t,x,z);
axis  off
colormap  hot
shading interp
7 M0 l3 J# B4 Q" Zmaterial metal
spinmap(10,2);
stop(t1)

chenhan

很简单的一系列的三维图形动作
, v5 q3 s: c" g7 j* C9 \8 ~

yangzh4645

既然你诚信诚意的推荐了，那我就勉为其难的听听吧！
我是不是太肉麻了！数学中国社区我来了！
+ c: T4 @7 y3 U; ]2 V+ {

刘小奔

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

高阳皇

其实我一直觉得楼主的品味不错！呵呵！
# R4 E5 k( z% k1 t% P数学中国社区太棒了！
) K' U" `! V/ w! u! W- z