24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1501  |  回复: 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的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料调剂 +12 一样YWY 2026-04-01 12/600 2026-04-02 00:21 by 百秒光年
[考研] 805600专硕材料与化工348分求调剂 +4 上学啦! 2026-04-01 4/200 2026-04-01 21:10 by lijunpoly
[考研] 290求调剂 +5 dfffsar 2026-03-29 5/250 2026-04-01 19:45 by 6781022
[考研] 286求调剂 +5 lim0922 2026-03-26 5/250 2026-04-01 19:08 by 客尔美德
[考研] 353求调剂 +4 拉钩不许变 2026-04-01 4/200 2026-04-01 18:10 by 记事本2026
[考研] 324求调剂 +10 hanamiko 2026-03-26 12/600 2026-04-01 16:59 by oooqiao
[考研] 0703求调剂 +4 zizimo 2026-03-31 4/200 2026-04-01 16:04 by yanflower7133
[考研] 求调剂 +5 零八# 2026-03-27 5/250 2026-04-01 14:40 by yulian1987
[考研] 262求调剂 +9 励志一定发文章 2026-03-31 10/500 2026-04-01 12:22 by sunshine0013
[考研] 安徽大学专硕生物与医药专业(086000)324分,英语已过四六级,六级521,求调剂 +10 美味可乐鸡翅 2026-03-26 12/600 2026-04-01 11:17 by syh9288
[考研] 一志愿北京科技大学085601材料工程英一数二初试总分335求调剂 +5 双马尾痞老板2 2026-03-31 5/250 2026-04-01 09:04 by oooqiao
[考博] 26申博 +4 加油冲啊! 2026-03-26 4/200 2026-03-31 22:42 by greychen00
[考研] 物理学调剂 +4 小羊36 2026-03-30 4/200 2026-03-31 16:16 by lishahe
[考研] 286求调剂 +6 Faune 2026-03-30 6/300 2026-03-31 14:37 by jp9609
[考研] 本科211安全工程,初试290分,求调剂 +3 2719846834 2026-03-28 3/150 2026-03-31 13:52 by 热情沙漠
[考研] 085601一志愿西北工业大学初试346 +4 085601初试346 2026-03-30 4/200 2026-03-31 07:47 by jp9609
[考研] 哈尔滨工业大学材料与化工专硕378求调剂 +3 塔比乌斯 2026-03-30 3/150 2026-03-30 22:55 by 无际的草原
[考研] 0703化学求调剂 +6 丹青奶盖 2026-03-26 8/400 2026-03-30 18:33 by 探123
[考研] 297求调剂 +17 田洪有 2026-03-26 18/900 2026-03-30 18:32 by nothing投稿中
[考研] 292求调剂 +13 是妍子也是研子 2026-03-30 13/650 2026-03-30 18:01 by 小徐0109
信息提示
请填处理意见