24小时热门版块排行榜

返回列表

当前主题已经存档。

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

darliu

荣誉版主 (职业作家)

应助: 0 (幼儿园)
贵宾: 2.92
金币: 22714.4
红花: 14
帖子: 4022
在线: 12.5小时
虫号: 293348
注册: 2006-11-04
性别: GG
专业: 化工系统工程
管辖: 石油化工

[交流] [有奖活动]化工计算机应用经验交流

“计算机与化工”系列活动之五

为了提高虫友们化工计算机应用水平，增进虫友们的计算机应用的经验交流，现举办化工计算机应用经验交流的有奖活动。

活动时间：至2007年10月底为止。
活动内容：化工计算机应用的所有领域的经验交流。
活动方式：跟帖说明化工计算机应用的专业应用问题、计算机应用过程、实现方式、应用结果或效果、应用体会等。
奖励方法：根据应用水平、论述清晰、表述完整等奖励1～5个金币。

希望大家踊跃参加活动。

回复此楼

» 猜你喜欢

关于核磁制样已经有3人回复
郑州大学申博已经有6人回复

1楼 2007-09-06 21:10:43

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

skang

木虫 (小有名气)

应助: 0 (幼儿园)
金币: 1475.8
帖子: 83
在线: 10小时
虫号: 426217
注册: 2007-07-28
性别: GG
专业: 金属功能材料

VB编程对化工的应用

★ ★ ★
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,"#######.#####"