| 查看: 1947 | 回复: 20 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
darliu荣誉版主 (职业作家)
|
[交流]
[有奖活动]化工计算机应用经验交流
|
||
|
“计算机与化工”系列活动之五 为了提高虫友们化工计算机应用水平，增进虫友们的计算机应用的经验交流，现举办化工计算机应用经验交流的有奖活动。 活动时间：至2007年10月底为止。 活动内容：化工计算机应用的所有领域的经验交流。 活动方式：跟帖说明化工计算机应用的专业应用问题、计算机应用过程、实现方式、应用结果或效果、应用体会等。 奖励方法：根据应用水平、论述清晰、表述完整等奖励1～5个金币。 希望大家踊跃参加活动。 |
回复此楼» 猜你喜欢
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有3人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有4人回复
aijunhao2002230
荣誉版主 (职业作家)
风中之神
- 应助: 0 (幼儿园)
- 贵宾: 1.25
- 金币: 8069.8
- 散金: 1140
- 红花: 3
- 帖子: 3667
- 在线: 251.2小时
- 虫号: 425641
- 注册: 2007-07-28
- 性别: GG
- 专业: 能源化工
- 管辖: 健康生活
16楼2007-09-14 16:37:07
2楼2007-09-07 17:44:30
babyvox550
铁杆木虫 (著名写手)
吃饭睡觉打豆豆！
- 应助: 0 (幼儿园)
- 金币: 5835.9
- 散金: 5
- 红花: 6
- 帖子: 1349
- 在线: 170.4小时
- 虫号: 416573
- 注册: 2007-06-30
- 专业: 合成药物化学
3楼2007-09-07 23:49:31
VB编程对化工的应用
★ ★ ★
darliu(金币+3,VIP+0):谢谢分享你的计算机应用经验。简单有效的线性回归程序，还有相关系数呢。
darliu(金币+3,VIP+0):谢谢分享你的计算机应用经验。简单有效的线性回归程序，还有相关系数呢。
|
计算机在化学中的应用除了化学反应求解外，应用范围还较广，如化学计量学、化学数据库、化学化工过程条件的优化、化学化工过程的计算机模拟、化学化工专家系统、计算机辅助化学教学、计算机在化学分析仪器等方面的应用等。 Visual Basic对于化工计算是很有作用的。 下面是我编写的关于化工计算中一元线性最小二乘法的简单代码 有兴趣者可以改变n值以增加数据处理数目。 Dim a!,b! Private Sub cmdLinR_Click() Dim x1!,y1!,x2!,y2!,xy!,Lxx!,Lyy!,Lxy!,r!,n% x1=0:y1=0:x2=0:y2=0:xy=0 n=txtNum.Text For i=1 To n x1=x1+txtX(i).Text:y1=y1+txtY(i).Text x2=x2+txtX(i).Text*txtX(i).Text:y2=y2+txtY(i).Text*txtY(i).Text xy=xy+txtX(i).Text*txtY(i).Text Next Lxx=x2-x1*x1/n Lyy=y2-y1*y1/n Lxy=xy-x1*y1/n b=Lxy/Lxx a=(y1-b*x1)/n r=Lxy/Sqr(Lxx*Lyy) lblLinREq.Caption="y="+Format$(a,"#######.#####"  +"+"+Format$(b,"#######.#####"+"x"lblRelation.Caption="相关系数"+Format$(r,"#######.#####" End Sub Private Sub cmdCalc-Click() txtyy.Text=a+b*txtxx.Text End Sub |
4楼2007-09-08 11:44:29
20