数学建模社区-数学中国
标题:
自编的小程序
[打印本页]
作者:
chenhan
时间:
2011-3-4 07:36
标题:
自编的小程序
clc;clear;clf;
# ]0 B2 ^# M! m# i
t=0:0.5:4*pi;
: f) {8 G5 V% L
[t,x]=meshgrid(t);
U, C. o9 K$ g/ M, [; L
t1=timer('Period',1.0,'Executionmode','fixedrate','StartDelay',0.5);
, w& u6 q1 G$ ~
set(t1,'TimerFcn',['current_t=datestr(clock,''mmm.dd,yyyy HH:MM:SS'');',...
" t& o1 i( U0 E8 ]
'title(current_t,''edgecolor'',''red'',''backgroundcolor'',[0.9,0.1,0.5],''fontsize'',16)']);
! G8 J# N9 U0 \4 ^* `; `- @
start(t1);
! R; E* B5 c! L5 U9 m
h=plot3(0,0,0,'marker','D','markersize',15);axis off
( T+ ` A+ h2 T9 w8 S
c=reshape(t,1,numel(t));
- a" |" L+ z6 l: g& S
d=reshape(x,1,numel(t));
; X0 l- K+ Y b8 Q
for i=1:numel(t)
! g/ z2 Y9 }' @9 q+ O
y(i)=exp(-0.2*c(i)).*sin(pi/24*c(i)-d(i));
/ r, R! ]' d. ~5 k1 K: o* _
set(h,'xdata',c(i),'ydata',d(i),'zdata',y(i));
: I$ O, [& }! g S
if i==1
4 {0 Z( {' y$ o# t% h( R
line(c(i),d(i),y(i),'color',[0.5 0.5 0.5]);
. `& W5 v% d' H4 P
else
3 D r' t$ a3 V: N. m4 f
line(c(i-1:i),d(i-1:i),y(i-1:i),'color',[0.5 0.5 0.5],'linewidth',2);
% l# L9 [! `4 V4 A/ M+ t% S
end
7 ~5 |( |3 }7 k( k! u5 S' `" ]
pause(0.003);
2 \9 Z6 a* N8 r
end
; X, G) W3 ~9 M' c* i. W
cla;
8 X6 ~2 P5 C1 \
z=exp(-0.2*t).*sin(pi/24*t-x);
2 a- y1 R$ N7 S q' _0 H; h6 G
surf(t,x,z);
7 B7 p" R; H% }& j \# S7 h0 S- z+ C
axis off
2 X I; P; }" v: B9 B4 [* c8 v
colormap hot
8 Q7 Q8 ~; s; A; }
shading interp
5 v. ~6 @0 N+ w- `7 C+ H
material metal
7 s1 U) D9 r. O% ]3 H! u i
spinmap(10,2);
' V' a+ W5 [% ~ D& F
stop(t1)
9 N: r. [ D+ }+ ]$ ]6 I
作者:
chenhan
时间:
2011-3-4 07:37
很简单的一系列的三维图形动作
! P& N# h7 R w, ~( l3 p
作者:
yangzh4645
时间:
2011-3-4 12:43
既然你诚信诚意的推荐了，那我就勉为其难的听听吧！
, q! L" @, v; N
我是不是太肉麻了！数学中国社区我来了！
$ e9 U5 J1 h3 Z" G1 A) g3 C& o
作者:
刘小奔
时间:
2011-3-13 19:44
你把头像换换，跟要债似的，哈哈
作者:
高阳皇
时间:
2011-3-13 19:51
其实我一直觉得楼主的品味不错！呵呵！
* y/ @" |' [- D7 j/ J- f2 ?
数学中国社区太棒了！
. l8 x$ p2 Y4 z
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5