《汽车车身造型与人机工程实验报告.doc》由会员分享，可在线阅读，更多相关《汽车车身造型与人机工程实验报告.doc（7页珍藏版）》请在金锄头文库上搜索。
1、 西华大学实验报告汽车与交通学院实 验 报 告课 程 名 称: 汽车造型与人机工程学 课 程 代 码: 6010179 年级/专业/班: 2012级汽设2班 学 生 姓 名: 江 源 波 学 号: 312012080306519 实验总成绩: 任 课 教 师: 吴 涛 开 课 学 院: 汽车与交通学院 实验中心名称: 第 组西华大学实验报告开课学院及实验室： 实验时间： 年 月 日学 生 姓 名学 号实 验 成 绩课 程 名 称课 程 代 码实验项目名称项 目 代 码指 导 教 师项 目 学 分现场考评成绩（40分）实验报告成绩（60分）1、实验目的2、实验设备、仪器及材料3、实验内容3.1
2、一般实验（非上机实验）：3.1.1实验方案设计与选择（设计性、创新性实验需写该项内容）3.1.2实验原理及实验步骤（实验工作原理或实验的主要操作过程）3.1.3实验记录（核心代码及调试过程）3.2 上机实验：3.2.1上机实验的内容及要求3.2.2算法设计思想与算法实现步骤3.2.3程序核心代码，程序调试过程中出现的问题及解决方法3.2.4 程序运行的结果注解：理工科实验需记录实验过程中的数据、图表、计算、现象观察等，实验过程中出现的问题；其它如在计算机上进行的编程、仿真性或模拟性实验需记录程序核心代码以及程序在调式过程中出现的问题及解决方法；记录程序执行的结果。4、实验总结4.1实验结果分析
3、及问题讨论4.2实验总结心得体会注解：实验总结的内容根据不同学科和类型实验要求不一样，一般理工科类的实验需要对实验结果进行分析，并且对实验过程中问题进行讨论；在计算机上进行的编程、仿真性或模拟性实验需要对上机实践结果进行分析，上机的心得体会及改进意见。其它实验应总结实验过程写出心得体会及改进意见。说明：各门实验课程实验报告的格式及内容要求，请按照实验指导书的要求手工书写。实验一 实用汽车透视图计算法及透视图绘制第一部分 实用汽车透视图计算法一：实验点位（0,0,146）(45.5,0,211.82) (150.8,0,245.36) (514.5,0,269.99) (752.7,0,350)
4、 (924.3,0,380) (1605.5,0, 360) (1773.2,0, 265.39) (1777.1,0, 179.52) (1807,0, 151.08) (1783.6,0, 94.28) (1557.4,0, 67.89) (1488.5,0, 174.6) (1406.6,0, 194.46) (1272.7,0, 120.04 ) (1269.2,0, 55.52) (522.6,0, 52.95) (495.3,0, 149.47) (392.6,0, 197.5) (261.3,0, 151.08) (234,0, 42.13) (16.9,0, 68.95) (0
5、, 540, 146.1)（46.8,540, 211.82）(150.8,540, 245.36) (445.9, 540, 269.99) (754, 540, 350) (924.3, 540, 380) (1605.55, 540, 360) (1773.2, 540, 265.39) (1775.8, 540, 179.52) (1807, 540, 151.08) (1783.6, 540, 94.28) (1557.4, 540, 67.89) (1488.5, 540, 174.6) (1406.6, 540, 194.46) (1272.7, 540, 120.04) (12
6、68, 540, 55.52) (522.6, 540, 52.95) (495.3, 540, 149.47) (392.6, 540, 197.5) (262.5, 540, 151.08) (234, 540, 42.13) (16.9, 54068.95,) 二：源代码Dim d, h, Dim x(), y(), z() 原始数据Dim x1(100), y1(100), z1(100) 新数据Dim u(100), v(100)Dim y2(100)Dim m(), n(), k()Private Sub Command1_Click()d = Val(Text1.Text)h =
7、 Val(Text2.Text) = Val(Text3.Text)Picture1.Scale (-2000, 2500)-(5000, -200)Picture1.Line (-2000, 0)-(5000, 0) x轴Picture1.Line (4900, 100)-(5000, 0)Picture1.Line (4900, -100)-(5000, 0)Picture1.Line (-2000, h)-(5000, h) 视平线Picture1.Line (0, 0)-(0, h)For i = 1 To 9 刻度 Picture1.Line (500 * i, 0)-(500 *
8、i, 50) Picture1.CurrentX = 500 * i: Picture1.CurrentY = -50: Picture1.Print 500 * iNextPicture1.CurrentX = -50: Picture1.CurrentY = -10: Picture1.Print 0 x = Array(0, 45.5, 150.8, 514.5, 752.7, 924.3, 1605.5, 1773.2, 1777.1, 1807, 1783.6, 1557.4, 1488.5, 1406.6, 1272.7, 1269.2, 522.6, 495.3, 392.6,
9、261.3, 234, 16.9, 0, 46.8, 150.8, 445.9, 754, 924.3, 1605.55, 1773.2, 1775.8, 1807, 1783.6, 1557.4, 1488.5, 1406.6, 1272.7, 1268, 522.6, 495.3, 392.6, 262.5, 234, 16.9)y = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 540, 540, 540, 540, 540, 540, 540, 540, 540, 540, 540, 5
10、40, 540, 540, 540, 540, 540, 540, 540, 540, 540, 540)z = Array(146.1, 211.82, 245.36, 269.99, 350, 380, 360, 265.39, 179.52, 151.08, 94.28, 67.89, 174.6, 194.46, 120.04, 55.52, 52.95, 149.47, 197.5, 151.08, 42.13, 68.95, 146.1, 211.82, 245.36, 269.99, 350, 380, 360, 265.39, 179.52, 151.08, 94.28, 67
11、.89, 174.6, 194.46, 120.04, 55.52, 52.95, 149.47, 197.5, 151.08, 42.13, 68.95)For i = 0 To 43 u(i) = x(i) * 3 * Cos( * 3.14 / 180) - y(i) * 3 * Sin( * 3.14 / 180) v(i) = x(i) * 3 * Sin( * 3.14 / 180) + y(i) * 3 * Cos( * 3.14 / 180) x1(i) = d * u(i) / (v(i) + d) 转换后数据 y1(i) = v(i) * h / (v(i) + d) z1
12、(i) = (h - y1(i) * z(i) * 3 / h y2(i) = y1(i) + z1(i) Picture1.PSet (x1(i), y2(i), vbGreen 描点 Picture1.DrawWidth = 5Next iEnd SubPrivate Sub Command2_Click()For i = 0 To 21 横线 Picture1.DrawWidth = 2 Picture1.Line (x1(i), y2(i)-(x1(i + 22), y2(i + 22), vbBlackNextPicture1.DrawWidth = 2 前面For i = 0 To
13、 20Picture1.Line (x1(i), y2(i)-(x1(i + 1), y2(i + 1), vbBlackNextFor i = 22 To 42 后面Picture1.Line (x1(i), y2(i)-(x1(i + 1), y2(i + 1), vbBlackNextPicture1.Line (x1(22), y2(22)-(x1(43), y2(43), vbBlackEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command4_Click()d = Val(Text1.Text)h = Val(
14、Text2.Text) = Val(Text3.Text)Picture1.ClsPicture1.Scale (-2000, 2500)-(5000, -200)Picture1.Line (-2000, 0)-(5000, 0) x轴Picture1.Line (4900, 100)-(5000, 0)Picture1.Line (4900, -100)-(5000, 0)Picture1.Line (-2000, h)-(5000, h) 视平线Picture1.Line (0, 0)-(0, h)For i = 1 To 9 刻度 Picture1.Line (500 * i, 0)-(500 * i,
