机械设计上机设计实验报告

合集下载

机械设计专业实习报告3篇

机械设计专业实习报告3篇

机械设计专业实习报告机械设计专业实习报告3篇在现在社会,报告的适用范围越来越广泛,报告根据用途的不同也有着不同的类型。

相信许多人会觉得报告很难写吧,以下是小编帮大家整理的机械设计专业实习报告3篇,欢迎阅读,希望大家能够喜欢。

机械设计专业实习报告篇1一、实习目的1、通过现场参观,了解某一产品的即席制造生产过程。

2、熟悉主要典型零件(机座,机体,曲轴,凸轮轴,齿轮等或减速机箱体,转动轴,齿轮等)的机械加工工艺过程,了解拟定机械加工工艺过程的一般原则及进行工艺分析的方法。

3、了解典型零部件的装配工艺。

4、了解一般刀、夹、量具的结构及使用方法。

5、参观工厂计量室与车间检验,了解公差与测量技术在生产中的应用。

6、参观工厂的先进设备及特种加工,以扩大学生的专业知识面以及对新工艺、新技术的了解。

二、实习内容与要求1、机械制造的生产过程:了解该厂的主要机械设备的正个生产过程情况及生产中的主要工艺文件(如机械加工过程卡片、机械加工工序卡片等)。

2、典型零件工艺(1)箱体零件的加工:了解某机械设备机座、机体的机械加工方法,并纪录其工艺过程。

分析箱体零件加工平面与孔系的主要加工方法。

(2)轴类零件的加工:了解轴类及其机械加工工艺并记录其工艺过程。

了解某道工序的具体加工工艺(技术要求,刀、夹、量具,切削液等)。

(3)齿轮加工:了解一至两种齿轮的机械加工工艺,并记录其工艺过程,分析滚齿、插齿加工的运动及特点。

结合工厂的参观,简述磨齿、等的齿轮精加工方法。

3、了解刀、夹、量具的结构及使用方法,常用机床型号及其特点。

4、装配工艺:(1)了解机械设备的结构特点及其装配工艺;(2)了解机械设备装配后的最终检验项目和检验方法;(3)了解主要零部件在加工车间的检验情况,论述公差与技术测量在现场应用的实例。

三、实习地点山东莱阳信发机械制造有限公司公司简介:山东莱阳信发机械制造有限公司地处胶东半岛腹地莱阳市区军民路中段,分别距青岛、烟台两个开放城市(机场、港口)100公里,距蓝烟铁路6公里,莱潍高速公路10公里,烟青一级公路2公里,其交通条件便利,自然条件和区位优势得天独厚,电力、水力资源丰富。

上机实验报告(精选11篇)

上机实验报告(精选11篇)

上机实验报告篇1用户名se××××学号姓名学院①实验名称:②实验目的:③算法描述(可用文字描述,也可用流程图):④源代码:(.c的文件)⑤用户屏幕(即程序运行时出现在机器上的画面):2.对c文件的要求:程序应具有以下特点:a可读性:有注释。

b交互性:有输入提示。

c结构化程序设计风格:分层缩进、隔行书写。

3.上交时间:12月26日下午1点-6点,工程设计中心三楼教学组。

请注意:过时不候哟!四、实验报告内容0.顺序表的插入。

1.顺序表的删除。

2.带头结点的单链表的\'插入。

3.带头结点的单链表的删除。

注意:1.每个人只需在实验报告中完成上述4个项目中的一个,具体安排为:将自己的序号对4求余,得到的数即为应完成的项目的序号。

例如:序号为85的同学,85%4=1,即在实验报告中应完成顺序表的删除。

2.实验报告中的源代码应是通过编译链接即可运行的。

3.提交到个人空间中的内容应是上机实验中的全部内容。

上机实验报告篇2一、《软件技术基础》上机实验内容1.顺序表的建立、插入、删除。

2.带头结点的单链表的建立(用尾插法)、插入、删除。

二、提交到个人10m硬盘空间的内容及截止时间1.分别建立二个文件夹,取名为顺序表和单链表。

2.在这二个文件夹中,分别存放上述二个实验的相关文件。

每个文件夹中应有三个文件(.c文件、.obj文件和.exe文件)。

3. 截止时间:12月28日(18周周日)晚上关机时为止,届时服务器将关闭。

三、实验报告要求及上交时间(用a4纸打印)1.格式:《计算机软件技术基础》上机实验报告用户名se××××学号姓名学院①实验名称:②实验目的:③算法描述(可用文字描述,也可用流程图):④源代码:(.c的文件)⑤用户屏幕(即程序运行时出现在机器上的画面):2.对c文件的要求:程序应具有以下特点:a 可读性:有注释。

b 交互性:有输入提示。

机械设计实验报告

机械设计实验报告

机械设计实验报告一、实验目的。

本实验旨在通过对机械设计的实际操作,加深学生对机械原理和设计方法的理解,提高学生的实际动手能力和创新意识。

通过实验,学生将掌握机械设计的基本原理和方法,为将来的工程实践打下坚实的基础。

二、实验内容。

1. 了解机械设计的基本原理和方法;2. 进行机械零部件的设计和组装;3. 进行机械结构的强度分析和性能测试;4. 总结实验结果,撰写实验报告。

三、实验步骤。

1. 确定设计方案,根据实验要求和给定条件,确定机械零部件的设计方案,包括零部件的形状、尺寸、材料等;2. 绘制零部件图纸,根据设计方案,利用CAD软件绘制各个零部件的图纸,并进行合理布局和标注;3. 制造零部件,根据图纸,使用机械加工设备对零部件进行加工和制造;4. 组装机械结构,将加工好的零部件按照设计要求进行组装,确保结构的稳固和合理;5. 进行强度分析,利用相关测试设备对机械结构的强度进行测试,分析结构的承载能力和稳定性;6. 进行性能测试,对机械结构的运动性能、精度等进行测试,评估结构的设计合理性;7. 撰写实验报告,总结实验结果,分析实验中出现的问题和解决方法,提出改进建议。

四、实验结果与分析。

经过实验,我们成功设计并制造了一台具有较好性能的机械结构。

在强度分析和性能测试中,结构表现出良好的稳定性和运动精度,符合设计要求。

通过本次实验,我们深刻理解了机械设计的原理和方法,提高了实际操作能力和创新意识。

五、实验总结。

本次实验使我们对机械设计有了更深入的理解,对机械结构的设计和制造有了更多的实践经验。

在未来的学习和工作中,我们将更加注重实践操作,不断提高自己的设计能力和创新意识。

六、致谢。

在本次实验中,我们得到了老师和同学们的大力支持和帮助,在此表示衷心的感谢。

七、参考文献。

[1] 《机械设计基础》,XXX,XXX出版社,200X年。

[2] 《机械原理与设计》,XXX,XXX出版社,200X年。

以上是本次机械设计实验的报告内容,希望能对大家有所帮助。

机械优化设计上机实践报告

机械优化设计上机实践报告

机械优化设计上机实践报告本次机械优化设计上机实践报告是由学生在机械专业课程的学习中所完成的一项任务,旨在通过实践操作提高学生的机械设计和优化能力。

本次实践任务分为两个部分,第一部分是机械零件的设计,第二部分是该零件的优化设计。

一、机械零件设计在机械零件设计的部分,我们需要使用软件来实现。

首先,我们需要通过建立一个零部件的三维模型,然后通过在模型上进行绘制,来完成机械零件的设计。

在实践过程中,我们学习了许多机械零件设计的基本操作。

比如,怎样用不同的工具来创建不同的几何形状的零件。

同时我们还学习了常用的切削工具和块状建模工具。

这些工具让我们能够在短时间内完成复杂的机械零件的建模操作。

我们也学会了如何使用装配工具,通过将不同的零部件组合成装配体,从而使业主更直观地看到最终的产品形态。

二、机械优化设计经过机械零件设计的部分后,我们就开始了机械零件的优化设计。

因为在设计过程中,我们不仅需要考虑性能问题,还要考虑到材料成本和制造工艺等实际因素。

机械优化设计就是在保证零部件符合需要的功能的前提下,通过对材料和几何形状的优化,提高了零部件的机械性能和制造效率。

在实践过程中,我们首先需要了解机械零件的功能和作用,然后参考相关的设计标准和规范,确定重点优化对象。

我们还需要收集和分析机械零件在使用中的各种受力情况,然后确定机械零件的性能参数和指标,然后对机械零件的机械性能和材料利用率进行计算和分析。

经过机械优化设计的部分后,我们已经对完成的机械零件进行了大量的优化操作。

我们优化了零部件的材料选取、几何形状、工艺流程等方面,使机械零件的机械性能得到进一步提升,同时也降低了制造成本,实现了性价比的优化。

总结通过本次机械优化设计研讨实践,我们更好地理解和掌握了机械零件的设计和优化方法。

