您当前的位置：
- 弹簧滑块动画
- 运行环境：Win9X/2000/XP/2003/
- 源码语言：简体中文
- 源码类型：Matlab视频
- 授权方式：免费源码
- 软件大小：2.00 KB
- 推荐星级：
- 更新时间：2008-7-20 15:28:04
- 解压密码：本站默认解压密码：www.ymlib.net
- 下载统计：
源码简介
offset=4
animinit('onecart0')
onecart=findobj('Type','figure','Name','onecart0')
axis([-10 20 -7 7])
hold on
xyspr1=[...
0 0
.4 0
.8 0.65
1.6 -0.65
2.4 0.65
3.2 -0.65
3.6 0
4 0]
xybx11=[...
0 1.2
0 -1.2
0 0]
xybx21=[...
0 1.2
2 1.2
2 -1.2
0 -1.2
0 1.2]
xbx11=xybx11(:,1)
ybx11=xybx11(:,2)
xbx21=xybx21(:,1)
ybx21=xybx21(:,2)
xspr1=xyspr1(:,1)
yspr1=xyspr1(:,2)
x=[xbx11
xspr1
xbx21(:,1)+offset]
y=[ybx11
yspr1
ybx21]
plot([-10 20],[-1.4 -1.4],'blue')
hold on
hndl=plot(x,y,'y','color','red','EraseMode','background','LineWidth',3)
set(gca,'UserData',hndl)
set(gcf,'color','yellow')
t=0
dt=0.02
u0=5
while 1
set(0,'currentfigure',onecart)
t=t+dt
u=u0+5*(cos(t))
u=u+offset
distance=u
hndl=get(gca,'UserData')
x=[xbx11
xspr1/4*distance
xbx21+distance]
set(hndl,'XData',x)
drawnow
pause(0.1)
if(t==0)
pause(12)
end
end
animinit('onecart0')
onecart=findobj('Type','figure','Name','onecart0')
axis([-10 20 -7 7])
hold on
xyspr1=[...
0 0
.4 0
.8 0.65
1.6 -0.65
2.4 0.65
3.2 -0.65
3.6 0
4 0]
xybx11=[...
0 1.2
0 -1.2
0 0]
xybx21=[...
0 1.2
2 1.2
2 -1.2
0 -1.2
0 1.2]
xbx11=xybx11(:,1)
ybx11=xybx11(:,2)
xbx21=xybx21(:,1)
ybx21=xybx21(:,2)
xspr1=xyspr1(:,1)
yspr1=xyspr1(:,2)
x=[xbx11
xspr1
xbx21(:,1)+offset]
y=[ybx11
yspr1
ybx21]
plot([-10 20],[-1.4 -1.4],'blue')
hold on
hndl=plot(x,y,'y','color','red','EraseMode','background','LineWidth',3)
set(gca,'UserData',hndl)
set(gcf,'color','yellow')
t=0
dt=0.02
u0=5
while 1
set(0,'currentfigure',onecart)
t=t+dt
u=u0+5*(cos(t))
u=u+offset
distance=u
hndl=get(gca,'UserData')
x=[xbx11
xspr1/4*distance
xbx21+distance]
set(hndl,'XData',x)
drawnow
pause(0.1)
if(t==0)
pause(12)
end
end
下载地址
此软件暂不提供下载
源码评论 （评论内容只代表网友观点，与本站立场无关！） 发表评论...
下载说明