用matlab实现碰撞模型程序代码

合集下载

被多个小球同时碰撞代码

被多个小球同时碰撞代码当多个小球同时碰撞时，你可以使用编程语言来模拟这个过程。

以下是一个简单的示例代码，使用Python语言来实现多个小球的碰撞：python.import random.class Ball:def __init__(self, x, y, radius, speed):self.x = x.self.y = y.self.radius = radius.self.speed = speed.self.direction = random.uniform(0, 2 math.pi) # 随机初始化小球的运动方向。

def move(self):self.x += self.speed math.cos(self.direction)。

self.y += self.speed math.sin(self.direction)。

def check_collision(self, other_ball):distance = math.sqrt((self.x other_ball.x) 2 + (self.y other_ball.y) 2)。

if distance <= self.radius + other_ball.radius:# 碰撞后，更新小球的运动方向。

self.direction = math.atan2(other_ball.y self.y, other_ball.x self.x)。

other_ball.direction = math.atan2(self.y other_ball.y, self.x other_ball.x)。

# 创建多个小球。

balls = []for i in range(5):x = random.randint(0, 100)。

y = random.randint(0, 100)。

radius = random.randint(5, 10)。

matlab编程方法构建道路场景程序

MATLAB编程方法构建道路场景程序一、背景介绍随着交通运输行业的发展，道路场景模拟已经成为了交通工程领域的一个重要研究方向。

利用计算机模拟道路场景可以帮助交通工程师进行交通流量预测、路段规划和智能交通系统的设计等工作。

MATLAB 作为一种功能强大的高级编程语言，可以很好地实现道路场景的模拟和分析。

二、道路场景程序的构建步骤构建道路场景程序需要经过以下步骤：1. 确定道路场景需求在进行道路场景程序的构建之前，首先需要明确道路场景的需求。

这包括道路长度、车道数量、车辆类型等信息，这些信息将直接影响到程序的设计和实现。

2. 绘制道路场景图利用MATLAB的绘图功能，可以实现道路场景图的绘制。

可以使用线段、圆等基本图形来绘制道路、交通标志和路口等。

也可以添加文字标注和颜色填充来对道路场景进行说明和美化。

3. 模拟车辆运动通过编写车辆运动的模拟算法，可以实现车辆在道路场景中的运动轨迹。

这涉及到车辆的加速度、速度等物理特性的模拟，同时还需要考虑车辆之间的碰撞和超车等情况。

4. 添加交通信号灯控制在道路场景程序中，可以添加交通信号灯的控制系统。

通过编写相应的程序，可以实现交通信号灯的变化和车辆的停等行为，进一步提高道路场景程序的仿真度。

5. 数据分析和可视化利用MATLAB的数据分析和可视化功能，可以对道路场景程序的仿真结果进行分析和展示。

例如可以绘制车辆流量随时间的变化曲线，或者对道路拥堵情况进行热力图分析等。

6. 优化和改进在完成道路场景程序的基本构建之后，可以根据实际需求对程序进行优化和改进。

这包括提升程序的运行速度、增加仿真精度和改进用户界面等。

三、MATLAB编程方法1. MATLAB基本语法在编写道路场景程序时，需要熟悉MATLAB的基本语法和程序结构。

这包括变量定义、逻辑判断、循环控制和函数定义等内容。

熟练掌握这些基本知识对于编写道路场景程序至关重要。

2. MATLAB绘图功能MATLAB具有强大的绘图功能，可以实现道路场景图的绘制和美化。

汽车碰撞试验弹射过程的力学建模与运动分析