我们学会了如何使用专业设计软件,更好地了解了机械零件的实际构造和特性。

我们也学会了机械优化设计的思维方式,明确了优化设计需要考虑的各方面因素,能够更好地满足机械零件使用的实际要求。

机械设计实验报告

机械设计实验报告

机械设计实验报告郑州大学机械工程学院机械设计实验报告(一)一、实验目的二、实验设备的构造简图及各部分的作用三、实验记录及计算数据表系统刚度为δ∆=FC 试验证 21C C C += )(2121δδδ∆+∆=∆, 11δF C '=, 22δF C '=四、绘制受力——变形曲线力——变形曲线用坐标纸绘制,建议纵坐标(力)比例:40N/mm ,横坐标(变形)比例:0.0004mm/mm 。

五、实验误差1.螺栓总拉力误差0016116110010)(10⨯⋅⨯⨯+''-⋅⨯⨯--A E F F A E μεμε2.预紧力误差00161262161100101010⨯⋅⨯⨯⋅⨯⨯-⋅⨯⨯---A E A E A E μεμεμε3.协调变形误差00121100⨯∆∆-∆μεμεμε机械设计实验报告(二)一、原始数据及实验记录传动带型号规格 初拉力=0F1201=D mm 1202=D mm表中1M ——主动电机上的转矩 2M ——被动电机上的转矩η——效率 ε——滑动率 F ——皮带传动的圆周力二、效率和滑动率曲线允许传递的有效圆周力〔ec F 〕= N允许传递功率 10000VF P ec ⋅= KW机械设计实验报告(三)一、实验目的二、试验机结构简图及工作原理三、实验结果1.叙述滑动轴承产生液体摩擦现象2.测试数据及处理结果a.数据表表2n 曲线b.摩擦系数与特性系数pc.油膜压力分布曲线d.承载能力曲线四、实验结果分析。

机械设计实训总结报告

机械设计实训总结报告

机械设计实训总结报告
一、实训目标
本次机械设计实训的目标是培养学生掌握机械设计的基本原理和方法,提高学生的实际操作能力和创新思维能力。

通过实训,希望学生能够掌握机械设计的基本流程,熟悉常用机械零件的设计和选用,掌握常见机构的设计和分析,为今后的学习和工作打下坚实的基础。

二、实训内容
实训的内容主要包括:机构运动分析、平面连杆机构、凸轮机构、齿轮传动机构、带传动机构、链传动机构、蜗杆传动机构、滚动轴承、轴的设计与分析、联轴器与离合器、弹簧等。

通过这些内容的学习,学生可以全面了解机械设计的基本知识和技能。

三、实训过程
实训过程包括以下几个方面:
1. 理论知识学习:通过教师的讲解和示范,学生掌握机械设计的基本理论和技能。

2. 实际操作训练:学生在教师的指导下进行实际操作训练,掌握常用机械零件的设计和选用,熟悉常见机构的设计和分析。

3. 创新设计实践:学生根据所学知识,进行创新设计实践,提高自己的创新思维和实践能力。

4. 成果展示与评价:学生将自己的设计成果进行展示和评价,互相学习和交流,进一步提高自己的设计水平。

四、遇到的问题和解决方法
在实训过程中,学生可能会遇到各种各样的问题,例如机械零件的加工精度不够、机构的运动不协调等。

针对这些问题,学生应该积极思考,寻求解决方法,同时也可以向教师请教。

通过解决问题,学生可以提高自己的实践能力和创新思维能力。

五、实训成果
通过本次实训,学生应该掌握机械设计的基本知识和技能,能够独立完成简单的机械设计任务。

同时,学生还应该具备了一定的创新思维和实践能力,为今后的学习和工作打下了坚实的基础。

机械优化设计上机实践报告

机械优化设计上机实践报告

机械优化设计上机实践报告1. 引言机械优化设计是利用计算机辅助设计与优化方法,对机械结构进行改进和优化,以提高机械设计的性能和效率。

本实践报告基于团队在机械优化设计课程中的上机实践,探讨了机械优化设计的基本原理、方法和实践过程,并对优化后的设计进行了验证和评估。

2. 方法与流程2.1 问题定义本实践中,我们选择了一个简化的机械结构问题:求解一根长度为L的钢杆在两个支点上的最大挠度。

这个问题可以抽象为一个优化问题:寻找一个合适的杆件横截面形状,使得钢杆的挠度最小。

2.2 初始设计我们首先需要设计一个初始杆件形状作为优化的起点。

根据经验和初步分析,我们选择了一个圆形横截面作为初始设计。

通过计算机辅助设计软件绘制出了该初始设计的三维模型,并进行了有限元分析,得到了初始设计的挠度。

2.3 优化算法为了寻找更优的杆件形状,我们采用了一种遗传算法作为优化方法。

遗传算法模拟了自然界中的进化过程,通过选择、交叉和变异等操作对初始设计进行优化。

具体的算法流程如下:1.初始化种群:随机生成一定数量的个体作为种群。

2.评估适应度:利用有限元分析对每个个体进行挠度计算,并评估其适应度。

3.选择操作:根据适应度选择一部分个体作为父代,用于繁殖下一代。

4.交叉操作:对选中的父代进行交叉操作,产生新的个体。

5.变异操作:对新产生的个体进行变异操作,引入新的基因。

6.更新种群:用新产生的个体替换原有种群中的部分个体。

7.终止条件判断:如果满足终止条件,则结束优化过程;否则返回第2步。

2.4 优化结果与分析经过多轮迭代,我们得到了优化后的设计结果。

通过有限元分析对优化后的设计进行挠度计算,发现挠度明显减小。

此外,我们还对优化前后的设计进行了对比测试,结果显示优化后的设计在挠度方面有明显的改进。

3. 结果与讨论本次机械优化设计实践取得了良好的效果。

通过遗传算法优化,我们成功改进了钢杆的横截面形状,使得其挠度显著减小。

这表明机械优化设计在提高机械结构性能方面具有很大的潜力。

2023大学生机械工程设计实习报告

2023大学生机械工程设计实习报告

2023大学生机械工程设计实习报告
一、实习单位简介
我在2023年暑假期间在某机械制造企业进行了为期8周的机械工程设计实习。

该企业位于广东省珠海市,是一家集设计、制造、销售于一体的机械制造企业,主要产品有数控机床、减速机、液压传动系统等。

二、实习任务和工作内容
在实习期间,我所在的实习小组主要负责了一个新产品的机械设计和制造的所有工作。

我作为小组成员,参与了以下具体工作:
1.参与产品原型设计,通过3D建模软件Pro/E进行设计。

2.参与机械零件加工、装配和测试、调试工作。

3.负责了部分机械元器件的仿真分析和优化改进。

在以上工作中,通过与其他实习小组成员的协作,我学会了如何对一项机械加工制造任务进行具体的分工和执行,并了解了一些相关的加工制造工艺和流程。

三、实习收获和体验
在本次机械工程设计实习中,我不仅学到了一些实际应用中的机械设计和制造知识,还加深了对机械加工制造流程的理解,更重要的是明确了自己未来的职业目标和方向。

此外,在与实习小组成员和企业工作人员的互动中,我也学会了更加有效地沟通和协作,提高了自身的团队合作能力。

四、总结
通过此次机械工程设计实习,我深刻认识到实践是检验理论的重要途径,只有将所学专业知识与实践相结合,才能更好地适应未来的工作需求。

同时,在实习过程中所学到的知识和经验,也为我今后的学习和发展提供了有力支撑。

机械原理上机实验

机械原理上机实验

机械原理上机实验1. 实验目的本实验旨在通过机械原理的上机实验,加深对机械原理的理解,培养学生动手能力和实验操作技巧。

通过实验的过程,学生将能够掌握机械原理的基本概念和原理,并能够运用所学知识解决实际问题。

2. 实验设备和材料2.1 实验设备- 实验台- 直尺- 量角器- 万能试验机- 弹簧测力计- 钢尺- 电子天平- 摩擦器- 平行板- 滑轮组- 齿轮组- 螺旋组- 传动带2.2 实验材料- 不同质量的物体- 弹簧- 木块- 金属块- 齿轮- 螺旋- 传动带3. 实验步骤3.1 弹簧力的测量实验3.1.1 将弹簧测力计固定在实验台上,并调整为合适的位置。

3.1.2 将弹簧测力计的另一端固定在实验台上的挂钩上。

3.1.3 将不同质量的物体挂在弹簧测力计的挂钩上,记录下每个物体所产生的弹簧力。

3.1.4 通过实验数据计算出每个物体所受的重力,并绘制出力与质量的关系曲线。

3.2 摩擦力的测量实验3.2.1 将摩擦器固定在实验台上,并调整为合适的位置。

3.2.2 将不同质量的物体放在摩擦器上,逐渐增加物体的质量,直到物体开始滑动。

3.2.3 记录下物体开始滑动时所受的摩擦力,并通过实验数据计算出物体受到的重力和摩擦力的比值。

3.3 力的合成实验3.3.1 将平行板固定在实验台上,并调整为合适的位置。

3.3.2 在平行板上放置一个木块,并施加一个向下的力。

3.3.3 通过调整木块的位置和施加的力的方向和大小,使得木块保持平衡。

3.3.4 记录下施加的力的方向和大小,并通过实验数据计算出合成力的大小和方向。

3.4 力的分解实验3.4.1 将滑轮组固定在实验台上,并调整为合适的位置。

3.4.2 在滑轮组上放置一个物体,并通过拉动传动带使物体上升。

3.4.3 通过调整滑轮组的位置和传动带的拉力,使得物体保持上升。

3.4.4 记录下滑轮组的位置和传动带的拉力,并通过实验数据计算出分解力的大小和方向。

3.5 机械功的测量实验3.5.1 将齿轮组固定在实验台上,并调整为合适的位置。

机械设计上机设计实验报告

机械设计上机设计实验报告

机械设计上机设计班级:姓名:学号:目录1.数表和线图的程序化处理 (1)1.1数表的程序化 (1)1.1.1查表检索法 (1)1.1.2数表解析法 (12)1.2线图的程序化 (15)1.3有关数据处理 (16)2.典型零部件的程序设计 (18)2.1 V带传动的程序设计 (18)2.2 齿轮传动的程序设计 (19)2.3 滚动轴承的程序设计 (21)3.课后习题计算 (22)一、表和线图的程序化处理1.1数表程序化数表程序化有两种方法:一是查表检索法;二是数表解析法1.1.1 查表检索法1)一元数表的存取表1-1 普通V带型号及有关参数运行界面:程序代码:Private Sub Command1_Click()Dim s As IntegerDim q1 As Single, dm As Single, kb As Singles = Val(Txt_s.Text)Select Case sCase 0q1 = 0.02: dm = 20: kb = 0.00006Case 1q1 = 0.06: dm = 50: kb = 0.00039Case 2q1 = 0.1: dm = 75: kb = 0.00103Case 4q1 = 0.17: dm = 125: kb = 0.00265Case 5q1 = 0.3: dm = 200: kb = 0.0075Case 6q1 = 0.62: dm = 355: kb = 0.0266Case 7q1 = 0.9: dm = 500: kb = 0.0498End SelectTxt_q1.Text = Str(q1)Txt_dmin.Text = Str(dm)Txt_kb.Text = Str(kb)End SubPrivate Sub Command2_Click()EndEnd Sub2)二元数表的存取表1-2齿轮传动工作状况系数K运行界面:程序代码:Option ExplicitDim ii As IntegerDim jj As IntegerPublic appdir As String Private Sub Check1_Click() If Check1.Value = 1 Then Check2.Value = 0Check3.Value = 0ii = 0End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Check1.Value = 0Check3.Value = 0ii = 1End IfEnd SubPrivate Sub Check3_Click() If Check3.Value = 1 Then Check1.Value = 0Check2.Value = 0ii = 2End IfEnd SubPrivate Sub Check4_Click()If Check4.Value = 1 ThenCheck5.Value = 0Check6.Value = 0jj = 0End IfEnd SubPrivate Sub Check5_Click()If Check5.Value = 1 ThenCheck4.Value = 0Check6.Value = 0jj = 1End IfEnd SubPrivate Sub Check6_Click()If Check6.Value = 1 ThenCheck4.Value = 0Check5.Value = 0jj = 2End IfEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerDim ka(0 To 2, 0 To 2) As Singleka(0, 0) = 1ka(0, 1) = 1.25ka(0, 2) = 1.75ka(1, 0) = 1.25ka(1, 1) = 1.5ka(1, 2) = 2ka(2, 0) = 1.5ka(2, 1) = 1.75ka(2, 2) = 2.25txt_ka.Text = Str(ka(ii, jj))End SubPrivate Sub Command1_Click()EndEnd Sub表1-3V工作状况系数K运行界面:程序代码:Private Sub Command1_Click()If (Combo1.Text = Combo1.List(0) And Option1.Value) Then Text_ka.Text = 1 If (Combo1.Text = Combo1.List(0) And Option2.Value) Then Text_ka.Text = 1.1 If (Combo1.Text = Combo1.List(0) And Option3.Value) Then Text_ka.Text = 1.2 If (Combo1.Text = Combo1.List(1) And Option1.Value) Then Text_ka.Text = 1.1 If (Combo1.Text = Combo1.List(1) And Option2.Value) Then Text_ka.Text = 1.2 If (Combo1.Text = Combo1.List(1) And Option3.Value) Then Text_ka.Text = 1.3 If (Combo1.Text = Combo1.List(2) And Option1.Value) Then Text_ka.Text = 1.2 If (Combo1.Text = Combo1.List(2) And Option2.Value) Then Text_ka.Text = 1.3 If (Combo1.Text = Combo1.List(2) And Option3.Value) Then Text_ka.Text = 1.4 If (Combo1.Text = Combo1.List(3) And Option1.Value) Then Text_ka.Text = 1.3 If (Combo1.Text = Combo1.List(3) And Option2.Value) Then Text_ka.Text = 1.4 If (Combo1.Text = Combo1.List(3) And Option3.Value) Then Text_ka.Text = 1.5 Text_pc.Text = Str(Text_ka) * Str(Text_p)End SubPrivate Sub Command2_Click()EndEnd Sub3)区间检索运行界面:程序代码:Private Sub Command1_Click()Dim i As Integer, d As IntegerDim dd As Variant, b As Variant, h As Variantdd = Array(0, 6, 8, 10, 12, 17, 22, 30, 38, 44, 50, 58)b = Array(0, 2, 3, 4, 5, 6, 8, 10, 12, 14, 16, 18)h = Array(0, 2, 3, 4, 5, 6, 7, 8, 8, 9, 10, 11)d = Val(Txt_d.Text)For i = 0 To 10If d <= dd(i + 1) ThenEnd IfNext iTxt_b.Text = Str(b(i))Txt_h.Text = Str(h(i))End SubPrivate Sub Command2_Click()EndEnd Sub4)复杂表格程序化(含插值处理)①一元数表的线性插值α运行界面:程序代码:Private Sub Command1_Click()Dim i As IntegerDim t As Single, u As Single, f As SingleDim kf As Single, af As SingleDim x As Variant, y As Variantx = Array(120, 125, 130, 135, 140, 145, 150, 155, 160, 165, 170, 175, 180, 185) y = Array(0.82, 0.84, 0.86, 0.88, 0.89, 0.91, 0.92, 0.93, 0.95, 0.96, 0.98, 0.99, 1, 1) t = Val(Txt_t.Text)If t < x(0) Theni = 0ElseIf t >= x(12) Theni = 12ElseFor i = 1 To 12If t <= x(i) ThenExit ForEnd IfNext iEnd Ifu = (t - x(i)) / (x(i + 1) - x(i))f = y(i) + u * (y(i + 1) - y(i))kf = f: af = tTxt_af.Text = Str(af)Txt_kf.Text = Str(kf)End SubPrivate Sub Command2_Click()Txt_t.Text = ""Txt_af.Text = ""Txt_kf.Text = ""End Sub②二元数表的线性插值表1-6轴的圆角处应力集中系数Kσ运行界面:Dim Appdir As StringDim i As Integer, j As IntegerDim ii As Integer, jj As IntegerPrivate Sub Cmdstart_Click()Dim ki As Integer, kj As IntegerDim ax As Single, ay As Single, ap As SingleDim bt As Single, f As SingleDim x As Variant, y As VariantDim z(8, 6) As Singlex = Array(0, 0, 0.02, 0.04, 0.06, 0.08, 0.1, 0.15, 0.2)y = Array(0, 500, 600, 700, 800, 900, 1000)z(1, 1) = 2.32z(1, 2) = 2.5z(1, 3) = 2.71z(1, 4) = 0z(1, 5) = 0z(1, 6) = 0z(2, 1) = 1.84z(2, 2) = 1.96z(2, 3) = 2.08z(2, 4) = 2.2z(2, 5) = 2.35z(2, 6) = 2.5z(3, 1) = 1.6z(3, 2) = 1.66z(3, 3) = 1.69z(3, 4) = 1.75z(3, 5) = 1.81z(3, 6) = 1.87z(4, 1) = 1.51z(4, 2) = 1.51z(4, 3) = 1.54z(4, 4) = 1.54z(4, 5) = 1.6z(4, 6) = 1.6z(5, 1) = 1.4z(5, 2) = 1.4z(5, 3) = 1.42z(5, 4) = 1.42z(5, 5) = 1.46z(5, 6) = 1.46z(6, 1) = 1.34z(6, 3) = 1.37z(6, 4) = 1.37z(6, 5) = 1.39z(6, 6) = 1.39z(7, 1) = 1.25z(7, 2) = 1.25z(7, 3) = 1.27z(7, 4) = 1.27z(7, 5) = 1.3z(7, 6) = 1.3z(8, 1) = 1.19z(8, 2) = 1.19z(8, 3) = 1.22z(8, 4) = 1.22z(8, 5) = 1.24z(8, 6) = 1.24ax = Val(txt_rd.Text)ay = Val(txt_cb.Text)For i = 1 To 8If ax <= x(i + 1) Thenki = iExit ForElseki = 8End IfNext iFor j = 1 To 6If ay <= y(j + 1) Thenkj = jExit ForElsekj = 6End IfNext jap = (ax - x(ki)) / (x(ki + 1) - x(ki))bt = (ay - y(kj)) / (y(kj + 1) - y(kj))f = (1 - ap) * (1 - bt) * z(ki, kj) + bt * (1 - ap) * z(ki, kj + 1) + ap * (1 - bt) * z(ki + 1, kj) + ap * bt * z(ki + 1, kj + 1)txt_kc.Text = Str(f)End SubPrivate Sub Command2_Click()EndEnd Sub③非线性插值表1-7蜗轮齿形系数Y运行界面:程序代码:Private Sub Command1_Click()Dim i As Integer, z As Integer, hi As IntegerDim x1 As Single, x2 As Single, x3 As SingleDim u As Single, v As Single, w As Single, yf As SingleDim x As Variant, y As Variantx = Array(0, 20, 24, 26, 28, 30, 32, 35, 37, 40, 45, 50, 60, 80, 100, 150, 300)y = Array(0, 1.98, 1.88, 1.85, 1.8, 1.76, 1.71, 1.64, 1.61, 1.55, 1.48, 1.45, 1.4, 1.34, 1.3, 1.27, 1.24) z = Val(Txt_z.Text)For i = 1 To 14If z - x(i + 1) <= 0 Thenhi = iExit ForElsehi = 14End IfNext iIf hi > 1 And z - x(hi) < x(hi + 1) - z Then hi = hi - 1x1 = x(hi): x2 = x(hi + 1): x3 = x(hi + 2)u = (z - x2) * (z - x3) / ((x1 - x2) * (x1 - x3))v = (z - x1) * (z - x3) / ((x2 - x1) * (x2 - x3))w = (z - x1) * (z - x2) / ((x3 - x1) * (x3 - x2))yf = u * y(hi) + v * y(hi + 1) + w * y(hi + 2)Txt_zv.Text = Str(z)Txt_yf.Text = Str(yf)End SubPrivate Sub Command2_Click()Txt_zv.Text = ""Txt_yf.Text = ""Txt_z.Text = ""End Sub1.1.2 数表解析法表1-8圆弧齿锥齿轮几何系数运行界面:程序代码:Private Sub Command1_Click()Dim YY As Variantm = 2: n = 9X = Array(0, 16, 20, 24, 28, 32, 36, 40, 45, 50)Y = Array(0, 0.171, 0.186, 0.201, 0.214, 0.226, 0.234, 0.245, 0.263, 0.28) YY = Array(0, 0.171, 0.186, 0.201, 0.214, 0.226, 0.234, 0.245, 0.263, 0.28) Call 最小二乘法程序txt_a0 = A(1, JJ)txt_a1 = A(2, JJ)txt_a2 = A(3, JJ)For j = 1 To n'将计算结果写入到表格中MSHFlexGrid1.TextMatrix(j, 0) = Str(j)MSHFlexGrid1.TextMatrix(j, 1) = Str(X(j))MSHFlexGrid1.TextMatrix(j, 2) = Str(YY(j))MSHFlexGrid1.TextMatrix(j, 3) = Str(Y(j))Next jEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()'设置各行的宽度MSHFlexGrid1.ColWidth(0) = 500: MSHFlexGrid1.ColWidth(1) = 600 MSHFlexGrid1.ColWidth(2) = 800: MSHFlexGrid1.ColWidth(3) = 1600 '设置表头MSHFlexGrid1.TextMatrix(0, 0) = "组数"MSHFlexGrid1.TextMatrix(0, 1) = "齿数Z1"MSHFlexGrid1.TextMatrix(0, 2) = "J原始值"MSHFlexGrid1.TextMatrix(0, 3) = "几何系数J拟合值"End SubPublic X As Variant, Y As VariantPublic A(10, 11) As Single, S(10) As Single, T(10) As SinglePublic i As Integer, j As Integer, k As Integer, m As IntegerPublic n As Integer, l As Integer, LL As Integer, KK As Integer Public JJ As Integer, KP1 As IntegerPublic b As Single, p As Single, TEMP As SinglePublic Sub 最小二乘法程序()LL = 2 * m + 1KK = m + 1JJ = KK + 1For l = 2 To LLS(l) = 0Next lS(1) = nFor k = 1 To KKT(k) = 0Next kFor i = 1 To nb = 1: T(1) = T(1) + Y(i)For j = 2 To KKb = X(i) * b: S(j) = S(j) + bT(j) = T(j) + Y(i) * bNext jFor j = JJ To LLb = X(i) * b: S(j) = S(j) + bNext jNext iFor i = 1 To KKFor j = 1 To KKk = i + j: A(j, i) = S(k - 1)Next jNext iFor i = 1 To KKA(i, JJ) = T(i)Next iFor k = 1 To KKp = 0For i = k To KKIf p < Abs(A(i, k)) Thenp = Abs(A(i, k))l = iEnd IfNext iIf p <= 0.0000000001 ThenExit For '线性方程组无解End IfFor j = k To JJTEMP = A(k, j)A(k, j) = A(l, j)A(l, j) = TEMPNext jKP1 = k + 1For j = KP1 To JJA(k, j) = A(k, j) / A(k, k)Next jFor i = 1 To KKIf (i - k) <> 0 ThenFor j = KP1 To JJA(i, j) = A(i, j) - A(i, k) * A(k, j)Next jEnd IfNext iNext kFor j = 1 To nY(j) = 0For i = 1 To KKY(j) = Y(j) + A(i, JJ) * X(j) ^ (i - 1)Next iNext jEnd Sub1.2线图的程序化1.2.1 查表检索法图1-1普通V带选型图运行界面:程序代码:Dim i As IntegerPrivate Sub Cmdstart_Click()Dim pc As Double, n1 As Double, c(5) As DoubleDim xh As Stringpc = Val(txt_pc.Text)n1 = Val(txt_n1.Text)c(0) = (Log(365) + (Log(2500) -Log(365)) * (Log(pc) -Log(0.8)) / (Log(5) -Log(0.8))) / Log(10)c(1) = (Log(100) + (Log(1250) - Log(100)) * (Log(pc) - Log(1)) / (Log(10) - Log(1))) / Log(10) c(2) = (Log(100) + (Log(870) - Log(100)) * (Log(pc) - Log(3.15)) / (Log(18) - Log(3.15))) / Log(10)c(3) = (Log(100) + (Log(700) - Log(100)) * (Log(pc) - Log(9)) / (Log(40) - Log(9))) / Log(10)c(4) = (Log(100) + (Log(500) -Log(100)) * (Log(pc) -Log(50)) / (Log(200) -Log(50))) / Log(10)For i = 0 To 4If n1 >= 10 ^ c(i) ThenExit ForEnd IfNext iSelect Case iCase 0: xh = "Z"Case 1: xh = "A"Case 2: xh = "B"Case 3: xh = "C"Case 4: xh = "D"Case 5: xh = "E"End Selecttxt_xh.Text = xhEnd SubPrivate Sub Command2_Click()EndEnd Sub1.3有关数据处理1.3.1标准值圆整表1-9圆柱齿轮标准模数运行界面:程序代码:Private Sub Command1_Click()Dim i As IntegerDim mm As Single, md As Single, mj As SingleDim m As Variantm = Array(1, 1.25, 1.5, 1.75, 2, 2.25, 2.5, 2.75, 3, 3.5, 4, 4.5, 5, 5.5, _ 6, 7, 8, 9, 10, 12, 14, 16, 18, 20, 22, 25, 28, 32, 36, 40, 45, 50) mm = Val(txt_mm.Text)For i = 0 To 31If mm <= m(i) ThenExit ForEnd IfNext imd = m(i)For i = 1 To 31If mm <= m(i) ThenExit ForEnd IfNext iIf (m(i) - mm) <= (mm - m(i - 1)) Thenmj = m(i)Elsemj = m(i - 1)End Iftxt_md.Text = Str(md)txt_mj.Text = Str(mj)End Sub二、典型机械零部件的程序设计2.1V带传动的程序设计运行界面:2.2齿轮传动的程序设计运行界面:2.3滚动轴承的程序设计运行界面:三、课后习题计算题6-3运行界面:题8-4运行界面:题13-4运行界面:。

