数学建模社区-数学中国
标题:
自编的小程序
[打印本页]
作者:
chenhan
时间:
2011-3-4 07:36
标题:
自编的小程序
clc;clear;clf;
' i1 q) q5 x# @
t=0:0.5:4*pi;
9 r8 k6 a, r6 z, q6 _3 K
[t,x]=meshgrid(t);
, r; G. O( G0 v! F& @6 A- n
t1=timer('Period',1.0,'Executionmode','fixedrate','StartDelay',0.5);
+ I& U; [: J* ~/ @8 q
set(t1,'TimerFcn',['current_t=datestr(clock,''mmm.dd,yyyy HH:MM:SS'');',...
+ B% A* ^, `+ F ?" L9 f
'title(current_t,''edgecolor'',''red'',''backgroundcolor'',[0.9,0.1,0.5],''fontsize'',16)']);
0 C, _$ p9 H0 @* c
start(t1);
, j; q* a) H$ R0 b$ K9 I# {
h=plot3(0,0,0,'marker','D','markersize',15);axis off
. W8 i c) p6 j
c=reshape(t,1,numel(t));
: Y4 w# R# P) c- U5 @$ W
d=reshape(x,1,numel(t));
; I! J) E9 M4 F, b
for i=1:numel(t)
; O# v7 V6 |! v0 a
y(i)=exp(-0.2*c(i)).*sin(pi/24*c(i)-d(i));
! N4 M' J; r% I
set(h,'xdata',c(i),'ydata',d(i),'zdata',y(i));
' t: W9 c3 M4 D X) O5 D
if i==1
- X6 F1 A0 z. p5 m/ j
line(c(i),d(i),y(i),'color',[0.5 0.5 0.5]);
9 g v- ~! h/ B" s7 ?; }- p
else
. h+ d( `$ t; B; {9 L
line(c(i-1:i),d(i-1:i),y(i-1:i),'color',[0.5 0.5 0.5],'linewidth',2);
+ ]/ z7 R9 u( ^' \- P5 v
end
: {- B- k% l* ~3 t& a
pause(0.003);
) n# E& R" Y% d! s" v" r
end
* Y# b% R8 \3 X/ Y
cla;
6 k$ C! `- L0 {/ o
z=exp(-0.2*t).*sin(pi/24*t-x);
, x- T( i4 w* H" ] ]4 P6 X# {
surf(t,x,z);
1 i4 X4 B) _- V1 r! P# y
axis off
Q5 I. q$ [5 h7 n% Y* z: P
colormap hot
3 c, w, j) \( |. H M1 c8 p! a* A
shading interp
4 N" Z8 V$ B( f
material metal
, u. I$ Z4 R2 C# F
spinmap(10,2);
8 F" {/ m( b; q9 T
stop(t1)
! k2 _: f% g- ?# m% R4 E
作者:
chenhan
时间:
2011-3-4 07:37
很简单的一系列的三维图形动作
- t/ J& M9 ^' |, @9 l) p+ \( d+ ]3 M
作者:
yangzh4645
时间:
2011-3-4 12:43
既然你诚信诚意的推荐了，那我就勉为其难的听听吧！
3 \: G+ |- U' Y: b5 l4 `) o- Y' y
我是不是太肉麻了！数学中国社区我来了！
$ J* z( V' }' P/ _
作者:
刘小奔
时间:
2011-3-13 19:44
你把头像换换，跟要债似的，哈哈
作者:
高阳皇
时间:
2011-3-13 19:51
其实我一直觉得楼主的品味不错！呵呵！
: U3 R2 p( B F. [/ I+ G
数学中国社区太棒了！
+ U8 I& Y' z1 u
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5