汽车碰撞试验弹射过程的力学建模与运动分析王家顺;李正美;安琦【摘要】基于弹性绳弹射加速的汽车碰撞试验台,分析了弹射过程中弹性绳的变形和滑车的运动,建立了相关的力学模型,并提出一种数值离散方法求解该模型.结合一个具体的算例,研究了初始弹射距离、滑车质量、弹性绳数量以及弹性绳弹性系数对滑车运动的影响,结果表明:弹射过程中,滑车所受合力随初始弹射距离、弹性绳数量、弹性绳弹性系数的增加而增大,滑车质量对合力的影响较小;滑车的初始加速度随初始弹射距离、弹性绳数量、弹性绳弹性系数的增加而增大,随滑车质量的增大而减小;初始弹射距离越大,滑车质量越小,弹性绳数量越多,弹性绳弹性系数越大,滑车的速度、位移变化越快.【期刊名称】《华东理工大学学报（自然科学版）》【年(卷),期】2018(044)003【总页数】8页(P431-438)【关键词】碰撞试验;弹射过程;力学建模;运动分析【作者】王家顺;李正美;安琦【作者单位】华东理工大学机械与动力工程学院,上海200237;华东理工大学机械与动力工程学院,上海200237;华东理工大学机械与动力工程学院,上海200237【正文语种】中文【中图分类】TH113.2+2汽车碰撞试验是针对汽车安全性能必须进行的测试手段之一。

目前广泛应用的汽车碰撞试验装置是采用弹性绳拉伸驱动模式，使滑车在规定的距离内产生足够的速度，与阻挡体产生碰撞，实现规范要求的减速度波形。

但在碰撞试验装置的开发中，由于滑车的速度、加速度与弹性绳的拉伸长度、滑车质量、滑车轮与轨道的摩擦、弹性绳的弹性系数、空气阻力等很多因素有关，且这些方面的研究目前尚不够深入，无法进行定量的计算。

吕新伟等[1]对以弹性绳作为弹射介质的试验台进行了研究，通过对试验数据进行分析，验证了神经网络BP算法在弹射系统建模中的可行性和有效性；杜汇良等[2]对弹射过程进行了动力学建模，将滑车所受的空气阻力简化后，利用求解出的动态响应分析各参数对试验台弹射能力的影响；秦思南等[3]对具有一定倾斜角度的碰撞试验台进行研究，分析了倾斜角度对弹射过程的影响；王大志等[4]利用线性回归统计的方法预测弹性绳的初始弹射距离，使滑车的碰撞速度满足试验要求；李静等[5]对舰载机弹射起飞过程进行数学建模，研究电磁推力、前起落架突伸力等参数对弹射起飞过程的影响；文献[6-7]通过理论推导和有限元分析的方法研究了永磁体尺寸、气隙等参数对电磁推力的影响，并对参数进行优化，获得最佳的弹射性能；Mirzaei等[8] 运用ANSYS对同步直线电机结构参数进行优化，使弹射过程具有最大输出推力和最佳功率因数；崔金辉等[9]在考虑蒸汽泄漏、风速等参数的基础上，对舰载机蒸汽弹射过程进行了动力学建模，并通过算例研究了各参数对弹射过程的影响；严志腾等[10]对蒸汽发射系统进行建模，并对其进行优化，使系统的弹射性能最优。

matlab包围盒碰撞检测算法

MATLAB包围盒碰撞检测算法1. 简介MATLAB包围盒碰撞检测算法是一种用于计算机图形学和计算机动画中的重要算法。

它主要用于检测两个三维对象之间是否相互碰撞，通过使用包围盒来近似表示物体的位置和形状，从而减少计算量和提高碰撞检测的效率。

2. 算法原理MATLAB包围盒碰撞检测算法的基本原理是将每个三维对象用一个包围盒来近似表示。

包围盒通常是一个矩形立方体，它完全包围住了物体，但不一定和物体的形状完全吻合。

通过比较两个包围盒之间的位置关系，可以快速判断出它们之间是否可能存在碰撞。

3. 算法步骤在MATLAB中，实现包围盒碰撞检测算法通常包括以下步骤：- 定义包围盒：将每个三维对象用一个包围盒来近似表示，通常使用最小包围盒或轴对齐包围盒。

- 碰撞检测：比较两个包围盒之间的位置关系，判断它们是否相互碰撞。

- 碰撞响应：如果发生碰撞，可以根据碰撞的情况进行相应的处理，比如改变物体的运动状态或触发碰撞效果。

