计算机在化工中的应用实验报告
计算机在化学化工中的应用
计算机在化学化工中的应用院（系）别：化学与化工学院姓名：*** 班级：******* 学号：******* 摘要：随着计算机技术的进步和化工过程数学模型的成熟，使计算机仿真技术在化学化工教学中的应用越来越广，而且对教学思想、教学方法、教学手段的改革起到了极大的推动作用。
该文主要就计算机仿真技术在化工教学中的应用进行了探讨。
关键字：计算机仿真化工教学手段Abstract: along with the computer technology progress and chemical process mathematical model of mature, make the computer simulation technology in the teaching of chemistry, and used more and more widely to teaching ideology, teaching methods, teaching means of reform played a great role in promoting this. This paper mainly chemical teaching of computer simulation technology are discussed in the application.随着计算机技术的进步和化工过程数学模型的成熟，传统的教学思想、教学方法、教学手段都面临着前所未有的挑战。
计算机辅助教学手段的推广有力的推动了教学内容和教学体制的改革。
企业需求和用人标准的改变也对化学化工专业培养方向、课程体系、教学内容和教学手段提出了更高层次的要求。
尤其在竞争日趋激烈的就业市场上，是否受过专业操作培训成为了用人单位重点考察的一项内容，这就促使我们要充分认识计算机仿真技术在化工类课程教学中的作用。
一、计算机仿真代替实物教具化工教学中常常涉及到一些具体的工程设备、工艺流程、设备原理等，传统的教学方法是采用挂图和实物微缩教具来进行讲解，只能演示设备静态，讲授过程枯燥，不生动。
计算机在化学中的应用实践总结报告（共五则）
计算机在化学中的应用实践总结报告（共五则）第一篇：计算机在化学中的应用实践总结报告计算机在化学中的应用实践总结报告第十四周实践内容分子结构及化学反应式的绘制、分子结构及能量优化、化学反应机理的分子力学和量子化学计算软件：ChemOffice 2010、Gaussian 09、MOPCA2010 第15周实践内容：复杂体系多组分定性定量分析的化学计量学方法软件：Matlab 2012、程序：MCR-ALS（多元曲线分辨-交替最小二乘）、PLS（偏最小二乘）、SVM（支持向量机）、PCA（主成分分析）、ANN（人工神经网络）第16周实践内容：计算机辅助药物分子设计、化学数据库与化学信息学软件：MOE 2008、VMD、NAMD、Amber、Autodock、Matlab 2012 数据库：蛋白质晶体结构数据库、ZINC数据库chemoffice的组成主要有ChemDraw 化学结构绘图，Chem3D 分子模型及仿真，ChemFinder 化学信息搜寻整合系统，此外还加入了 E-Notebook Ultra 10.0，BioAssay Pro 10.0，量化软件 MOPAC、Gaussian 和GAMESS 的界面，ChemSAR, Server Excel, CLogP, CombiChem/Excel等等，ChemOffice Pro 还包含了全套 ChemInfo 数据库，有ChemACX 和ChemACX-SC，Merck 索引和ChemMSDX等等Gaussian是一个功能强大的量子化学综合软件包。
其可执行程序可在不同型号的大型计算机，超级计算机，工作站和个人计算机上运行，并相应有不同的版本。
高斯功能：过渡态能量和结构、键和反应能量、分子轨道、原子电荷和电势、振动频率、红外和拉曼光谱、核磁性质、极化率和超极化率、热力学性质、反应路径，计算可以对体系的基态或激发态执行。
可以预测周期体系的能量，结构和分子轨道。
计算机在化学化工中应用
计算机在化学化工中应用袁楠（日月光半导体有限公司江苏昆山， 215300）导师：李耀文教授摘要电子计算机已在化工的开发研究、设计、控制、管理，以及其他方面得到了广泛的应用。
通过对《计算机在化学化工中的应用》的学习，我掌握了一些常用的化工软件的用法，而它们的运用也确实给我的学习带来了便利和进步。
本文主要列举了一些常用化工软件的用途及用法举例。
本文主要包括两部分：1、前言部分 2.常用化工软件的用途关键词：计算机、化学化工、应用、软件前言电子计算机几乎在化学化工各个领域内得到应用，并且越来越显示出它的优越性和生命力，也给化工行业注入了新鲜的血液，使化工取得了很大的成就。
通过对这门课程的学习，我掌握了一些基本化工软件的用法，也从中体会到化工软件的方便性和重要性。
掌握了这些软件的用法后，以前的一些看似很复杂的问题，如今通过计算机的帮助都不再是难题，我能够应用这些化工软件解决掉遇到的很多麻烦。
1、计算机文献管理——EndNote随着科学和技术的发展，电子计算机得到了广泛的应用，人们可以通过上网搜索得到大量的需要的资料文献。
但是随着各学科的文献数量猛增，造成科研人员检索、管理和使用文献的困难。
此外，在撰写论文时，手工输入引文和参考文献既麻烦又容易出错误，因此迫切需要一种高效、方便地管理和使用文献的工具。
而EndNote就是其中一种应用比较广泛的。
使用EndNote时，需要先新建一个数据库文件，然后录入相应的文件，可以手工录入、联网直接检索或者从网络数据库导入。
然后再将整篇文献添加链接至数据库中即完成了一篇文献的录入。
文献管理还可以直接应用到Word里面，可以随意插入应用到的文献，还可以直接应用快捷工具键设置文献目录的样式。
另外还可以应用EndNote里面的论文模板来撰写论文，可以避免我们犯一些低级错误。
2、图像图像处理——ChemSketch及公式编辑器ChemSketch提供两种相对独立的操作模式：结构模式和绘图模式。
计算机在化学工业中的应用研究
计算机在化学工业中的应用研究xx年xx月xx日•计算机辅助化学研究•计算机在化学工业生产中的应用•计算机在化学研究中的应用•计算机在环境保护中的应用目•未来发展趋势与挑战录01计算机辅助化学研究1计算化学23使用计算机建模工具，构建和分析分子模型，预测其性质和反应行为。
分子模型构建运用量子化学方法，研究分子和材料的电子结构和性质，为新材料的研发提供理论支持。
量子化学计算利用计算化学技术，设计和优化药物分子的活性部位，提高药物的疗效和降低副作用。
药物设计03催化剂设计通过模拟催化剂的作用机制，优化催化剂的性能和设计新型催化剂。
计算机模拟化学反应01反应动力学模拟通过计算机模拟反应动力学过程，研究反应速率和机理，为新反应的开发提供理论指导。
02反应路径搜索运用全局搜索算法，寻找最低能量反应路径，预测反应的产物和途径。
运用计算机模拟技术，预测材料的物理和化学性质，为新材料的研发提供指导。
材料性质预测通过计算机辅助设计，优化材料结构，提高材料的性能和稳定性。
材料结构优化运用人工智能和机器学习技术，设计和优化材料合成路线，降低生产成本和提高效率。
材料合成路线设计计算机辅助材料设计02计算机在化学工业生产中的应用通过计算机技术的运用，实现对化学工业生产过程的自动化控制，提高生产效率，降低成本。
总结词计算机通过接收和处理各种传感器数据，以及预设的控制程序，对生产设备进行精确的控制和调节，实现连续的自动化生产，大大提高了生产效率，降低了人力成本。
详细描述自动化生产控制总结词计算机通过对生产数据的分析和优化，实现生产过程的节能减排，提高经济效益和社会效益。
详细描述通过对生产过程中产生的各种数据进行分析和优化，计算机可以找出最优的生产条件和参数，实现能源的节约和废物的减少，降低对环境的影响。
生产过程优化与节能减排总结词计算机通过快速、准确的数据处理能力，对生产过程中的产品质量进行实时检测和控制，保证产品的质量和稳定性。
计算机在化学化工中的应用
Excel及Origin在化学化工实验数据处理中的应用多元线性回归分析方法是化学实验数据处理中常用的数理统计方法之一。
本文介绍Microsoft ExceI、分析工具及规划求解工具等进行多元线性回归分析的方法并以分光光度法多组分同时测定．详细介绍了其使用方法和应用技巧。
在Microsoft Excel中，用不同分析方法对实验数据进行多元线性回归处理后，所得分析结果基本相同。
与使用计算机编程或专业统计分析软件对数据进行多元线性回归分析相比，此方法不但快捷方便，操作简单，而且结果准确，易学易用，可大大提高实验数据处理效率，介绍了Excel中数据查找函数VLOOKUP()和单变量求解功能的应用，用Excel计算，效率高、精度高。
Excel软件是微软公司开发的功能强大的电子表格管理软件，它可以帮助用户组、分析和计算各种类型的数据…。
Excel自带图表处理、数据管理、数据分析、数据库的使用、数据查找等功能函数，具有强大的数据处理和计算功能。
因此，在Excel环境下，熟练运用这些功能函数，便可快捷、方便地进行化工计算中较复杂的计算过程。
本文以《化工节能》的计算为例，介绍了Excel中数据查找函数VLOOKUP()和单变量求解功能的应用。
多元线性回归分析方法是数理统计中的重要方法之一，在化学及其它各个研究领域都有着广泛应用。
但在对观测数据处理时，往往计算比较繁琐，特别是对多组数据处理时，计算量很大，甚至难以手工完成。
通常的做法是利用计算机编制程序或专业统计分析软件来代替繁重的计算，但需要一定的计算机编程知识或购买并运用专业分析软件的能力。
然而Microsoft Excel是一个广为普及的电子表格软件，具有强大的数据处理和统计分析能力。
因其界面友好、操作简单、易学易用受到广大使用者的欢迎。
合理利用其自动填充功能、公式函数功能及数据分析功能等，则能简便、快捷、准确地完成观测数据的多元线性回归分析。
1.VLOOKUP( )函数简介数据查找并非一项简单的工作，针对不同的查找需求和不同的数据类型，需要采取不同的查找方法，从而有效的提高工作效率。
计算机在化工中的应用--2012-6-6
计算机在化工中的应用计算机技术的迅猛发展对各学科的发展有着深刻的影响。
化学学科中复杂计算对强大计算能力的依赖、海量化学信息对存储和管理能力的高要求、化学反应的复杂性和微观性对虚拟现实的需求、化工过程对自动化的需求等等，都要计算机的支持。
尤其在近几十年来，计算机在化学化工领域中的应用、发展突飞猛进，其效率、成果取得了令人瞩目的成绩。
1、数据处理软件OriginOrigin包含高级扫描绘图、C语言和内置300多个数学函数的NAG数值计算库，是一种化学数据的计算软件。
它包含了统计学、信号处理、曲线拟合和峰值分析等高级数据分析工具。
由于具有C程序与数值计算和作图能力综合功能，适合作为化工和高等教育的化学专业人员从事科研和教学时进行数据处理、分析和计算以及制作高质量的图表。
Origin的数据分析功能木软件设有专门的移向工具以便审视、读取和屏蔽数据，内置100多种函数可用于数据拟合。
含有的数据分析工具有::(I)统计学工具，描述统计学、拟合比较、多项回归、总体t一试验、残存分析等。
(Z)曲线拟合，非线性最小二乘法拟合NLSF、运用Origin C语言的NLSF、线性回归、多项式回归等。
(3)信号处理，进行卷积法、重叠合法、快速傅里叶变换((FFT i.e.Fast Fourier Transform)、修匀、邻接平均等。
(4)峰值分析，基线和峰值分析、基线工具、采集峰值工具、峰值拟合等组件。
Origin的数据处理应用十分广泛。
用Origin软件绘制实验数据曲线(1)打开Origin，在“Datai”列表的A[习和B[Y]中输入实验数据。
(2)选定所有实验数据，依次点击”at'’和“Line+ Cymbol"。
出现实验草图。
(3)修改坐标标题和标尺范围及问隔。
用鼠标左键双击实验草图的“X Axis Title”或“YAxis Title",输入横坐标标题或纵坐标标题。
双击横坐标或纵坐标数字，点击“Scale",输入横坐标或纵坐标标尺范围及问隔。
计算机在化学化工中的应用课程报告
4、组成分析：用酒精酒度计进行分析计算，其分析计算步骤为： 取样冷却 →测出一定温度下的酒度 V→查表折算出 20℃的酒度 →计算 x （1）用 100ml 的量筒分别取约 80ml 样品液，冷却到小于 35℃； （2）测出其温度和酒度 V（指的是体积百分含量） ； （3）查书后酒度折算附表，查出对应 20℃时的酒度 V20； （4）计算出摩尔含量 x
计算机在化学化工中的应用课程报告
计算机在化学化工中的应用课程报告
姓名：*** 班级：**** 一、前言 本学期所开设的计算机在化学化工中的应用课程主要介绍与化学化工相关 的软件的基本应用。课程具体内容包括实验数据的处理、专业相关的图形图像处 理、常用的数值计算方法及其在化学化工中的基本应用、数学应用软件 Matlab 入门及其编程基础以及部分相关应用软件的使用。 本课程报告现以所该科程讲软件的为依托进行实际应用，主要内容为分别在 实验室和化工过程中如何进行乙醇—水系统的分离提纯的连续性操作探讨以及 相关的实验内容的编写（包括有机实验中乙醇- 水溶液的分馏的改进实验研究和 化工原理实验中酒精—水系统作普通精馏验证性实验操作） 。 二、有机实验中乙醇-水溶液分馏装置的改进实验研究 1.研究目的 每年在实验室中学习有机实验的同学很多，废溶剂的回收量巨大。针对这一 现象，可以利用实验室中现有的简单玻璃仪器，通过合理组装，设计一套连续分 馏装置回收溶剂，此装置不仅有效的克服了普通分馏的缺点，而且使废物得到重 新利用，值得推广和深思。 2.仪器改进 普通的分馏装置处理可得到 95％的乙醇，但是一次进料较多，从室温到沸腾 的时间较长，回流后的残液必须经过长时间降温后，才能把烧瓶拆下倒出，浪费 人力看管且周期较长。而利用普通的磨口玻璃仪器对分馏装置进行合理改装，可 制成了一个能连续进料、间歇出料、不需要频繁拆卸且起动时间短的连续分馏装 置。 下文图 1、图 2 分别为改进前后的分馏实验装置图，从两图的对比可以看出： 本实验改进之一是用三口烧瓶替代了单口圆底烧瓶，中间的孔仍然安装分馏柱， 其中一个侧口接入一细的导管，导管在三口烧瓶内管口贴近底部，另一出口接人 下水并与大气相通。剩余一个三口瓶的孔没有用途，用普通的空心塞封上；改进 之二是用克式蒸馏头替代了普通蒸馏头，正上方一孔接入一根带有活塞的导管， 导管另一端插入较高位置的储面瓶中，温度计安放在带有支管一侧。
计算机在化工中的应用实验报告
《计算机在化学化工中的应用》实验报告学院：化学与化工学院班级：12级硕勋励志班姓名: 徐凯杰学号：120702028实验一传热实验中多变量的曲线的拟合一、实验目的1）熟悉VB编程平台2）掌握多变量曲线拟合的算法3）编拟合所给的传热实验模型的VB程序4）通过实验数据求出模型数据、并掌握解线性方程组的克拉默法则二、运行环境1）Microsoft Windows XP2）VB6.0三、实验原理略四、vb代码Private Sub Command1_Click()Dim m As Integer'm=inputbox(“实验次数”)m = 7Dim x10, x20, y0Dim i, j, k As IntegerDim a(1 To 10, 1 To 10), y(1 To 10), y1(1 To 10), a0, a1, a2Dim s, S1, S2, S3, b(1 To 10, 1 To 10), xxDim x1(1 To 10), x2(1 To 10), YY, sd'open"dem.dat"for input as#1'for i=1 to m' input#1,xx,YY' x1(i)=xx' x2(i0=xx^2' y(i)=YY'next i'close#1'7组努塞尔准数、雷诺数及普兰德准数，数据最大时应采用直接从文件读取方法x10 = Array(0, 100, 200, 300, 500, 100, 700, 800) '注意下标的起点处理（加0)x20 = Array(0, 2, 4, 1, 0.3, 5, 3, 4) '注意下标的起点处理（加0)y0 = Array(0, 1.127, 2.416, 2.205, 2.312, 1.484, 6.038, 7.325) '注意下标的起点处理（加0) For i = 1 To mx1(i) = Log(x10(i))x2(i) = Log(x20(i))y(i) = Log(y0(i))Next i'求解法方程系数矩阵a(1, 1) = ma(1, 2) = 0For i = 1 To ma(1, 2) = a(1, 2) + x1(i)Next ia(2, 1) = a(1, 2)a(1, 3) = 0For i = 1 To ma(1, 3) = a(1, 3) + x2(i)Next ia(3, 1) = a(1, 3)a(2, 2) = 0For i = 1 To ma(2, 2) = a(2, 2) + x1(i) * x1(i)Next ia(3, 3) = 0For i = 1 To ma(3, 3) = a(3, 3) + x2(i) * x2(i)Next ia(2, 3) = 0For i = 1 To ma(2, 3) = a(2, 3) + x1(i) * x2(i)Next ia(3, 2) = a(2, 3)'求解法方程常数向量y1(1) = 0For i = 1 To my1(1) = y1(1) + y(i)Next iy1(2) = 0For i = 1 To my1(2) = y1(2) + x1(i) * y(i)Next iy1(3) = 0For i = 1 To my1(3) = y1(3) + x2(i) * y(i)Next i'(利用克拉默法则解法方程/线性非常组)s = a(1, 1) * a(2, 2) * a(3, 3) + a(1, 2) * a(2, 3) * a(3, 1) + a(1, 3) * a(2, 1) * a(3, 2) s = s - a(1, 1) * a(2, 3) * a(3, 2) - a(1, 2) * a(2, 1) * a(3, 3) - a(1, 3) * a(2, 2) * a(3, 1) For j = 1 To 3b(j, 1) = a(j, 1)a(j, 1) = y1(j)Next jS1 = a(1, 1) * a(2, 2) * a(3, 3) + a(1, 2) * a(2, 3) * a(3, 1) + a(1, 3) * a(2, 1) * a(3, 2)S1 = S1 - a(1, 1) * a(2, 3) * a(3, 2) - a(1, 2) * a(2, 1) * a(3, 3) - a(1, 3) * a(2, 2) * a(3, 1)For j = 1 To 3a(j, 1) = b(j, 1)Next jFor j = 1 To 3b(j, 2) = a(j, 2)a(j, 2) = y1(j)Next jS2 = a(1, 1) * a(2, 2) * a(3, 3) + a(1, 2) * a(2, 3) * a(3, 1) + a(1, 3) * a(2, 1) * a(3, 2)S2 = S2 - a(1, 1) * a(2, 3) * a(3, 2) - a(1, 2) * a(2, 1) * a(3, 3) - a(1, 3) * a(2, 2) * a(3, 1)For j = 1 To 3a(j, 2) = b(j, 2)Next jFor j = 1 To 3b(j, 3) = a(j, 3)a(j, 3) = y1(j)Next jS3 = a(1, 1) * a(2, 2) * a(3, 3) + a(1, 2) * a(2, 3) * a(3, 1) + a(1, 3) * a(2, 1) * a(3, 2)S3 = S3 - a(1, 1) * a(2, 3) * a(3, 2) - a(1, 2) * a(2, 1) * a(3, 3) - a(1, 3) * a(2, 2) * a(3, 1)a0 = S1 / sa1 = S2 / sa2 = S3 / sText1.Text = Int(1000 * Exp(a0) + 0.5) / 1000 '四舍五入保留三位Text2.Text = Int(1000 * a1 + 0.5) / 1000Text3.Text = Int(1000 * a2 + 0.5) / 1000sd = 0For i = 1 To msd = sd + Abs(a0 + a1 * x1(i) + a2 * x2(i) - y(i)) '求Nextsd = sd / mText4.Text = sd 'Int(1000 * sd + 0.5) / 1000Print Tab(50); "序号", "模型计算值", "实验值"For i = 1 To mPrintPrint Tab(45); i; (Text1.Text) * (x10(i) ^ (Text2.Text)) * (x20(i) ^ (Text3.Text)); 0.023 * (x10(i) ^ 0.8) * (x20(i) ^ 0.3)NextEnd Sub五、实验结果截图六、实验后思考。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《计算机在化学化工中的应用》实验报告学院：化学与化工学院班级：12级硕勋励志班姓名: 徐凯杰学号：120702028实验一传热实验中多变量的曲线的拟合一、实验目的1）熟悉VB编程平台2）掌握多变量曲线拟合的算法3）编拟合所给的传热实验模型的VB程序4）通过实验数据求出模型数据、并掌握解线性方程组的克拉默法则二、运行环境1）Microsoft Windows XP2）VB6.0三、实验原理略四、vb代码Private Sub Command1_Click()Dim m As Integer'm=inputbox(“实验次数”)m = 7Dim x10, x20, y0Dim i, j, k As IntegerDim a(1 To 10, 1 To 10), y(1 To 10), y1(1 To 10), a0, a1, a2Dim s, S1, S2, S3, b(1 To 10, 1 To 10), xxDim x1(1 To 10), x2(1 To 10), YY, sd'open"dem.dat"for input as#1'for i=1 to m' input#1,xx,YY' x1(i)=xx' x2(i0=xx^2' y(i)=YY'next i'close#1'7组努塞尔准数、雷诺数及普兰德准数，数据最大时应采用直接从文件读取方法x10 = Array(0, 100, 200, 300, 500, 100, 700, 800) '注意下标的起点处理（加0)x20 = Array(0, 2, 4, 1, 0.3, 5, 3, 4) '注意下标的起点处理（加0)y0 = Array(0, 1.127, 2.416, 2.205, 2.312, 1.484, 6.038, 7.325) '注意下标的起点处理（加0) For i = 1 To mx1(i) = Log(x10(i))x2(i) = Log(x20(i))y(i) = Log(y0(i))Next i'求解法方程系数矩阵a(1, 1) = ma(1, 2) = 0For i = 1 To ma(1, 2) = a(1, 2) + x1(i)Next ia(2, 1) = a(1, 2)a(1, 3) = 0For i = 1 To ma(1, 3) = a(1, 3) + x2(i)Next ia(3, 1) = a(1, 3)a(2, 2) = 0For i = 1 To ma(2, 2) = a(2, 2) + x1(i) * x1(i)Next ia(3, 3) = 0For i = 1 To ma(3, 3) = a(3, 3) + x2(i) * x2(i)Next ia(2, 3) = 0For i = 1 To ma(2, 3) = a(2, 3) + x1(i) * x2(i)Next ia(3, 2) = a(2, 3)'求解法方程常数向量y1(1) = 0For i = 1 To my1(1) = y1(1) + y(i)Next iy1(2) = 0For i = 1 To my1(2) = y1(2) + x1(i) * y(i)Next iy1(3) = 0For i = 1 To my1(3) = y1(3) + x2(i) * y(i)Next i'(利用克拉默法则解法方程/线性非常组)s = a(1, 1) * a(2, 2) * a(3, 3) + a(1, 2) * a(2, 3) * a(3, 1) + a(1, 3) * a(2, 1) * a(3, 2) s = s - a(1, 1) * a(2, 3) * a(3, 2) - a(1, 2) * a(2, 1) * a(3, 3) - a(1, 3) * a(2, 2) * a(3, 1) For j = 1 To 3b(j, 1) = a(j, 1)a(j, 1) = y1(j)Next jS1 = a(1, 1) * a(2, 2) * a(3, 3) + a(1, 2) * a(2, 3) * a(3, 1) + a(1, 3) * a(2, 1) * a(3, 2)S1 = S1 - a(1, 1) * a(2, 3) * a(3, 2) - a(1, 2) * a(2, 1) * a(3, 3) - a(1, 3) * a(2, 2) * a(3, 1)For j = 1 To 3a(j, 1) = b(j, 1)Next jFor j = 1 To 3b(j, 2) = a(j, 2)a(j, 2) = y1(j)Next jS2 = a(1, 1) * a(2, 2) * a(3, 3) + a(1, 2) * a(2, 3) * a(3, 1) + a(1, 3) * a(2, 1) * a(3, 2)S2 = S2 - a(1, 1) * a(2, 3) * a(3, 2) - a(1, 2) * a(2, 1) * a(3, 3) - a(1, 3) * a(2, 2) * a(3, 1)For j = 1 To 3a(j, 2) = b(j, 2)Next jFor j = 1 To 3b(j, 3) = a(j, 3)a(j, 3) = y1(j)Next jS3 = a(1, 1) * a(2, 2) * a(3, 3) + a(1, 2) * a(2, 3) * a(3, 1) + a(1, 3) * a(2, 1) * a(3, 2)S3 = S3 - a(1, 1) * a(2, 3) * a(3, 2) - a(1, 2) * a(2, 1) * a(3, 3) - a(1, 3) * a(2, 2) * a(3, 1)a0 = S1 / sa1 = S2 / sa2 = S3 / sText1.Text = Int(1000 * Exp(a0) + 0.5) / 1000 '四舍五入保留三位Text2.Text = Int(1000 * a1 + 0.5) / 1000Text3.Text = Int(1000 * a2 + 0.5) / 1000sd = 0For i = 1 To msd = sd + Abs(a0 + a1 * x1(i) + a2 * x2(i) - y(i)) '求Nextsd = sd / mText4.Text = sd 'Int(1000 * sd + 0.5) / 1000Print Tab(50); "序号", "模型计算值", "实验值"For i = 1 To mPrintPrint Tab(45); i; (Text1.Text) * (x10(i) ^ (Text2.Text)) * (x20(i) ^ (Text3.Text)); 0.023 * (x10(i) ^ 0.8) * (x20(i) ^ 0.3)NextEnd Sub五、实验结果截图六、实验后思考。
VB编程是一种简单，并且效率高的可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言。
通过对本实验的实际操作，我掌握了多变量曲线拟合的基本算法，了解了解线性方程组的克拉默法则。
并且，同时在以后的工作中，可以通过这个实验来解决大部分实验数据及模型参数的拟合问题。
实验二梯度法拟合蒸汽压与温度关系模型一、实验目的1)掌握梯度法拟合的基本算法以及理解其普适性2)编写梯度法拟合蒸汽压与温度的关系的VB程序3)通过实对程序进行验证，并注意比较初值对运行速度和结果的影响二、运行环境1）Microsoft Windows XP2）VB6.0三、实验原理略四、实验VB程序代码Private Sub Command1_Click(Index As Integer)Dim m, n As Integerm = 6Dim i, j, k As IntegerDim A, B, C, F, ee, P(1 To 10), T(1 To 10)Dim A1, B1, C1, TA, TB, TC, TT, f1, f2, f3Dim sd, W, S, EY, XX, YY'(由dem.dat输入实验数据XX = Array(-23.7, -10, 0, 10, 20, 30, 40) '注意下标的起点处理（加0)YY = Array(0.101, 0.174, 0.254, 0.359, 0.495, 0.662, 0.88) '注意下标的起点处理（加0)Print "直接读数据文件后计算"For i = 1 To mT(i) = XX(i)T(i) = 273.15 + T(i)P(i) = YY(i) * 7600Print T(i), P(i)Next iClose iA = Val(InputBox("A")) '指定初值B = Val(InputBox("B")) '指定初值C = Val(InputBox("C")) '指定初值1000 F = 0For i = 1 To mee = FNP(A, B, C, T(i), P(i))ee = ee ^ 2F = F + eeNext if1 = 0A1 = A + 0.000001 * A'print"A,A1=";A,A1For i = 1 To mee = FNP(A1, B, C, T(i), P(i))ee = ee ^ 2f1 = f1 + eeNext iTA = (f1 - F) / (0.000001 * A)'print f1,F,TA'A=val(inputbox("A"))f2 = 0B1 = B + 0.00001 * BFor i = 1 To mee = FNP(A, B1, C, T(i), P(i))ee = ee ^ 2f2 = f2 + eeNext iTB = (f2 - F) / (0.00001 * B)f3 = 0C1 = C + 0.00001 * CFor i = 1 To mee = FNP(A, B, C1, T(i), P(i))ee = ee ^ 2f3 = f3 + eeNext iTC = (f3 - F) / (0.00001 * C)TT = TA ^ 2 + TB ^ 2 + TC ^ 2TT = Sqr(TT)If TT > 0.001 ThenA = A - 0.005 * TAB = B - 1.5 * TBC = C - 0.001 * TCGoTo 1000ElseEnd IfPrintsd = 0For i = 1 To m '//计算绝对平均相对误差sd = sd + Abs(FNSD(A, B, C, T(i), P(i))) / P(i) Print FNSD(A, B, C, T(i), P(i))Next isd = sd / mPrintPrint "A,B,C="; A, B, CPrint "sd="; sd '//打印绝对平均相对误差End SubPublic Function FNP(A, B, C, T, P)FNP = (A - B / (T + C)) - Log(P)End FunctionPublic Function FNSD(A, B, C, T, P)FNSD = Exp(A - B / (T + C)) - PEnd Function五、实验结果截图六、实验后思考。