机械设计实习实验报告

机械设计实习实验报告

机械设计实习实验报告一、实习目的本次实习旨在让机械设计专业的学生在实际操作中掌握机械设计的基本原理和方法,提高实际动手能力和创新能力,培养工程意识和团队协作精神。

通过实习,学生应能理解并掌握以下内容:1. 熟悉机械设计的基本流程,包括需求分析、方案设计、详细设计、制造和测试等环节。

2. 掌握常用的机械设计软件,如AutoCAD、SolidWorks等,并能运用这些软件进行简单的机械设计。

3. 了解机械加工的基本工艺,如铸造、锻造、焊接、切削等,并能在实际操作中熟练运用。

4. 学会进行简单的零件加工,如切割、打磨、装配等,并掌握相关的安全操作规程。

5. 培养团队协作和沟通表达能力,提高解决实际工程问题的能力。

二、实习内容本次实习主要包括以下几个部分:1. 实习前的理论培训:学习机械设计的基本原理、方法和流程,熟悉常用的机械设计软件和机械加工工艺。

2. 实际操作训练:在指导老师的带领下,进行实际的机械设计操作,包括零件的绘制、加工、装配和调试等。

3. 案例分析:分析实际工程案例,讨论解决机械设计过程中遇到的问题,提高解决实际问题的能力。

