汽车造型与人机工程学实验报告.docVIP

汽车与交通学院 实 验 报 告 课 程 名 称: 汽车造型与人机工程学 课 程 代 码: 6010179 学院(直属系): 年级/专业/班: 学 生 姓 名: 王立冬 学 号: 实验总成绩: 任 课 教 师: 开 课 学 院: 实验中心名称: 西华大学实验报告 开课实验室：汽车与交通学院计算机机房5D-215 实验时间： 年 月 日 学 生 姓 名 学 号 实 验 成 绩 课 程 名 称 汽车造型与人机工程学 课 程 代 码 实验项目名称 项 目 代 码 指 导 教 师 项 目 学 分 现场考评成绩（40分） 实验报告成绩（60分） 1、实验目的 2、实验设备、仪器及材料 3、实验内容 3.1 一般实验（非上机实验）： 3.1.1实验方案设计与选择（设计性、创新性实验需写该项内容） 3.1.2实验原理及实验步骤（实验工作原理或实验的主要操作过程） 3.1.3实验记录（核心代码及调试过程） 3.2 上机实验： 3.2.1上机内容程序过程中出现的问题及解决方法 程序的结果 实验一 实用汽车透视图计算法及透视图绘制 1.实验目的 2.实验设备、仪器及材料 3.实验内容 3.2程序核心代码 Private Sub Command1_Click() Picture1.DrawStyle = 0 Picture1.Scale (-400, 800)-(800, -300) Picture1.Line (-390, 0)-(780, 0), vbMagenta Picture1.Line (0, 780)-(0, 0), vbMagenta Picture1.Line (740, -10)-(780, 0), vbMagenta Picture1.Line (740, 10)-(780, 0), vbMagenta Picture1.Line (-10, 740)-(0, 780), vbMagenta Picture1.Line (10, 740)-(0, 780), vbMagenta End Sub Private Sub Command2_Click() Picture1.DrawStyle = 0 Dim x(), y(), z(), a(116), b(116), c(116), k(116), u(116), v(116) Dim h, d, φ As Single x = Array(186.9, 151.9, 125.3, 117.6, 121.4, 142.7, 173.8, 221.1, 257.7, 280.4, 291.4, 282.9, 262.2, 226.1, 186.9, 869.9, 833.2, 809.6, 797.8, 802.9, 823.5, 856.3, 896.9, 933.3, 959.1, 967.3, 962.1, 937.4, 906.8, 869.9, 368.9, 318.8, 312.5, 318.8, 368.9, 512.3, 499.6, 496.6, 499.6, 521.3, 368.9, 702.6, 932.9, 954.7, 521.3, 606.7, 702.6, 782.8, 954.7, 782.8, 791.9, 782.8, 702.6, 606.7, 512.3, 202.2, 99.8, 50.7, 13.9, 3.9, 13.9, 50.7, 99.8, 202.2, 934.6, 986.3, 785.3, 986.3, 1040, 1045, 1065, 1056.1, 986.4, 984.8, 974.4, 943.1, 906.3, 867.9, 823.3, 792, 782.8, 792, 782.8, 312.6, 302, 303.6, 297.4, 272.5, 239, 202.2, 171.9, 132.2, 106.3, 98, 99.8, 50.7, 13.9, 3.9, 13.