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

2015-10-24 00:33| 发布者: aspen| 查看: 937| 评论: 0|原作者: AaronSpark|来自: 声振论坛

摘要: 这是一个半径为R的车轮作摆线运动的动画。 function a=p511() %这是一个MaLab动画: 半径为R的车轮作摆线运动. %作者:superkugua Q Q :49239359 email: superkugua@163.com v0=.2;R=1;t=0:.05:6*R*pi/v0; x0=0;y ...

这是一个半径为R的车轮作摆线运动的动画。
function a=p511()
%这是一个MaLab动画: 半径为R的车轮作摆线运动.
%作者:superkugua Q Q :49239359 email: superkugua@163.com
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

收藏分享邀请

上一篇：matlab 与delphi接口下一篇：模仿卫星返回地球时运动轨迹图

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

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

最新评论

相关分类