4. 深入理解MATLAB包围盒碰撞检测算法的优势在于它能够快速地进行碰撞检测，尤其适用于复杂的三维场景。

通过近似表示物体的形状，不仅可以减少计算量，还可以简化碰撞检测的流程。

然而，包围盒碰撞检测算法也存在一定的局限性，当物体的形状非常不规则时，可能会导致碰撞检测的误判。

5. 个人观点和理解我认为MATLAB包围盒碰撞检测算法在计算机图形学和计算机动画领域具有非常重要的应用价值。

它可以帮助我们快速准确地判断物体之间是否发生碰撞，为虚拟场景的构建和动画效果的实现提供了重要支持。

在实际应用中，我们可以根据具体的场景和要求选择不同类型的包围盒，并结合其他碰撞检测算法进行综合应用，以达到更精确的碰撞检测效果。

6. 总结回顾通过本文的介绍，我深入理解了MATLAB包围盒碰撞检测算法的原理和实现步骤，以及它的优势和局限性。

我对这个算法的应用场景和重要性有了更清晰的认识，并且深刻理解了碰撞检测在计算机图形学和计算机动画中的重要作用。

基于Matlab的汽车二维碰撞事故的运动仿真研究

图２交通事故仿真系统的功能菜单图
２仿真系统开发
２１仿真思路和流程．
利用运动轨迹模型，通过数值求解各个时间点的车辆位移和运动方向，通过与事故现场可勘察的
实际轨迹信息和停车位置信息的比较，优化得到接
图３事故汽车基本参数输入界面
发工具【，具有可视化仿真环境，并提供了图形用６】户界面（Ｕ）ＧＩ设计与开发功能。本文的交通事故仿真
系统就是在ＷｉｄｗｓＸＰ环境下，基于Ｍａａｎｏｔｂ的ｌ
ｃｔｔ＝Ｃｔ＋・ｔｏ＋Ａ）０）￡Ａ（（（＋ｆ＝ｆ △）＋Ｃｔ＋０＋） —（Ｃ一Ｏ）Ａ＿（ｔｔ
１运动轨迹模型的建立
１汽车碰撞事故分类．１根据汽车碰撞事故发生时的碰撞方式以及碰撞后汽车运动形态，可以将汽车碰撞事故分成不同维数的类型【。二维碰撞事故是指车辆在碰撞前、４１后作平面运动，但不在同一运动方向的碰撞事故【５】。
失９．３亿元，适用简易程序处理的道路交通事故共３８２２６５起ｌ。目前己开发出较成熟的交通事故再６６ｊ
ｅｔｌｈｄｉｏｒｓｏｄｎｅｗｉｖｍｅｔｒｅｔｒ．ｈｎｔ．ｉｎｉｎｌｖｍｅｔｉｌｔｎｓｂｉｅｃｒｐｎｅｃｔｍｏｅｎａｃｙＴｅｄｍｅｔａｍｏｅｎｍｕａｏａｓｎｅｈｔｊｏｗｏｏｓｉ
ｓｓｅｆｒａｔｍｏｉｒｈａｃｄｎｓｄｖｌｐｄｗｉ：ＴＬｙｔｍｏｕｏｂｌｃａｃｉｅｔｅｓｗａｅｅｏｅｔＭＡＡＢ．ａｔｔｅｓｓｅｗａｅｆｄｈＡｔｌ．ｙｔｍｓｖｒｉｓｈｉｅｗｉｓｍｐｅ．Ｔｅｙｔｍａｈｅｅｔ－ｉｎｉｎｌｅｏｓｒｃｉｎｆｃａｈｒｃｓａｔｒｈｔａｌｓｈｓｓｅｈｃｉｖｄｗｏｄｍｅｔａｒｃｎｔｕｔｏｒｓｐｏｅｓｆｔｅｏｏｅａｔｍｏｉｃｉｅｔｗｈｃｒｖｄｓｅｅｅｃｒｕｏｂｌｃｉｅｔｐｒｉａ．ｕｏｂｌａｃｄｎ，ｉｈｐｏｉｅｆｒｎｅｆｔｍｏｉａｃｄｎｐａｓ１ｅｒｏａｅａ