4. 团队协作项目:以小组为单位,完成一个简单的机械设计项目,培养团队协作和沟通表达能力。

5. 实习总结和报告:对实习过程进行总结,撰写实习报告,分享实习经验和收获。

三、实习过程1. 实习前期,我们学习了机械设计的基本原理和方法,熟悉了常用的机械设计软件,如AutoCAD、SolidWorks等。

同时,我们还了解了机械加工的基本工艺,如铸造、锻造、焊接、切削等。

2. 在实际操作训练环节,我们在指导老师的带领下,进行了零件的绘制、加工、装配和调试等操作。

通过实际操作,我们掌握了机械加工的基本技能,并学会了使用相关工具和设备。

3. 在案例分析环节,我们分析了实际工程案例,讨论了解决机械设计过程中遇到的问题,提高了解决实际问题的能力。

4. 在团队协作项目环节,我们以小组为单位,完成了一个简单的机械设计项目。

机械设计实验报告答案

机械设计实验报告答案

一、实验目的1. 熟悉机械设计的基本原理和方法。

2. 培养学生的动手能力和创新思维。

3. 提高学生对机械设计的认识,为今后的实际应用打下基础。

二、实验器材1. 机械设计实验台2. 量具(如卡尺、游标卡尺、千分尺等)3. 传感器4. 计算机5. 相关实验教材和参考资料三、实验内容1. 机械设计基本原理的学习2. 机械零件的测绘与设计3. 机械装配与调试4. 机械性能测试与分析四、实验步骤1. 机械设计基本原理的学习(1)阅读相关教材,了解机械设计的基本原理和设计方法。

