24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1506  |  回复: 20
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

darliu

荣誉版主 (职业作家)

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

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

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

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

希望大家踊跃参加活动。
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

skang

金虫 (小有名气)

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,"#######.#####"+"+"+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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 21 个回答

gsyya

铁杆木虫 (小有名气)

是的,我也支持!
2楼2007-09-07 17:44:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

babyvox550

铁杆木虫 (著名写手)

吃饭睡觉打豆豆!

★ ★ ★
darliu(金币+3,VIP+0):谢谢第一个参与
chemOffice 11.0
画分子式
chem Enotebook  11.0
电子试验记录本
高效,准确,方便。
实现无纸化实验室。
体会:
好!
http://emuch.net/bbs/viewthread.php?tid=1850645;http://emuch.net/bbs/viewthread.php?tid=1871183&fpage=1;http://emuch.net/bbs/viewthre
3楼2007-09-07 23:49:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

AMD芯片

银虫 (小有名气)


darliu(金币+1,VIP+0):谢谢参与!要是写的完整些,多加些分
matlab在化工模拟,计算方面用途是十分广泛的
云带雨,浪迎风,钓翁回棹碧湾中。春酒香熟鲈鱼美。谁同醉?缆却扁舟蓬底睡。
5楼2007-09-08 12:07:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085602化学工程268分蹲调剂 +8 月照花林。 2026-04-01 8/400 2026-04-01 22:08 by 无际的草原
[考研] 279求调剂 +7 莫xiao 2026-04-01 7/350 2026-04-01 22:05 by 客尔美德
[考研] 275求调剂 +12 waltzh 2026-04-01 12/600 2026-04-01 21:44 by chyhaha
[考研] 材料科学与工程调剂 +16 深V宿舍吧 2026-03-30 17/850 2026-04-01 21:00 by 赖春艳
[考研] 086502化学工程342求调剂 +7 阿姨复古不过 2026-03-27 7/350 2026-04-01 16:14 by yanflower7133
[考研] 0703一志愿南师大334求调剂 +4 seven7yu 2026-03-30 4/200 2026-04-01 16:10 by oooqiao
[考研] 08工科275分求调剂 +12 AaAa7420 2026-03-31 12/600 2026-04-01 15:45 by jp9609
[考研] 求调剂 +4 DADA怪 2026-03-31 4/200 2026-04-01 14:30 by ZXlzxl0425
[考研] 322求调剂 +4 熹僖XX 2026-03-31 4/200 2026-04-01 08:21 by JourneyLucky
[考研] 289求调剂 +7 BrightLL 2026-03-29 7/350 2026-03-31 22:05 by 544594351
[考研] 考研调剂 +9 小蜡新笔 2026-03-29 10/500 2026-03-31 19:52 by Dyhoer
[考研] 求化学调剂 +12 wulanna 2026-03-28 12/600 2026-03-31 16:38 by 690616278
[考研] 物理学调剂 +4 小羊36 2026-03-30 4/200 2026-03-31 16:16 by lishahe
[考研] 08工科,295,接受跨专业调剂 +6 lmnlzy 2026-03-30 6/300 2026-03-31 10:04 by cal0306
[考研] 085601一志愿西北工业大学初试346 +4 085601初试346 2026-03-30 4/200 2026-03-31 07:47 by jp9609
[考研] 085600 286分 材料求调剂 +11 麻辣鱿鱼 2026-03-27 12/600 2026-03-30 19:33 by Wang200018
[考研] 297求调剂 +17 田洪有 2026-03-26 18/900 2026-03-30 18:32 by nothing投稿中
[考研] 调剂考研 +3 王杰一 2026-03-29 3/150 2026-03-29 08:09 by fmesaito
[考研] 283求调剂 +3 A child 2026-03-28 3/150 2026-03-28 15:41 by ms629
[考研] 调剂 +3 李嘉图·S·路 2026-03-27 3/150 2026-03-27 11:19 by wangjy2002
信息提示
请填处理意见