三方演化博弈模型matlab代码

三方演化博弈模型matlab代码1. 简介在现实生活和学术研究中，博弈论是一种重要的分析工具，用于研究各种决策者之间的交互行为和策略选择。

而三方演化博弈模型是博弈论中的一种重要研究对象，它涉及到三个决策者之间的博弈过程，通常是在一个动态的演化过程中进行模拟和分析。

2. 模型构建对于三方演化博弈模型的构建，可以使用matlab来编写相关的代码。

在该模型中，可以考虑三个决策者分别选择不同的策略，并根据策略的效果来更新自身的策略，从而形成一个动态的博弈过程。

在matlab 中，可以利用矩阵运算和迭代算法来模拟这一过程，并通过可视化的方式展现不同策略的演化趋势。

3. 模型代码以下是一个简单的三方演化博弈模型的matlab代码示例：```matlab设置初始策略strategy_A = rand(1, 100);strategy_B = rand(1, 100);strategy_C = rand(1, 100);设置参数iterations = 1000;payoff_matrix = [1 -1 -1; -1 1 -1; -1 -1 1];演化过程for i = 1:iterations计算每个决策者的收益payoff_A = strategy_B * payoff_matrix(1, 2) + strategy_C * payoff_matrix(1, 3);payoff_B = strategy_A * payoff_matrix(2, 1) + strategy_C * payoff_matrix(2, 3);payoff_C = strategy_A * payoff_matrix(3, 1) + strategy_B * payoff_matrix(3, 2);更新策略new_strategy_A = strategy_A + 0.1 * (payoff_A -mean(payoff_A));new_strategy_B = strategy_B + 0.1 * (payoff_B -mean(payoff_B));new_strategy_C = strategy_C + 0.1 * (payoff_C -mean(payoff_C));归一化strategy_A = new_strategy_A / sum(new_strategy_A);strategy_B = new_strategy_B / sum(new_strategy_B);strategy_C = new_strategy_C / sum(new_strategy_C);end结果展示plot(strategy_A, 'r');hold on;plot(strategy_B, 'g');hold on;plot(strategy_C, 'b');legend('策略A', '策略B', '策略C');xlabel('迭代次数');ylabel('策略选择概率');```4. 模型分析通过以上的matlab代码，我们可以模拟三方演化博弈模型的演化过程，并观察不同策略在演化过程中的变化。

matlab数学建模常用模型及编程

matlab数学建模常用模型及编程摘要：一、引言二、MATLAB 数学建模的基本概念1.矩阵的转置2.矩阵的旋转3.矩阵的左右翻转4.矩阵的上下翻转5.矩阵的逆三、MATLAB 数学建模的常用函数1.绘图函数2.坐标轴边界3.沿曲线绘制误差条4.在图形窗口中保留当前图形5.创建线条对象四、MATLAB 数学建模的实例1.牛顿第二定律2.第一级火箭模型五、结论正文：一、引言数学建模是一种将现实世界中的问题抽象成数学问题，然后通过数学方法来求解的过程。

在数学建模中，MATLAB 作为一种强大的数学软件，被广泛应用于各种数学问题的求解和模拟。

本文将介绍MATLAB 数学建模中的常用模型及编程方法。

二、MATLAB 数学建模的基本概念在使用MATLAB 进行数学建模之前，我们需要了解一些基本的概念，如矩阵的转置、旋转、左右翻转、上下翻转以及矩阵的逆等。

1.矩阵的转置矩阵的转置是指将矩阵的一行和一列互换，得到一个新的矩阵。

矩阵的转置运算符是单撇号(’)。

2.矩阵的旋转利用函数rot90(a,k) 将矩阵a 旋转90 的k 倍，当k 为1 时可省略。

3.矩阵的左右翻转对矩阵实施左右翻转是将原矩阵的第一列和最后一列调换，第二列和倒数第二列调换，依次类推。

matlab 对矩阵a 实施左右翻转的函数是fliplr(a)。

