应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 化学化工区 » 石油化工 » 石油软件 » [有奖活动]化工计算机应用经验交流
51/1返回列表
查看: 2020  |  回复: 20
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

darliu

荣誉版主 (职业作家)

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

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

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

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

希望大家踊跃参加活动。
回复此楼

» 猜你喜欢
1楼 2007-09-06 21:10:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

AMD芯片

银虫 (小有名气)
★
darliu(金币+1,VIP+0):谢谢参与！要是写的完整些，多加些分
matlab在化工模拟，计算方面用途是十分广泛的
赞一下(10人) 回复此楼
云带雨，浪迎风，钓翁回棹碧湾中。春酒香熟鲈鱼美。谁同醉？缆却扁舟蓬底睡。
5楼2007-09-08 12:07:31
已阅   回复此楼   关注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
电子试验记录本
高效，准确，方便。
实现无纸化实验室。
体会：
好！
赞一下(10人) 回复此楼
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的回帖

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
赞一下(10人) 回复此楼
给我一根棍子，我就能撬地球！^_^
4楼2007-09-08 11:44:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 21 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