matlab动画演示17个实例Word下载.docx

1、while 1t=4;dt=0.001;w=0;dw=0.001;%设置球弹起的初始位置%设置球弹起的高度while t=4.12 t=dt+t;if w=2.11 t=t-dt;=1.11y=（-w*w）/4+1;w=-0.71;=-0.62y=（-w*w）/2+1;=-2.31y=（-w*w）/2+0.75;=-4y=（-w*w）/2+0.5;for i=0:0.01:200%设置延时 y=i+2; if（y199） end2.嫦娥奔月演示程序figure（name嫦娥一号与月亮、地球关系%设置标题名字s1=0:.01:2*pi;axis equal;%建立坐标系axis off% 除掉A

2、xesr1=10;%月亮到地球的平均距离r2=3;%嫦娥一号到月亮的平均距离w1=1;%设置月亮公转角速度w2=12%设置嫦娥一号绕月亮公转角速度t=0;%初始时刻为pausetime=.002;%设置暂停时间sita1=0;sita2=0;%设置开始它们都在水平线上set（gcf,doublebufferon） %消除抖动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

3、（0,0,%画地球plot（r1*cos（s1）,r1*sin（s1）;%画月亮公转轨道set（gca,xlim,-20 20,ylim,-20 20）;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（,p

4、2x,p2y,%画嫦娥一号的运动轨迹set（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=p2x ptempx;p2y=p2y ptempy;set（orbit,p2y）;%设置嫦娥一号运动轨迹

5、的显示过程sita1=sita1+w1*pausetime;%月亮相对地球转过的角度sita2=sita2+w2*pausetime;%嫦娥一号相对月亮转过的角度pause（pausetime）;%暂停一会drawnow3.曲柄连杆机构充气球动画演示程序hf=figure（打气筒吹气球set（hf,axis（-10,10,-4,4）;hold onaxis off;%除掉坐标xa0=-2.5;%活塞左顶点坐标xa1=-1.8;%活塞右顶点坐标xb0=-2;%连杆左顶点坐标xb1=5;%连杆右顶点坐标x3=5.6;%转轮坐标y3=0;x4=xb1;%设置连杆头的初始位置横坐标y4=0;%设置连杆

6、头的初始位置纵坐标x5=xa1;y5=0;x6=x3;%设置连轴初始横坐标y6=0;%设置连轴初始纵坐标a=0.7;b=0.7c=0.7a1=line（xa0;xa1,0;0,mlinewidth%设置活塞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）;%设置气

7、筒嘴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.5 0.6 0.3,85）;%设置手轮len1=6.8;%连杆长len2=0.7;%活塞长r=1.3;%运动半径dd=0.01;d=-4;plot（d,0,10）;pausetime=.0001s=0;ds=1;dt=0.015*pi;=15.68

8、t=t+dt; drawnow; lena1=sqrt（len1）2-（r*sin（2*t）2）;%连杆在运动过程中横轴上的有效长度 rr1=r*cos（t）;%半径在运动过程中横轴上的有效长度 xaa1=x3-sqrt（len12-（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

9、-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;if s200d=0;%消除震动,s）;%画气球） %消除抖动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.7 0.7 0.2 1.5 0.81.2 1.90.5;fill（x,y,text（

10、-6,0,pafontsize,22）;4.打桩机动画演示程序clear;%清除工作区clc;%清除命令区武工院打桩机）;%设置标题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,

11、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;%吊装水泥桩ds=0.01;pausetime1=.002;while s2.5 %水泥桩向左移动set（b1,8-s;8-s,1;6）;pause（pausetime1

12、）;pausetime2=1;pause（pausetime2）;1%水泥桩向下移动,5.5;5.5,1-s;6-s）;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）;%打桩机开始打桩pausetime3=.4;ds=0.06;%设定打桩进度4a=0;da=0.01;pausetime4=.0002;while a.4%两个子循环设置打桩机铁锺上下反复运动a=a+da; set（b5,5.7-

13、s+a,5.3-s+a）;pause（pausetime4）;.4,6.1-s-a,5.7-s-a）;%打桩机运动部分与水泥桩同时向下移动5-s）;,6.6-s,8）;,6.6-s,6.6-s）;,6.6-s,5-s）;,5.7-s,5.3-s）;,5.3-s,5-s）;pause（pausetime3）;5.电路演示程序基本电路的模拟axis（-3,12,0,10）;hold on%保持当前图形的所有特性 %关闭所有轴标注和控制%下面是画电池的过程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;