4.矩阵的上下翻转matlab 对矩阵a 实施上下翻转的函数是flipud(a)。

5.矩阵的逆对于一个方阵a，如果存在一个与其同阶的方阵b，使得：a·bb·a=|a|·|b|·I，则称矩阵b 是矩阵a 的逆矩阵。

其中，|a|表示矩阵a 的行列式，I 是单位矩阵。

在MATLAB 中，我们可以使用函数inv(a) 来求解矩阵a 的逆矩阵。

三、MATLAB 数学建模的常用函数在MATLAB 数学建模过程中，我们经常需要使用一些绘图和数据处理函数，如绘图函数、坐标轴边界、沿曲线绘制误差条、在图形窗口中保留当前图形、创建线条对象等。

完全弹性碰撞 matlab

Matlab设计实验课题名称：完全弹性碰撞一．设计背景：完全弹性碰撞（Perfect Elastic Collision）：在理想情况下，完全弹性碰撞的物理过程满足动量守恒和能量守恒。

如果两个碰撞小球的质量相等，联立动量守恒和能量守恒方程时可解得：两个小球碰撞后交换速度。

如果被碰撞的小球原来静止，则碰撞后该小球具有了与碰撞小球一样大小的速度，而碰撞小球则停止。

多个小球碰撞时可以进行类似的分析。

二．设计意义真实情况下，由于小球间的碰撞并非理想的弹性碰撞，还会有能量的损失，所以最后小球还是要停下来。

所以该设计主要用于研究能量守恒中的某些问题。

还有就是用于实验演示。

三．程序设计该程序主要设置了三个不同颜色的小球，在真空环境下（理想环境下）的碰撞实验演示。

该程序可以通过改变各种参数，研究各种情况下的实验数据。

