| 查看: 1823 | 回复: 20 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
darliu荣誉版主 (职业作家)
|
[交流]
[有奖活动]化工计算机应用经验交流
|
||
|
“计算机与化工”系列活动之五 为了提高虫友们化工计算机应用水平，增进虫友们的计算机应用的经验交流，现举办化工计算机应用经验交流的有奖活动。 活动时间：至2007年10月底为止。 活动内容：化工计算机应用的所有领域的经验交流。 活动方式：跟帖说明化工计算机应用的专业应用问题、计算机应用过程、实现方式、应用结果或效果、应用体会等。 奖励方法：根据应用水平、论述清晰、表述完整等奖励1～5个金币。 希望大家踊跃参加活动。 |
回复此楼» 猜你喜欢
filecode，4个jtjc了
已经有13人回复
-
今天基金会出结果吗？20260819
已经有10人回复
-
时间戳变了，能看出什么问题？
已经有15人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有121人回复
-
为什么余额宝的年化利率越来越低？主要原因有哪些？
已经有5人回复
-
今天放榜没戏了吧
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有6人回复
-
今天放榜吗？
已经有15人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有3人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
★ ★ ★ ★
darliu(金币+4,VIP+0):谢谢分享应用经验。你好全面呀！
darliu(金币+4,VIP+0):谢谢分享应用经验。你好全面呀！
|
我一般这么弄： Matlab做大一点的计算，如参数优化拟合，微分方程组等 Origin用于数据处理作图，还有比较简单的参数拟合，显函数计算（其实Excel也很强大） Tracer用于读取文献图中的数据 Visio用于作装置流程图 Autocad 设备设计 Chemwindows画分子式、方程式 Pro2可以做部分热力学计算，流程模拟（这个不用多说），画工艺流程简图，查一点基本的物性（一般去Webbook网站） 还有Polymath算微分方程最专业 偶尔用Femlab做做扩散问题 此外估算物性用MS或者找《化工数据导引》 |
9楼2007-09-09 13:14:40
2楼2007-09-07 17:44:30
babyvox550
铁杆木虫 (著名写手)
吃饭睡觉打豆豆！
- 应助: 0 (幼儿园)
- 金币: 5835.9
- 散金: 5
- 红花: 6
- 帖子: 1349
- 在线: 170.4小时
- 虫号: 416573
- 注册: 2007-06-30
- 专业: 合成药物化学
3楼2007-09-07 23:49:31
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
