机械设计上机设计实验报告
机械设计专业实习报告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篇)
上机实验报告篇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年暑假期间在某机械制造企业进行了为期8周的机械工程设计实习。
该企业位于广东省珠海市，是一家集设计、制造、销售于一体的机械制造企业，主要产品有数控机床、减速机、液压传动系统等。
二、实习任务和工作内容
在实习期间，我所在的实习小组主要负责了一个新产品的机械设计和制造的所有工作。
我作为小组成员，参与了以下具体工作：
1.参与产品原型设计，通过3D建模软件Pro/E进行设计。
2.参与机械零件加工、装配和测试、调试工作。
3.负责了部分机械元器件的仿真分析和优化改进。
在以上工作中，通过与其他实习小组成员的协作，我学会了如何对一项机械加工制造任务进行具体的分工和执行，并了解了一些相关的加工制造工艺和流程。
三、实习收获和体验
在本次机械工程设计实习中，我不仅学到了一些实际应用中的机械设计和制造知识，还加深了对机械加工制造流程的理解，更重要的是明确了自己未来的职业目标和方向。
此外，在与实习小组成员和企业工作人员的互动中，我也学会了更加有效地沟通和协作，提高了自身的团队合作能力。
四、总结
通过此次机械工程设计实习，我深刻认识到实践是检验理论的重要途径，只有将所学专业知识与实践相结合，才能更好地适应未来的工作需求。
同时，在实习过程中所学到的知识和经验，也为我今后的学习和发展提供了有力支撑。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 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运行界面：。