数学建模社区-数学中国
标题:
自编的小程序
[打印本页]
作者:
chenhan
时间:
2011-3-4 07:36
标题:
自编的小程序
clc;clear;clf;
/ B5 c. R) n2 O1 C! S
t=0:0.5:4*pi;
4 v. u% k8 ^/ \4 a
[t,x]=meshgrid(t);
' M) g" t z' a8 l1 W, x# ]
t1=timer('Period',1.0,'Executionmode','fixedrate','StartDelay',0.5);
: m) @) s/ D: k
set(t1,'TimerFcn',['current_t=datestr(clock,''mmm.dd,yyyy HH:MM:SS'');',...
$ j3 D" C3 s% Y7 U9 D6 o
'title(current_t,''edgecolor'',''red'',''backgroundcolor'',[0.9,0.1,0.5],''fontsize'',16)']);
% d, n( K5 W2 V" Z7 L) o8 H
start(t1);
. P/ R* z3 @6 E: d3 y
h=plot3(0,0,0,'marker','D','markersize',15);axis off
( A) x3 K. D9 K
c=reshape(t,1,numel(t));
. O a$ p1 a( I, c
d=reshape(x,1,numel(t));
# D. n4 y9 j2 n5 y2 h( p
for i=1:numel(t)
- c1 n) `7 D8 v$ E1 z! q
y(i)=exp(-0.2*c(i)).*sin(pi/24*c(i)-d(i));
! g0 l B2 I/ @8 O1 |0 w
set(h,'xdata',c(i),'ydata',d(i),'zdata',y(i));
% o5 T, U$ r+ L0 P7 V
if i==1
. c+ B- |! {, O m
line(c(i),d(i),y(i),'color',[0.5 0.5 0.5]);
% }, }. w9 a l8 @* b5 c% }4 P
else
, v! }5 L6 w# K4 Q$ v5 Q
line(c(i-1:i),d(i-1:i),y(i-1:i),'color',[0.5 0.5 0.5],'linewidth',2);
! C2 ~% P8 w5 T* D+ W* U, ?0 [
end
! Q3 G/ X1 e: k1 T% Q i* w: ~
pause(0.003);
+ `! `- U* o/ g$ u* W( o
end
0 s& \/ F3 o w! q4 ]/ v# b. I8 S/ P
cla;
5 G, z$ ?: _# Y4 r3 K4 X+ R
z=exp(-0.2*t).*sin(pi/24*t-x);
; B0 j! Y: a+ L- }) q
surf(t,x,z);
7 p! p% f4 B s. E& ^* X& e8 r2 J @7 {
axis off
6 [ }* J3 A+ o- a2 Q
colormap hot
: l: ~$ P/ n& h4 O8 j
shading interp
( O0 A0 {' d8 J- i, o' \
material metal
* ], J7 a$ j, l1 F
spinmap(10,2);
+ N5 C; x" V: b3 T, h
stop(t1)
" E9 R4 h5 D" k$ L. E- g- t
作者:
chenhan
时间:
2011-3-4 07:37
很简单的一系列的三维图形动作
: w* s5 Y! q2 D4 v# Z2 J
作者:
yangzh4645
时间:
2011-3-4 12:43
既然你诚信诚意的推荐了，那我就勉为其难的听听吧！
% r$ w# d$ h+ c& S$ Q9 f
我是不是太肉麻了！数学中国社区我来了！
( k( j; ?/ ~! y6 P E1 j, E% L
作者:
刘小奔
时间:
2011-3-13 19:44
你把头像换换，跟要债似的，哈哈
作者:
高阳皇
时间:
2011-3-13 19:51
其实我一直觉得楼主的品味不错！呵呵！
) u* M$ o% w1 L8 C3 a6 j+ o1 t. T
数学中国社区太棒了！
2 o0 k/ _- _) Z s
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5