AaronSpark 发表于 2005-7-29 20:36

[分享]一个有趣的动画（matlab做的）

这是一个半径为R的车轮作摆线运动的动画。
function a=p511()
%这是一个MaLab动画: 半径为R的车轮作摆线运动.
%作者:superkugua Q Q :49239359 email: <a href="mailto:superkugua@163.com">superkugua@163.com</a>
v0=.2;R=1;t=0:.05:6*R*pi/v0;
x0=0;y0=0;
sita=0:pi/20:2*pi;
cx=R*sin(sita);
cy=R*cos(sita)+R;
xt=v0*t;
x=v0*t-R*sin(v0/R*t);
y=R-R*cos(v0/R*t);
% plot(x,y);
line(,,'color','y');
title('MatLab动画: 摆线运动 ');
axis([-R,20,0,10]);
axis('off','equal');%
point=line(x0,y0,'color','b','linestyle','.','erasemode','none','markersize',5);
circle0=line(cx,cy,'color','r','linestyle','--','erasemode','xor','markersize',1);%
line0=line(,,'color','r','linestyle','-','erasemode','xor','markersize',1);%
n=length(t);
i=1;
while 1
temp=xt(i);
set(circle0,'xdata',cx+temp);drawnow;
set(line0,'xdata',,'ydata',);drawnow;
set(point,'xdata',x(i),'ydata',y(i));
drawnow;
if i==n
di=-1;set(point,'erasemode','background');
end
if i==1
di=1;set(point,'erasemode','none');
end
i=i+di;
end

suffer 发表于 2005-7-31 09:36

哈哈，不错，好玩

lcf2005 发表于 2005-10-17 18:20

不错{:{40}:}

plzhi4 发表于 2005-12-29 19:15

ding!!!!!!!!!!!!!!!!!!!!!!!!!!!

立场感 发表于 2006-2-2 23:52

为什么？

??? Strings passed to EVAL cannot contain function declarations.刚粘到命令行就出现上句？

smtmobly 发表于 2006-3-1 00:40

我十分想念并希望继续
顶

lester14 发表于 2006-3-4 23:06

cute

子上一片林 发表于 2006-3-17 11:38

我也要学matlab

rolo 发表于 2006-3-17 13:58

不错,很有意思!

容易洁洁猪 发表于 2006-3-23 22:51

Strings passed to EVAL cannot contain function declarations.刚粘到命令行就出现上句？
好像不能直接粘贴吧,先保存成M文件然后调试运行.

yimao 发表于 2006-4-3 10:19

好玩，这个有意思

考验慢牛 发表于 2006-4-3 11:16

挺好
lz 能否帮忙做个自由落体的运动

soluble 发表于 2006-5-16 18:31

不错

huright 发表于 2006-5-16 21:13

楼主很牛啊，再接再厉！

xw_bai 发表于 2006-5-16 21:26

ding
页: [1] 2
查看完整版本: [分享]一个有趣的动画（matlab做的）