(2)通过案例分析,加深对机械设计基本原理的理解。

2. 机械零件的测绘与设计(1)对给定的零件进行测绘,包括尺寸、形状、表面粗糙度等。

(2)根据测绘结果,运用设计方法进行零件设计。

(3)绘制零件图纸,包括尺寸、形状、材料、标注等。

3. 机械装配与调试(1)根据设计图纸,将零件进行装配。

(2)对装配好的机械进行调试,确保其性能符合设计要求。

4. 机械性能测试与分析(1)对调试好的机械进行性能测试,如强度、刚度、耐磨性等。

(2)分析测试结果,评估机械性能,并提出改进措施。

五、实验结果与分析1. 机械设计基本原理的学习通过学习,掌握了机械设计的基本原理和方法,为后续实验奠定了基础。

2. 机械零件的测绘与设计(1)测绘结果:零件尺寸、形状、表面粗糙度等符合要求。

(2)设计结果:零件图纸完整,尺寸、形状、材料、标注等符合设计要求。

3. 机械装配与调试装配过程顺利,机械性能符合设计要求。

4. 机械性能测试与分析(1)强度测试:机械强度满足设计要求。

(2)刚度测试:机械刚度满足设计要求。

(3)耐磨性测试:机械耐磨性满足设计要求。

六、实验结论1. 通过本次实验,掌握了机械设计的基本原理和方法,提高了动手能力和创新思维。

2. 学会了机械零件的测绘与设计,为今后实际应用打下了基础。

3. 实验过程中,积累了丰富的实践经验,为今后的机械设计工作提供了借鉴。

七、实验心得1. 在实验过程中,要注重理论与实践相结合,提高自己的实际操作能力。

机械设计课程设计实验报告

机械设计课程设计实验报告

机械设计课程设计实验报告一、课程目标知识目标:1. 掌握机械设计的基本原理和实验方法,理解实验报告的撰写要求。

2. 熟悉机械设计中常用材料的特点及选用原则,了解不同机械零件的设计规范。

3. 学会运用机械设计软件进行简单机械结构的设计和分析,并能结合实际需求进行优化。

技能目标:1. 能够独立完成机械设计实验,熟练操作相关设备,正确记录实验数据。

2. 具备分析和解决机械设计过程中出现问题的能力,能够运用所学知识进行创新设计。

3. 提高团队协作能力,通过与同学合作完成实验任务,培养沟通协调和共同解决问题的能力。

情感态度价值观目标:1. 培养学生对机械设计的兴趣和热情,激发学生主动探索新知识的精神。

2. 增强学生的环保意识,使他们在机械设计中注重资源节约和环保。

3. 树立正确的工程伦理观念,培养学生严谨、负责任的科学态度。

本课程针对高中年级学生,结合课程性质、学生特点和教学要求,将目标分解为具体的学习成果。

通过本课程的学习,学生将能够掌握机械设计的基本知识,提高实际操作和解决问题的能力,同时培养良好的情感态度价值观,为未来的学习和工作打下坚实基础。

二、教学内容1. 机械设计基本原理:包括机械设计的基本概念、设计原则和设计方法。

结合教材第一章内容,让学生了解机械设计的基本框架。

2. 常用机械材料及选用:分析各类机械材料的性能、特点及应用场景,结合教材第二章内容,使学生掌握材料选用的基本原则。

3. 机械零件设计:详细讲解齿轮、轴、轴承、联轴器等常见机械零件的设计方法,参照教材第三章内容,让学生学会运用设计规范进行零件设计。

4. 机械设计软件应用:教授CAD等机械设计软件的基本操作,结合教材第四章内容,培养学生运用软件进行机械结构设计的能力。

5. 机械结构优化设计:介绍优化设计的基本概念和常用方法,结合教材第五章内容,让学生学会根据实际需求进行结构优化。

6. 实验操作与数据处理:安排实验课程,让学生动手操作,掌握实验方法和技巧,结合教材第六章内容,学会正确记录和处理实验数据。

上机实验报告实验总结

上机实验报告实验总结

上机实验报告实验总结
当撰写上机实验报告的实验总结时,需要从多个角度全面回答。

首先,总结实验的目的和背景,说明实验的重要性和意义。

然后描
述实验的步骤和方法,包括所用的仪器和材料。

接着,详细讨论实
验的结果,包括数据和观察到的现象。

分析实验结果,讨论可能的
误差来源和对结果的影响。

最后,总结实验的主要发现,讨论实验
过程中遇到的问题以及可能的改进方法。

在总结中,可以指出实验
的局限性和未来的研究方向。

总之,实验总结需要全面、详细地描
述实验过程和结果,并对实验的意义和可能的改进进行讨论。

机械设计系统实验报告

机械设计系统实验报告

实验名称:机械设计系统实验实验日期:2023年10月15日实验地点:机械设计实验室一、实验目的1. 熟悉机械设计系统的基本原理和操作方法。

2. 掌握机械设计系统中的参数设置和计算方法。

3. 培养运用机械设计系统进行机械设计的能力。

二、实验原理机械设计系统是一种用于机械设计的计算机辅助工具,它能够帮助设计者进行机械零件的几何设计、力学分析和优化设计。

实验中,我们将利用机械设计系统进行以下任务:1. 创建几何模型:根据设计要求,创建所需的几何模型。

2. 设置材料属性:为模型设置材料属性,如弹性模量、泊松比等。

3. 添加约束条件:为模型添加必要的约束条件,如固定、旋转等。

4. 进行力学分析:对模型进行力学分析,如应力、应变、位移等。

5. 优化设计:对模型进行优化设计,以降低成本、提高性能。

三、实验设备与材料1. 机械设计系统软件:SolidWorks、ANSYS等。

2. 电脑:一台配置较高的电脑,用于运行机械设计系统软件。

3. 设计图纸:根据设计要求,提供相应的设计图纸。

