| 查看: 1500 | 回复: 20 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
darliu荣誉版主 (职业作家)
|
[交流]
[有奖活动]化工计算机应用经验交流
|
||
|
“计算机与化工”系列活动之五 为了提高虫友们化工计算机应用水平，增进虫友们的计算机应用的经验交流，现举办化工计算机应用经验交流的有奖活动。 活动时间：至2007年10月底为止。 活动内容：化工计算机应用的所有领域的经验交流。 活动方式：跟帖说明化工计算机应用的专业应用问题、计算机应用过程、实现方式、应用结果或效果、应用体会等。 奖励方法：根据应用水平、论述清晰、表述完整等奖励1～5个金币。 希望大家踊跃参加活动。 |
回复此楼» 猜你喜欢
材料调剂
已经有12人回复
-
英一数一408，总分284，二战真诚求调剂
已经有14人回复
-
085410 一志愿211 22408分数359求调剂
已经有4人回复
-
271求调剂
已经有19人回复
-
385分 生物学（071000）求调剂
已经有3人回复
-
一志愿安徽大学计算机科学与技术学硕，331分求调剂
已经有3人回复
-
318求调剂，计算材料方向
已经有8人回复
-
291求调剂
已经有25人回复
-
一志愿北京科技大学085601材料工程英一数二初试总分335求调剂
已经有6人回复
-
一志愿北京科技，085601总分305求调剂
已经有10人回复
babyvox550
铁杆木虫 (著名写手)
吃饭睡觉打豆豆！
- 应助: 0 (幼儿园)
- 金币: 5835.9
- 散金: 5
- 红花: 6
- 帖子: 1349
- 在线: 170.4小时
- 虫号: 416573
- 注册: 2007-06-30
- 专业: 合成药物化学
3楼2007-09-07 23:49:31
2楼2007-09-07 17:44:30
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
5楼2007-09-08 12:07:31
