MATLAB动画汇总副本Word文档下载推荐.docx
- 文档编号:19652162
- 上传时间:2023-01-08
- 格式:DOCX
- 页数:61
- 大小:43.73KB
MATLAB动画汇总副本Word文档下载推荐.docx
《MATLAB动画汇总副本Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《MATLAB动画汇总副本Word文档下载推荐.docx(61页珍藏版)》请在冰豆网上搜索。
%body=line(-5,1,'
none'
%描绘轨迹线
%设置初始条件
while1t=4;
dt=0.001;
w=0;
dw=0.001;
w=0;
%设置球弹起的初始位置
%设置球弹起的高度
whilet<
=4.12t=dt+t;
ifw<
=1w=dw+w;
else
w=-1;
end
y=(-w*w)+1;
set(head,'
xdata'
t,'
ydata'
y);
%设置球的运动
%set(body,'
%描绘轨迹线
drawnow;
end%结束程序
whilet>
=2.11t=t-dt;
=1.11t=t-dt;
y=(-w*w)/4+1;
w=-0.71;
=-0.62t=t-dt;
y=(-w*w)/2+1;
=-2.31t=t-dt;
y=(-w*w)/2+0.75;
=-4t=t-dt;
y=(-w*w)/2+0.5;
fori=0:
0.01:
200%设置延时
y=i+2;
if(y>
199)end
endend
2.嫦娥奔月演示程序
figure('
name'
嫦娥一号与月亮、地球关系'
%设置标题名字
s1=[0:
.01:
2*pi];
holdon;
axisequal;
%建立坐标系
axisoff%除掉Axes
r1=10;
%月亮到地球的平均距离r2=3;
%嫦娥一号到月亮的平均距离w1=1;
%设置月亮公转角速度w2=12%设置嫦娥一号绕月亮公转角速度t=0;
%初始时刻为0pausetime=.002;
%设置暂停时间sita1=0;
sita2=0;
%设置开始它们都在水平线上set(gcf,'
doublebuffer'
on'
)%消除抖动
plot(-20,18,'
marker'
40);
text(-17,18,'
地球'
%对地球进行标识
p1=plot(-20,16,'
20);
text(-17,16,'
月亮'
%对月亮进行标识
p1=plot(-20,14,'
w'
13);
text(-17,14,'
嫦娥一号'
%对嫦娥一号进行标识plot(0,0,'
%画地球plot(r1*cos(s1),r1*sin(s1));
%画月亮公转轨道set(gca,'
xlim'
[-2020],'
ylim'
[-2020]);
p1=plot(r1*cos(sita1),r1*sin(sita1),'
30);
%画月亮初始位置l1=plot(r1*cos(sita1)+r2*cos(s1),r1*sin(sita1)+r2*sin(s1));
%画嫦娥一号绕月亮公转轨道
p2x=r1*cos(sita1)+r2*cos(sita2);
p2y=r1*sin(sita1)+r2*sin(sita2);
p2=plot(p2x,p2y,'
%画嫦娥一号的初始位置orbit=line('
p2x,'
p2y,'
%画嫦娥一号的运动轨迹
while1set(p1,'
r1*cos(sita1),'
r1*sin(sita1));
%设置月亮的运动过程set(l1,'
r1*cos(sita1)+r2*cos(s1),'
r1*sin(sita1)+r2*sin(s1));
%设置嫦娥一号绕月亮的公转轨道的运动过程ptempx=r1*cos(sita1)+r2*cos(sita2);
ptempy=r1*sin(sita1)+r2*sin(sita2);
set(p2,'
ptempx,'
ptempy);
%设置嫦娥一号的运动过程
p2x=[p2xptempx];
p2y=[p2yptempy];
set(orbit,'
p2y);
%设置嫦娥一号运动轨迹的显示过程sita1=sita1+w1*pausetime;
%月亮相对地球转过的角度sita2=sita2+w2*pausetime;
%嫦娥一号相对月亮转过的角度pause(pausetime);
%暂停一会
drawnowend
3.曲柄连杆机构充气球动画演示程序
hf=figure('
打气筒吹气球'
set(hf,'
axis([-10,10,-4,4]);
holdon
axisoff;
%除掉坐标
xa0=-2.5;
%活塞左顶点坐标xa1=-1.8;
%活塞右顶点坐标xb0=-2;
%连杆左顶点坐标xb1=5;
%连杆右顶点坐标
x3=5.6;
%转轮坐标y3=0;
%转轮坐标x4=xb1;
%设置连杆头的初始位置横坐标y4=0;
%设置连杆头的初始位置纵坐标x5=xa1;
y5=0;
x6=x3;
%设置连轴初始横坐标y6=0;
%设置连轴初始纵坐标a=0.7;
b=0.7c=0.7
a1=line([xa0;
xa1],[0;
0],'
m'
linewidth'
%设置活塞
a8=line([-2.7;
2.3],[0.3;
0.3],'
5);
%设置打气筒a9=line([-2.6;
2.3],[-0.3;
-0.3],'
%设置打气筒a10=line([-2.6;
-2.6],[-0.1;
-0.37],'
%设置打气筒
a11=line([2.0;
2.0],[0.1;
0.37],'
%设置打气筒
a12=line([2.0;
2.0],[-0.1;
a13=line([-2.6;
-2.6],[0.1;
%设置打气筒a14=line([-2.7;
-2.7],[0.1;
-0.1],'
9);
%设置气筒嘴a16=line([-3.2;
-3.2],[0.1;
25);
%设置气筒嘴a2=line([xb0;
xb1],[0;
%设置连杆a5=line(x5,y5,'
black'
%设置连杆活塞连接头a4=line(x4,y4,'
%设置连杆连接头a6=line([xb1;
x3],[0;
7);
%设置连杆连接轴a7=line(x3,0,'
50);
%设置运动中心a3=line(x3,y3,'
[0.50.60.3],'
85);
%设置手轮len1=6.8;
%连杆长
len2=0.7;
%活塞长r=1.3;
%运动半径dd=0.01;
d=-4;
plot(d,0,'
10);
pausetime=.0001
s=0;
ds=1;
t=0;
dt=0.015*pi;
=15.68t=t+dt;
lena1=sqrt((len1)^2-(r*sin(2*t))^2);
%连杆在运动过程中横轴上的有效长度
rr1=r*cos(t);
%半径在运动过程中横轴上的有效长度
xaa1=x3-sqrt(len1^2-(sin(2*t)*r)^2)-(r*cos(2*t));
%活塞在运动过程中的右顶点坐标位置
xaa0=xaa1-2;
%%活塞在运动过程中的左顶点坐标位置x55=x3-cos(2*t)*r;
%连杆在运动过程中横坐标位置y55=y3-sin(2*t)*r*0.32;
%连杆在运动过程中纵坐标位置set(a4,'
x55,'
y55);
%设置连杆顶点运动
set(a1,'
[xaa1-0.2;
xaa1],'
[0;
0]);
%设置活塞运动set(a2,'
[xaa1;
x55],'
y55]);
set(a5,'
xaa1);
%设置活塞与连杆连接头的运动set(a6,'
[x55;
x3],'
[y55;
if(sign(y55-y3)>
0)
s=s+ds;
d=d-dd;
ifs>
200s=0;
d=0;
endset(gcf,'
%消除震动plot(d,0,'
s);
%画气球set(gcf,'
pause(pausetime);
%暂停一会
x=[-8.0-7.0-6.0-5.5-4.5-3.5-3.7-3-4-5.5-6.5-7.5-9.1-7.3];
y=[-1.8-1.2-2.8-1.5-2.8-0.5-0.70.70.21.50.81.21.90.5];
fill(x,y,'
text(-6,0,'
pa'
fontsize'
22);
4.打桩机动画演示程序
clear;
%清除工作区clc;
%清除命令区figure('
武工院打桩机);
%设置标题axis([0,10,0,10]);
%建立坐标系
text(3,9.8,'
武工院打桩机'
20,'
%画打桩机支架
c1=line([1;
5.5],[0.15;
0.15],'
k'
8);
c2=line([1.7;
5.2],[1.5;
4);
c3=line([1.8;
5.2],[0.1;
8],'
c4=line([1.7;
2);
c5=line([1.2;
1.8],[0.5;
0.5],'
fill([4.9,5.3,5.3,4.9],[8.0,8.0,0.3,0.3],[1,0.1,0.5]);
fill([4.4,4.6,5.6,5.8,5.6,4.6],[8.4,8.3,8.3,8.4,8.0,8.0],[1,0.1,0.5])
%画打桩机运动部分和水泥桩
b1=line([8;
8],[1;
6],'
6);
b2=line([5.5,5.5],[7.9,8],'
1);
b3=line([5.3,5.55],[7.9,7.9],'
3);
b4=line([5.5,5.5],[7.9,6.3],'
b5=line([5.5,5.5],[7,6.6],'
b6=line([5.5,5.5],[6.6,6.3],'
12);
pausetime=1.6;
%设置暂停时间pause(pausetime);
%吊装水泥桩
ds=0.01;
pausetime1=.002;
whiles<
2.5%水泥桩向左移动
set(b1,'
[8-s;
8-s],'
[1;
6]);
pause(pausetime1);
endpausetime2=1;
pause(pausetime2);
s=0;
ds=0.01;
1%水泥桩向下移动
[5.5;
5.5],'
[1-s;
6-s]);
endpause(pausetime2);
1.3%打桩机运动部分下移与水泥桩顶端相接触
set(b2,'
[7.9-s,8]);
set(b3,'
[5.3;
5.55],'
[7.9-s,7.9-s]);
set(b4,'
[7.9-s,6.3-s]);
set(b5,'
[7-s,6.6-s]);
set(b6,'
[6.6-s,6.3-s]);
pause(pausetime1);
%打桩机开始打桩pausetime3=.4;
ds=0.06;
%设定打桩进度
4a=0;
da=0.01;
pausetime4=.0002;
whilea<
.4%两个子循环设置打桩机铁锺上下反复运动
a=a+da;
set(b5,'
[5.7-s+a,5.3-s+a]);
pause(pausetime4);
enda=0;
.4a=a+da;
[6.1-s-a,5.7-s-a]);
ends=s+ds;
%打桩机运动部分与水泥桩同时向下移动
5-s]);
[6.6-s,8]);
[6.6-s,6.6-s]);
set(b4,'
[6.6-s,5-s]);
[5.7-s,5.3-s]);
[5.3-s,5-s]);
pause(pausetime3);
5.电路演示程序
基本电路的模拟'
axis([-3,12,0,10]);
holdon%保持当前图形的所有特性
axis('
%关闭所有轴标注和控制
%下面是画电池的过程
fill([-1.5,-1.5,1.5,1.5],[1,5,5,1],[0.5,1,1]);
%确定坐标轴范围并填充fill([-0.5,-0.5,0.5,0.5],[5,5.5,5.5,5],[0,0,0]);
%确定坐标轴范围并填充text(-0.5,1.5,'
负极'
%在坐标上标注说明文字
text(-0.5,3,'
电池'
%在坐标上标注说明文字
text(-0.5,4.5,'
正极'
%下面是画导电线路的过程
plot([0;
0],[5.5;
6.7],'
%绘制二维图形线竖实心红色
4],[6.7;
%绘制二维图形线实心红色为导线
a=line([4;
5],[6.7;
7.7],'
4,'
%画开关蓝色
plot([5.2;
9.2],[6.7;
%绘制图导线为红色plot([9.2;
3.7],'
%绘制图导线竖线为红线
plot([9.2;
9.7],[3.7;
%绘制图导线横线为红色
0],[1;
%如上画红色竖线plot([0;
10],[0;
%如上画横线plot([10;
3],'
%画竖线
%下面是画灯泡的过程fill([9.8,10.2,9.7,10.3],[3,3,3.3,3.3],[000]);
%确定填充范围plot([9.7,9.7],[3.3,4.3],'
b
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- MATLAB动画汇总 副本 MATLAB 动画 汇总
![提示](https://static.bdocx.com/images/bang_tan.gif)