四、实验步骤1. 创建几何模型:打开机械设计系统软件,根据设计图纸创建所需的几何模型。

本实验以一个简单的轴类零件为例,创建轴的几何模型。

2. 设置材料属性:在软件中为创建的轴设置材料属性,如弹性模量、泊松比等。

本实验中,轴的材料为45号钢,弹性模量为210 GPa,泊松比为0.3。

3. 添加约束条件:为轴添加必要的约束条件。

本实验中,将轴的两端设置为固定约束,以模拟实际工作中的固定状态。

4. 进行力学分析:在软件中对轴进行力学分析。

本实验中,分析轴在受到扭转力矩作用下的应力、应变和位移。

5. 优化设计:根据分析结果,对轴进行优化设计。

本实验中,通过调整轴的直径和长度,以降低成本和提高性能。

五、实验结果与分析1. 创建的轴类零件几何模型符合设计要求,能够满足实际工程应用。

2. 在力学分析中,轴在受到扭转力矩作用下的应力、应变和位移均在允许范围内,说明轴的设计满足强度要求。

机械设计实验报告

机械设计实验报告

机械设计实验报告摘要:一、引言1.实验背景及目的2.实验内容简介二、实验原理1.机械设计基本概念2.设计流程与方法三、实验设备及材料1.设备清单2.材料清单四、实验步骤1.设计与分析a.设计要求与约束b.设计方案拟定c.结构分析与计算2.制作与加工a.零件加工工艺b.组件装配与调试五、实验结果与分析1.实验数据记录2.结果分析与讨论a.设计合理性评估b.性能指标分析c.存在问题与改进措施六、实验总结1.实验收获与启示2.不足与改进方向正文:一、引言1.实验背景及目的随着科技的发展,机械设计在各个领域发挥着越来越重要的作用。

为了培养学生的动手能力、实践能力和创新能力,提高机械设计水平,本实验围绕机械设计的基本原理和流程展开,通过实际操作,使学生掌握机械设计的基本方法和技能。

2.实验内容简介本实验主要包括:机械设计基本概念、设计流程与方法、实验设备及材料、实验步骤、实验结果与分析、实验总结等部分。

通过实验,使学生了解机械设计的全过程,提高实际动手能力和团队合作精神。

二、实验原理1.机械设计基本概念机械设计是指在给定条件下,通过对机械系统的功能、结构、材料、工艺等方面进行综合分析与设计,使机械系统达到预定的性能指标和要求。

机械设计包括:设计需求分析、设计方案拟定、结构设计、零部件选型、强度计算、性能分析、绘制图纸等多个环节。

2.设计流程与方法(1)设计需求分析:根据使用条件、性能要求、成本等因素,明确设计目标和要求。

(2)设计方案拟定:根据设计需求,提出多种设计方案,并进行比较和筛选。

(3)结构设计:确定机械系统的结构形式、尺寸参数、材料及工艺。

(4)零部件选型:根据结构设计,选择合适的零部件,进行参数匹配。

(5)强度计算:对关键零部件进行强度计算,验证设计是否满足使用要求。

(6)性能分析:对机械系统进行性能分析,评估设计方案的优缺点。

(7)绘制图纸:按照设计要求,绘制机械系统的三视图、零件图、装配图等。

机械设计实训报告

机械设计实训报告

机械设计实训报告一、实训简介机械设计实训是机械制造专业本科生必修的一门课程,旨在培养学生的机械设计能力和实际操作能力。

本次实训分为两个阶段,第一阶段为理论学习和机械操作的基本技能培训,第二阶段为实际机械设计项目的实施。

本文将主要介绍第二阶段的实施情况。

二、实训过程本次机械设计项目的主题是“燃气发动机的散热系统设计”,目标是设计一种能够在高温环境下有效散热的燃气发动机散热系统。

我们的设计团队由四名学生组成,分别担任不同任务,包括绘图、计算、材料选择和实物制作等。

首先,我们进行了市场调研和技术分析,了解了当前燃气发动机的散热系统的主要设计原理和技术难点。

然后,我们开始进行设计方案的讨论和确定,确定了设计方案后,根据目标要求进行了详细的计算和材料选择。

在设计过程中,我们遇到了不少难题,例如如何保证散热效率和稳定性的平衡、如何降低材料成本和提高制造工艺。

我们通过多次讨论和实验验证,最终确定了完整的设计方案。

接着,我们开始进行实际制作和测试。

我们在中心实验室的机械制作区进行了制作。

在制作过程中,我们遇到了一些技术难点,例如如何处理好散热器的表面光洁度和密封性等问题,但是我们通过不断地改进和完善,最终完成了实物制作。

我们还通过一系列实验测试,来验证设计方案的可行性和效果。

在实验室中模拟高温、高压等条件下的实际使用环境,测试了散热系统的温度分布、热阻值和工作稳定性等指标。

三、实训成果通过本次机械设计实训,我们不仅学习了许多机械设计理论和基本操作技能,还锻炼了我们的创新精神和实际操作能力。

我们成功地完成了设计方案的制作和测试,证明了我们的设计方案的可行性和效果。

此外,我们还通过实验室安全规范和人际交流等方面的实践,提高了我们的综合素质和实际技能。

最后,感谢学校提供的良好的实训平台和优秀的教师团队,让我们能够得到这样一次宝贵的实践机会,为我们未来的学习和工作打下了坚实的基础。

机械设计实验实习报告

机械设计实验实习报告

一、实习目的通过本次机械设计实验实习,使我对机械设计的基本理论、基本方法和基本技能有一个系统的了解,提高我的实际操作能力,培养我的创新意识和团队协作精神,为今后的学习和工作打下坚实的基础。

二、实习时间2021年X月X日至2021年X月X日三、实习地点XX大学机械设计实验室四、实习内容1. 机械设计基本理论的学习(1)了解机械设计的基本原则和基本方法;(2)学习机械设计的基本理论和基本公式;(3)掌握机械设计的基本计算方法和步骤。

2. 机械设计实验操作(1)熟悉实验室的实验设备和仪器;(2)掌握实验操作规程和安全注意事项;(3)进行实验操作,观察实验现象,分析实验数据。

3. 机械设计实践(1)根据给定的任务,进行机械设计方案的初步构思;(2)运用所学知识和技能,进行机械设计方案的详细设计;(3)绘制机械设计图纸,包括零件图、装配图等;(4)进行机械设计方案的可行性分析和评估。

五、实习过程及结果1. 实习过程(1)认真听讲,做好笔记;(2)积极参与实验操作,发现问题及时请教老师;(3)独立完成机械设计实践任务,与同学讨论、交流心得;(4)按时完成实习报告。

2. 实习结果(1)掌握了机械设计的基本理论和基本方法;(2)熟悉了实验室的实验设备和仪器;(3)提高了实际操作能力和创新意识;(4)完成了机械设计实践任务,达到了实习目的。

六、实习心得体会1. 通过本次实习,我深刻认识到机械设计在工程领域的重要性,以及理论知识与实际操作相结合的必要性。

2. 实习过程中,我学会了如何运用所学知识解决实际问题,提高了自己的综合素质。

3. 在实验操作过程中,我明白了团队协作的重要性,学会了与同学沟通交流,共同进步。

4. 通过本次实习,我认识到自己在机械设计方面的不足,为今后的学习和工作指明了方向。

七、总结本次机械设计实验实习使我受益匪浅,不仅提高了我的实际操作能力和创新意识,还培养了我的团队协作精神。

在今后的学习和工作中,我将继续努力,不断提高自己的专业素养,为我国机械设计事业贡献自己的力量。

机器设计实验报告范文

机器设计实验报告范文

一、实验名称机器设计实验二、实验目的1. 理解和掌握机器设计的基本原理和方法。

2. 学习使用相关设计软件进行机器设计。

3. 培养动手能力和创新思维。

4. 提高团队协作能力。

三、实验原理本实验主要围绕机械设计的基本原理和方法展开,包括:1. 机械运动学:研究物体在运动过程中的运动规律和运动学参数。

2. 机械动力学:研究物体在运动过程中的受力情况和运动规律。

3. 机械结构设计:研究机械部件的形状、尺寸和材料等。

4. 机械强度计算:研究机械部件在受力时的强度和刚度。

四、实验内容1. 设计一个简单的机械装置,如齿轮传动装置、连杆机构等。

2. 使用SolidWorks等设计软件进行三维建模。

3. 根据设计要求,进行结构优化和材料选择。

4. 进行机械强度计算,确保设计的安全性和可靠性。

5. 撰写实验报告,总结实验过程和心得体会。

五、实验过程1. 方案设计(1)确定机械装置的功能和性能指标。

(2)选择合适的机构类型和运动形式。

(3)初步确定各部件的形状、尺寸和材料。

2. 三维建模(1)使用SolidWorks等设计软件建立三维模型。