程序：pole=1.8;%定义摆线的长度xmax=2;%定义横坐标长度ymax=2;%定义纵坐标长度basew=2.3;%定义图中方框的宽度baseh=2.3;%定义图中方框的高度instant=0.2;%定义摆线间距%三视图的初始设置%第一幅图figure('name','理想情况下能量守恒定律1','position',[500,340,440,320]);%定义第一幅图的标题和位置fill([xmax,xmax,-xmax,-xmax,xmax,xmax-0.05,xmax-0.05,-xmax+0.05,-xmax+0.05,xmax-0.05],[ymax,-ymax,-ymax,ymax,ymax,ymax-0.05,-ymax+0.05,-ymax+0.05,ymax-0.05,ymax-0.05],[0,1,1]);%填充底座背景hold on;%保持当前图形及坐标所有特性fill([xmax-0.05,xmax-0.05,-xmax+0.05,-xmax+0.05],[ymax-0.5 ,ymax-0.55,ymax-0.55,ymax-0.5],'g');%填充方框内横杆背景hold on;%保持当前图形及坐标所有特性text(-0.25,1.7,'1');text(0,1.7,'2');text(0.25,1.7,'3');%在坐标处标识说明文字text( -1.0,1.7,'a');text( -1.0,-1.7,'b');%在坐标处标识说明文字text(1.0,1.7,'真空容器');text(-1.8,1.7,'主视图');%在坐标处标识说明文字axis([-basew,basew,-baseh,baseh]);%定义背景坐标范围在x(-2.3~2.3) Y(-2.3~2.3)之间%axis('off');%覆盖坐标刻度并填充背景theta0=7 *pi/6;%摆线1的初始角度x0=pole*cos(theta0);%摆线1末端x坐标y0=pole*sin(theta0)+1.5;%摆线1末端y坐标body1=line([-instant,x0-instant],[1.5,y0],'color','r','linestyle','-','erasemode','xor');%设置摆线1head1=line(x0-instant,y0,'color','r','linestyle','.','erasemode','xor','markersize',40);%设置第一个小球颜色，大小theta1=3*pi/2;%摆线2,3的角度x1=pole*cos(theta1);%摆线2,3末端x坐标y1=pole*sin(theta1)+1.5;%摆线2,3末端y坐标body=line([-0.001,x1],[1.5,y1],'color','k','linestyle','-','erasemode','xor');%设置摆线2head=line(x1,y1,'color','k','linestyle','.','erasemode','xor','markersize ',40);%设置第2个小球颜色，大小body2=line([instant;x1+instant],[1.5;y1],'color','b','linestyle','-','erasemode','xor');%设置摆线3head2=line(x1+instant,y1,'color','b','linestyle','.','erasemode','xor',' markersize',40);%设置第3个小球颜色，大小theta3=15*pi/6 ;%第二幅图figure('name','理想情况下能量守恒定律2','position',[500,40,440,320]);%定义第一幅图的标题和位置fill([xmax,xmax,-xmax,-xmax,xmax,xmax-0.05,xmax-0.05,-xmax+0.05,-xmax+0.05,xmax-0.05],[ymax,-ymax,-ymax,ymax,ymax,ymax-0.05,-ymax+0.05,-ymax+0.05,ymax-0.05,ymax-0.05],[0,1,1]);%填充底座背景hold on;%保持当前图形及坐标所有特性fill([xmax-0.05,xmax-0.05,-xmax+0.05,-xmax+0.05],[ymax-0.5 ,ymax-0.55,ymax-0.55,ymax-0.5],'g');%填充方框内第一根横杆背景hold on;%保持当前图形及坐标所有特性fill([xmax-0.05,xmax-0.05,-xmax+0.05,-xmax+0.05],[-ymax+0.55 ,-ymax+0.5,-ymax+0.5,-ymax+0.55 ],'b');%填充方框内第二根横杆背景hold on;%保持当前图形及坐标所有特性text(-0.25,1.7,'1');text(0,1.7,'2');text(0.25,1.7,'3');%在坐标处标识说明文字text( -1.0,1.7,'a');text( -1.0,-1.7,'b');%在坐标处标识说明文字text(1.0,1.7,'真空容器');text(-1.8,1.7,'俯视图');%在坐标处标识说明文字axis([-basew,basew,-baseh,baseh]);%定义背景坐标范围在x(-2.3~2.3) Y(-2.3~2.3)之间%axis('off');%覆盖坐标刻度并填充背景y01=0;%设置摆球纵坐标值body11=line([-instant,x0-instant],[1.5,y01],'color','r','linestyle','-','erasemode','xor');%设置摆线1上摆线body12=line([-instant,x0-instant],[-1.5,y01],'color','r','linestyle','-','erasemode','xor');%设置摆线1下摆线head01=line(x0-instant,y01,'color','r','linestyle','.','erasemode','xor','markersize',40);%设置第一个小球颜色，大小body01=line([-0.001,x1],[1.5,y01],'color','k','linestyle','-','erasemode','xor');%设置摆线2上摆线body02=line([-0.001,x1],[-1.5,y01],'color','k','linestyle','-','erasemode','xor');%设置摆线2下摆线head00=line(x1,y01,'color','k','linestyle','.','erasemode','xor','marker size',40);%设置第二个小球颜色，大小body21=line([instant;x1+instant],[1.5;y01],'color','b','linestyle','-','erasemode','xor');%设置摆线3上摆线body22=line([instant;x1+instant],[-1.5;y01],'color','b','linestyle','-','erasemode','xor');%设置摆线3下摆线head02=line(x1+instant,y01,'color','b','linestyle','.','erasemode','xor ','markersize',40);%设置第三个小球颜色，大小%第三幅图figure('name','理想情况下能量守恒定律3','position',[50,340,440,320]);%定义第三幅图的标题和位置fill([xmax,xmax,-xmax,-xmax,xmax,xmax-0.05,xmax-0.05,-xmax+0.05,-xmax+0.05,xmax-0.05],[ymax,-ymax,-ymax,ymax,ymax,ymax-0.05,-ymax+0.05,-ymax+0.05,ymax-0.05,ymax-0.05],[0,1,1]);%填充底座背景hold on%保持当前图形及坐标所有特性text(1.0,1.7,'真空容器');text(-1.8,1.7,'侧视图');%在坐标处标识说明文字text( -1.7,1.5,'a');text( 1.7,1.5,'b');%在坐标处标识说明文字axis([-basew,basew,-baseh,baseh]);%定义背景坐标范围在x(-2.3~2.3) Y(-2.3~2.3)之间%axis('off');%覆盖坐标刻度并填充背景x01=0;x02=1.48;y02=1.48;%设置坐标head000=line(-x02,y02,'color','g','linestyle','.','erasemode','xor','markersize',18);%设置横杆ahead000=line(x02,y02,'color','g','linestyle','.','erasemode','xor','mar kersize',18);%设置横杆bbody311=line([-x02,x01],[y02,y0],'color','r','linestyle','-','erasemode','xor');%设置摆线1上摆线body312=line([x02,x01],[y02,y0],'color','r','linestyle','-','erasemode','xor');%设置摆线1下摆线head301=line(x01,y0,'color','r','linestyle','.','erasemode','xor','marke rsize',40);%设置摆球1body301=line([-x02,x01],[y02,y1],'color','k','linestyle','-','erasemode','xor');%设置摆线2上摆线body302=line([x02,x01],[y02,y1],'color','k','linestyle','-','erasemode','xor');%设置摆线2下摆线head300=line(x01,y1,'color','k','linestyle','.','erasemode','xor','mark ersize',40);%设置摆球2body321=line([-x02;x01],[y02;y1],'color','b','linestyle','-','erasemode','xor');%设置摆线3上摆线body322=line([x02;x01],[y02;y1],'color','b','linestyle','-','erasemode','xor');%设置摆线3下摆线head302=line(x01,y1,'color','b','linestyle','.','erasemode','xor','mark ersize',40);%设置摆球3while 1%条件判断theta0=theta0+pi/540;theta3=theta3-pi/540;if theta0>=15*pi/6theta0=7*pi/6;theta3=15*pi/6 ;%设置摆球1运动过程elseif (theta0>=7*pi/6)&(theta0<3*pi/2)x11=pole*cos(theta0);y11=pole*sin(theta0)+1.5;set(body1,'xdata',[-instant,x11-instant],'ydata',[1.5,y11]);%设置主视图中摆线1运动set(head1,'xdata',x11-instant,'ydata',y11);%设置主视图中摆球1运动set(body11,'xdata',[-instant,x11-instant],'ydata',[1.5,y01]);%设置俯视图中摆线1上摆线运动set(body12,'xdata',[-instant,x11-instant],'ydata',[1.5,y01]);%设置俯视图中摆线1下摆线运动set(head01,'xdata',x11-instant,'ydata',y01);%设置俯视图中摆球1运动set(body311,'xdata',[-x02,x01],'ydata',[y02,y11]);%设置侧视图中摆线1上摆线运动set(body312,'xdata',[x02,x01],'ydata',[y02,y11]);%设置侧视图中摆线1下摆线运动set(head301,'xdata',x01,'ydata',y11);%设置侧视图中摆球1运动%设置摆球3运动的过程elseif (theta0>=3*pi/2)&(theta0<11*pi/6)x22=pole*cos(theta0);y22=pole*sin(theta0)+1.5;set(body2,'xdata',[instant,x22+instant],'ydata',[1.5,y22]);%设置主视图中摆线3运动set(head2,'xdata',x22+instant,'ydata',y22);%设置主视图中摆球3运动set(body21,'xdata',[instant,x22+instant],'ydata',[1.5,y01]);%设置俯视图中摆线3上摆线运动set(body22,'xdata',[instant,x22+instant],'ydata',[-1.5,y01]);%设置俯视图中摆线3下摆线运动set(head02,'xdata',x22+instant,'ydata',y01);%设置俯视图中摆球3运动set(body321,'xdata',[-x02,x01],'ydata',[y02,y22]); %设置侧视图中摆线3上摆线运动set(body322,'xdata',[x02,x01],'ydata',[y02,y22]);%设置侧视图中摆线3下摆线运动set(head302,'xdata',x01,'ydata',y22);%设置侧视图中摆球3运动% 设置摆球3运动过程elseif (theta0>=11*pi/6 )&(theta0<=13*pi/6 )x32=pole*cos(theta3);y32=pole*sin(theta3)+1.5;set(body2,'xdata',[instant,x32+instant],'ydata',[1.5,y32]);%设置主视图中摆线3运动set(head2,'xdata',x32+instant,'ydata',y32);%设置主视图中摆球3运动set(body21,'xdata',[instant,x32+instant],'ydata',[1.5,y01]);%设置俯视图中摆线3上摆线运动set(body22,'xdata',[instant,x32+instant],'ydata',[-1.5,y01]);%设置俯视图中摆线3下摆线运动set(head02,'xdata',x32+instant,'ydata',y01);%设置俯视图中摆球3运动set(body321,'xdata',[-x02,x01],'ydata',[y02,y32]); %设置侧视图中摆线3上摆线运动set(body322,'xdata',[x02,x01],'ydata',[y02,y32]);%设置侧视图中摆线3下摆线运动set(head302,'xdata',x01,'ydata',y32);%设置侧视图中摆球3运动%设置摆球1运动过程elseif (theta0>=13*pi/6 )&(theta0<15*pi/6 )x41=pole*cos(theta3);y41=pole*sin(theta3)+1.5;set(body1,'xdata',[-instant,x41-instant],'ydata',[1.5,y41]);%设置主视图中摆线1运动set(head1,'xdata',x41-instant,'ydata',y41);%设置主视图中摆球1运动set(body11,'xdata',[-instant,x41-instant],'ydata',[1.5,y01]);%设置俯视图中摆线1上摆线运动set(body12,'xdata',[-instant,x41-instant],'ydata',[-1.5,y01]);%设置俯视图中摆线1下摆线运动set(head01,'xdata',x41-instant,'ydata',y01);%设置俯视图中摆球1运动set(body311,'xdata',[-x02,x01],'ydata',[y02,y41]);%设置侧视图中摆线1上摆线运动set(body312,'xdata',[x02,x01],'ydata',[y02,y41]);%设置侧视图中摆线1下摆线运动set(head301,'xdata',x01,'ydata',y41); %设置侧视图中摆球1运动drawnow;endend四．程序截图主视图俯视图侧视图。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

