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

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

您需要登录才可以下载或查看，没有账号？我要加入

x

这是一个半径为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([0,6*R*pi],[0,0],'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([0,0],[R,0],'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',[temp,x(i)],'ydata',[R,y(i)]);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

不错

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

账号		自动登录	找回密码
密码			我要加入

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