(2)细化各部件的形状、尺寸和材料。

(3)进行装配,检查各部件的配合关系。

3. 结构优化(1)根据设计要求,对结构进行优化。

(2)调整各部件的形状、尺寸和材料。

(3)重新进行装配,检查各部件的配合关系。

4. 机械强度计算(1)根据受力情况,进行强度计算。

(2)分析计算结果,确定各部件的强度和刚度。

(3)对设计进行修改,确保强度和刚度满足要求。

5. 实验报告撰写(1)总结实验过程和心得体会。

(2)对设计进行分析和评价。

(3)提出改进意见和展望。

六、实验结果与分析1. 三维模型(1)成功建立了机械装置的三维模型。

(2)各部件的形状、尺寸和材料符合设计要求。

(3)装配过程顺利,各部件配合关系良好。

2. 结构优化(1)对结构进行了优化,提高了设计的安全性和可靠性。

(2)调整了各部件的形状、尺寸和材料,满足了设计要求。

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

机械设计上机设计班级:姓名:学号:目录1.数表和线图的程序化处理 (1)1.1数表的程序化 (1)1.1.1查表检索法 (1)1.1.2数表解析法 (12)1.2线图的程序化 (15)1.3有关数据处理 (16)2.典型零部件的程序设计 (18)2.1 V带传动的程序设计 (18)2.2 齿轮传动的程序设计 (19)2.3 滚动轴承的程序设计 (21)3.课后习题计算 (22)一、表和线图的程序化处理1.1数表程序化数表程序化有两种方法:一是查表检索法;二是数表解析法1.1.1 查表检索法1)一元数表的存取表1-1 普通V带型号及有关参数运行界面:程序代码:Private Sub Command1_Click()Dim s As IntegerDim q1 As Single, dm As Single, kb As Singles = Val(Txt_s.Text)Select Case sCase 0q1 = 0.02: dm = 20: kb = 0.00006Case 1q1 = 0.06: dm = 50: kb = 0.00039Case 2q1 = 0.1: dm = 75: kb = 0.00103Case 4q1 = 0.17: dm = 125: kb = 0.00265Case 5q1 = 0.3: dm = 200: kb = 0.0075Case 6q1 = 0.62: dm = 355: kb = 0.0266Case 7q1 = 0.9: dm = 500: kb = 0.0498End SelectTxt_q1.Text = Str(q1)Txt_dmin.Text = Str(dm)Txt_kb.Text = Str(kb)End SubPrivate Sub Command2_Click()EndEnd Sub2)二元数表的存取表1-2齿轮传动工作状况系数K运行界面:程序代码:Option ExplicitDim ii As IntegerDim jj As IntegerPublic appdir As String Private Sub Check1_Click() If Check1.Value = 1 Then Check2.Value = 0Check3.Value = 0ii = 0End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Check1.Value = 0Check3.Value = 0ii = 1End IfEnd SubPrivate Sub Check3_Click() If Check3.Value = 1 Then Check1.Value = 0Check2.Value = 0ii = 2End IfEnd SubPrivate Sub Check4_Click()If Check4.Value = 1 ThenCheck5.Value = 0Check6.Value = 0jj = 0End IfEnd SubPrivate Sub Check5_Click()If Check5.Value = 1 ThenCheck4.Value = 0Check6.Value = 0jj = 1End IfEnd SubPrivate Sub Check6_Click()If Check6.Value = 1 ThenCheck4.Value = 0Check5.Value = 0jj = 2End IfEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerDim ka(0 To 2, 0 To 2) As Singleka(0, 0) = 1ka(0, 1) = 1.25ka(0, 2) = 1.75ka(1, 0) = 1.25ka(1, 1) = 1.5ka(1, 2) = 2ka(2, 0) = 1.5ka(2, 1) = 1.75ka(2, 2) = 2.25txt_ka.Text = Str(ka(ii, jj))End SubPrivate Sub Command1_Click()EndEnd Sub表1-3V工作状况系数K运行界面:程序代码:Private Sub Command1_Click()If (Combo1.Text = Combo1.List(0) And Option1.Value) Then Text_ka.Text = 1 If (Combo1.Text = Combo1.List(0) And Option2.Value) Then Text_ka.Text = 1.1 If (Combo1.Text = Combo1.List(0) And Option3.Value) Then Text_ka.Text = 1.2 If (Combo1.Text = Combo1.List(1) And Option1.Value) Then Text_ka.Text = 1.1 If (Combo1.Text = Combo1.List(1) And Option2.Value) Then Text_ka.Text = 1.2 If (Combo1.Text = Combo1.List(1) And Option3.Value) Then Text_ka.Text = 1.3 If (Combo1.Text = Combo1.List(2) And Option1.Value) Then Text_ka.Text = 1.2 If (Combo1.Text = Combo1.List(2) And Option2.Value) Then Text_ka.Text = 1.3 If (Combo1.Text = Combo1.List(2) And Option3.Value) Then Text_ka.Text = 1.4 If (Combo1.Text = Combo1.List(3) And Option1.Value) Then Text_ka.Text = 1.3 If (Combo1.Text = Combo1.List(3) And Option2.Value) Then Text_ka.Text = 1.4 If (Combo1.Text = Combo1.List(3) And Option3.Value) Then Text_ka.Text = 1.5 Text_pc.Text = Str(Text_ka) * Str(Text_p)End SubPrivate Sub Command2_Click()EndEnd Sub3)区间检索运行界面:程序代码:Private Sub Command1_Click()Dim i As Integer, d As IntegerDim dd As Variant, b As Variant, h As Variantdd = Array(0, 6, 8, 10, 12, 17, 22, 30, 38, 44, 50, 58)b = Array(0, 2, 3, 4, 5, 6, 8, 10, 12, 14, 16, 18)h = Array(0, 2, 3, 4, 5, 6, 7, 8, 8, 9, 10, 11)d = Val(Txt_d.Text)For i = 0 To 10If d <= dd(i + 1) ThenEnd IfNext iTxt_b.Text = Str(b(i))Txt_h.Text = Str(h(i))End SubPrivate Sub Command2_Click()EndEnd Sub4)复杂表格程序化(含插值处理)①一元数表的线性插值α运行界面:程序代码:Private Sub Command1_Click()Dim i As IntegerDim t As Single, u As Single, f As SingleDim kf As Single, af As SingleDim x As Variant, y As Variantx = Array(120, 125, 130, 135, 140, 145, 150, 155, 160, 165, 170, 175, 180, 185) y = Array(0.82, 0.84, 0.86, 0.88, 0.89, 0.91, 0.92, 0.93, 0.95, 0.96, 0.98, 0.99, 1, 1) t = Val(Txt_t.Text)If t < x(0) Theni = 0ElseIf t >= x(12) Theni = 12ElseFor i = 1 To 12If t <= x(i) ThenExit ForEnd IfNext iEnd Ifu = (t - x(i)) / (x(i + 1) - x(i))f = y(i) + u * (y(i + 1) - y(i))kf = f: af = tTxt_af.Text = Str(af)Txt_kf.Text = Str(kf)End SubPrivate Sub Command2_Click()Txt_t.Text = ""Txt_af.Text = ""Txt_kf.Text = ""End Sub②二元数表的线性插值表1-6轴的圆角处应力集中系数Kσ运行界面:Dim Appdir As StringDim i As Integer, j As IntegerDim ii As Integer, jj As IntegerPrivate Sub Cmdstart_Click()Dim ki As Integer, kj As IntegerDim ax As Single, ay As Single, ap As SingleDim bt As Single, f As SingleDim x As Variant, y As VariantDim z(8, 6) As Singlex = Array(0, 0, 0.02, 0.04, 0.06, 0.08, 0.1, 0.15, 0.2)y = Array(0, 500, 600, 700, 800, 900, 1000)z(1, 1) = 2.32z(1, 2) = 2.5z(1, 3) = 2.71z(1, 4) = 0z(1, 5) = 0z(1, 6) = 0z(2, 1) = 1.84z(2, 2) = 1.96z(2, 3) = 2.08z(2, 4) = 2.2z(2, 5) = 2.35z(2, 6) = 2.5z(3, 1) = 1.6z(3, 2) = 1.66z(3, 3) = 1.69z(3, 4) = 1.75z(3, 5) = 1.81z(3, 6) = 1.87z(4, 1) = 1.51z(4, 2) = 1.51z(4, 3) = 1.54z(4, 4) = 1.54z(4, 5) = 1.6z(4, 6) = 1.6z(5, 1) = 1.4z(5, 2) = 1.4z(5, 3) = 1.42z(5, 4) = 1.42z(5, 5) = 1.46z(5, 6) = 1.46z(6, 1) = 1.34z(6, 3) = 1.37z(6, 4) = 1.37z(6, 5) = 1.39z(6, 6) = 1.39z(7, 1) = 1.25z(7, 2) = 1.25z(7, 3) = 1.27z(7, 4) = 1.27z(7, 5) = 1.3z(7, 6) = 1.3z(8, 1) = 1.19z(8, 2) = 1.19z(8, 3) = 1.22z(8, 4) = 1.22z(8, 5) = 1.24z(8, 6) = 1.24ax = Val(txt_rd.Text)ay = Val(txt_cb.Text)For i = 1 To 8If ax <= x(i + 1) Thenki = iExit ForElseki = 8End IfNext iFor j = 1 To 6If ay <= y(j + 1) Thenkj = jExit ForElsekj = 6End IfNext jap = (ax - x(ki)) / (x(ki + 1) - x(ki))bt = (ay - y(kj)) / (y(kj + 1) - y(kj))f = (1 - ap) * (1 - bt) * z(ki, kj) + bt * (1 - ap) * z(ki, kj + 1) + ap * (1 - bt) * z(ki + 1, kj) + ap * bt * z(ki + 1, kj + 1)txt_kc.Text = Str(f)End SubPrivate Sub Command2_Click()EndEnd Sub③非线性插值表1-7蜗轮齿形系数Y运行界面:程序代码:Private Sub Command1_Click()Dim i As Integer, z As Integer, hi As IntegerDim x1 As Single, x2 As Single, x3 As SingleDim u As Single, v As Single, w As Single, yf As SingleDim x As Variant, y As Variantx = Array(0, 20, 24, 26, 28, 30, 32, 35, 37, 40, 45, 50, 60, 80, 100, 150, 300)y = Array(0, 1.98, 1.88, 1.85, 1.8, 1.76, 1.71, 1.64, 1.61, 1.55, 1.48, 1.45, 1.4, 1.34, 1.3, 1.27, 1.24) z = Val(Txt_z.Text)For i = 1 To 14If z - x(i + 1) <= 0 Thenhi = iExit ForElsehi = 14End IfNext iIf hi > 1 And z - x(hi) < x(hi + 1) - z Then hi = hi - 1x1 = x(hi): x2 = x(hi + 1): x3 = x(hi + 2)u = (z - x2) * (z - x3) / ((x1 - x2) * (x1 - x3))v = (z - x1) * (z - x3) / ((x2 - x1) * (x2 - x3))w = (z - x1) * (z - x2) / ((x3 - x1) * (x3 - x2))yf = u * y(hi) + v * y(hi + 1) + w * y(hi + 2)Txt_zv.Text = Str(z)Txt_yf.Text = Str(yf)End SubPrivate Sub Command2_Click()Txt_zv.Text = ""Txt_yf.Text = ""Txt_z.Text = ""End Sub1.1.2 数表解析法表1-8圆弧齿锥齿轮几何系数运行界面:程序代码:Private Sub Command1_Click()Dim YY As Variantm = 2: n = 9X = Array(0, 16, 20, 24, 28, 32, 36, 40, 45, 50)Y = Array(0, 0.171, 0.186, 0.201, 0.214, 0.226, 0.234, 0.245, 0.263, 0.28) YY = Array(0, 0.171, 0.186, 0.201, 0.214, 0.226, 0.234, 0.245, 0.263, 0.28) Call 最小二乘法程序txt_a0 = A(1, JJ)txt_a1 = A(2, JJ)txt_a2 = A(3, JJ)For j = 1 To n'将计算结果写入到表格中MSHFlexGrid1.TextMatrix(j, 0) = Str(j)MSHFlexGrid1.TextMatrix(j, 1) = Str(X(j))MSHFlexGrid1.TextMatrix(j, 2) = Str(YY(j))MSHFlexGrid1.TextMatrix(j, 3) = Str(Y(j))Next jEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()'设置各行的宽度MSHFlexGrid1.ColWidth(0) = 500: MSHFlexGrid1.ColWidth(1) = 600 MSHFlexGrid1.ColWidth(2) = 800: MSHFlexGrid1.ColWidth(3) = 1600 '设置表头MSHFlexGrid1.TextMatrix(0, 0) = "组数"MSHFlexGrid1.TextMatrix(0, 1) = "齿数Z1"MSHFlexGrid1.TextMatrix(0, 2) = "J原始值"MSHFlexGrid1.TextMatrix(0, 3) = "几何系数J拟合值"End SubPublic X As Variant, Y As VariantPublic A(10, 11) As Single, S(10) As Single, T(10) As SinglePublic i As Integer, j As Integer, k As Integer, m As IntegerPublic n As Integer, l As Integer, LL As Integer, KK As Integer Public JJ As Integer, KP1 As IntegerPublic b As Single, p As Single, TEMP As SinglePublic Sub 最小二乘法程序()LL = 2 * m + 1KK = m + 1JJ = KK + 1For l = 2 To LLS(l) = 0Next lS(1) = nFor k = 1 To KKT(k) = 0Next kFor i = 1 To nb = 1: T(1) = T(1) + Y(i)For j = 2 To KKb = X(i) * b: S(j) = S(j) + bT(j) = T(j) + Y(i) * bNext jFor j = JJ To LLb = X(i) * b: S(j) = S(j) + bNext jNext iFor i = 1 To KKFor j = 1 To KKk = i + j: A(j, i) = S(k - 1)Next jNext iFor i = 1 To KKA(i, JJ) = T(i)Next iFor k = 1 To KKp = 0For i = k To KKIf p < Abs(A(i, k)) Thenp = Abs(A(i, k))l = iEnd IfNext iIf p <= 0.0000000001 ThenExit For '线性方程组无解End IfFor j = k To JJTEMP = A(k, j)A(k, j) = A(l, j)A(l, j) = TEMPNext jKP1 = k + 1For j = KP1 To JJA(k, j) = A(k, j) / A(k, k)Next jFor i = 1 To KKIf (i - k) <> 0 ThenFor j = KP1 To JJA(i, j) = A(i, j) - A(i, k) * A(k, j)Next jEnd IfNext iNext kFor j = 1 To nY(j) = 0For i = 1 To KKY(j) = Y(j) + A(i, JJ) * X(j) ^ (i - 1)Next iNext jEnd Sub1.2线图的程序化1.2.1 查表检索法图1-1普通V带选型图运行界面:程序代码:Dim i As IntegerPrivate Sub Cmdstart_Click()Dim pc As Double, n1 As Double, c(5) As DoubleDim xh As Stringpc = Val(txt_pc.Text)n1 = Val(txt_n1.Text)c(0) = (Log(365) + (Log(2500) -Log(365)) * (Log(pc) -Log(0.8)) / (Log(5) -Log(0.8))) / Log(10)c(1) = (Log(100) + (Log(1250) - Log(100)) * (Log(pc) - Log(1)) / (Log(10) - Log(1))) / Log(10) c(2) = (Log(100) + (Log(870) - Log(100)) * (Log(pc) - Log(3.15)) / (Log(18) - Log(3.15))) / Log(10)c(3) = (Log(100) + (Log(700) - Log(100)) * (Log(pc) - Log(9)) / (Log(40) - Log(9))) / Log(10)c(4) = (Log(100) + (Log(500) -Log(100)) * (Log(pc) -Log(50)) / (Log(200) -Log(50))) / Log(10)For i = 0 To 4If n1 >= 10 ^ c(i) ThenExit ForEnd IfNext iSelect Case iCase 0: xh = "Z"Case 1: xh = "A"Case 2: xh = "B"Case 3: xh = "C"Case 4: xh = "D"Case 5: xh = "E"End Selecttxt_xh.Text = xhEnd SubPrivate Sub Command2_Click()EndEnd Sub1.3有关数据处理1.3.1标准值圆整表1-9圆柱齿轮标准模数运行界面:程序代码:Private Sub Command1_Click()Dim i As IntegerDim mm As Single, md As Single, mj As SingleDim m As Variantm = Array(1, 1.25, 1.5, 1.75, 2, 2.25, 2.5, 2.75, 3, 3.5, 4, 4.5, 5, 5.5, _ 6, 7, 8, 9, 10, 12, 14, 16, 18, 20, 22, 25, 28, 32, 36, 40, 45, 50) mm = Val(txt_mm.Text)For i = 0 To 31If mm <= m(i) ThenExit ForEnd IfNext imd = m(i)For i = 1 To 31If mm <= m(i) ThenExit ForEnd IfNext iIf (m(i) - mm) <= (mm - m(i - 1)) Thenmj = m(i)Elsemj = m(i - 1)End Iftxt_md.Text = Str(md)txt_mj.Text = Str(mj)End Sub二、典型机械零部件的程序设计2.1V带传动的程序设计运行界面:2.2齿轮传动的程序设计运行界面:2.3滚动轴承的程序设计运行界面:三、课后习题计算题6-3运行界面:题8-4运行界面:题13-4运行界面:。

相关文档
最新文档