clc;
clear;
fill([6,7,7,6],[5,5,0,0],[0,0.5,0]);%右边竖条的填充
hold on; %保持当前图形及轴系的所有特性
fill([2,6,6,2],[3,3,0,0],[0,0.5,0]);%左边竖条的填充
hold on;% 保持当前图形及轴系的所有特性
t1=0:pi/60:pi;
plot(4-2*sin(t1-pi/2),5-2*cos(t1-pi/2));%绘制中间的凹弧图形
grid on;%添加网格线
axis([0,9,0,9]);%定义坐标轴的比例%
axis('off');%关闭所有轴标注，标记，背景
fill([1,2,2,1],[5,5,0,0],[0,0.5,0]);%中间长方形的填充
hold on;% 保持当前图形及轴系的所有特性
title('碰撞');%定义图题
x0=6;
y0=5;
head1=line(x0,y0,'color','r','linestyle','.','erasemode','xor','markersize',30);
head2=line(x0,y0,'color','r','linestyle','.','erasemode','xor','markersize',50); %设置小球颜色,大小,线条的擦拭方式
t=0;%设置小球的初始值
dt=0.001;%设置运动周期
t1=0;%设置大球的初始值
dt1=0.001;
while 1%条件表达式
t=t+dt;
x1=9-1*t;
y1=5;
x3=6;
y3=5;
if t>0
x2=6;
y2=5;%设置小球的运动轨迹
end
if t>2.8
t=t+dt;
a=sin(t-3);
x1=6.1;
y1=5.1;
x3=4-2*sin(1.5*a);
y3=5-2*cos(1.5*a);%设置大球的运动轨迹
end
set(head1,'xdata',x1,'ydata',y1);%设置球的运动set(head2,'xdata',x3,'ydata',y3);
drawnow;
end。