| 查看: 1330 | 回复: 20 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
darliu荣誉版主 (职业作家)
|
[交流]
[有奖活动]化工计算机应用经验交流
|
||
|
“计算机与化工”系列活动之五 为了提高虫友们化工计算机应用水平，增进虫友们的计算机应用的经验交流，现举办化工计算机应用经验交流的有奖活动。 活动时间：至2007年10月底为止。 活动内容：化工计算机应用的所有领域的经验交流。 活动方式：跟帖说明化工计算机应用的专业应用问题、计算机应用过程、实现方式、应用结果或效果、应用体会等。 奖励方法：根据应用水平、论述清晰、表述完整等奖励1～5个金币。 希望大家踊跃参加活动。 |
回复此楼» 猜你喜欢
拟解决的关键科学问题还要不要写
已经有8人回复
-
最失望的一年
已经有12人回复
-
存款400万可以在学校里躺平吗
已经有29人回复
-
求推荐英文EI期刊
已经有5人回复
-
请教限项目规定
已经有4人回复
-
国自然申请面上模板最新2026版出了吗？
已经有20人回复
-
26申博
已经有3人回复
-
基金委咋了？2026年的指南还没有出来？
已经有10人回复
-
基金申报
已经有6人回复
-
疑惑？
已经有5人回复
hforever1102
木虫 (著名写手)
- 应助: 48 (小学生)
- 金币: 3404.6
- 红花: 3
- 帖子: 2327
- 在线: 44.9小时
- 虫号: 350661
- 注册: 2007-04-21
- 性别: GG
- 专业: 有机合成
12楼2007-09-10 10:11:52
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