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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 其它 » 【求助】求助这个程序是用什么编的，如何运行///
91/1返回列表
查看: 717  |  回复: 8
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

ddingqqing

木虫 (小有名气)

[交流] 【求助】求助这个程序是用什么编的，如何运行///

BEGIN{
componente="NH4NO3"
R=0
n[2]=2;t[n[2]]=0;w[n[2]]=54.2
n[3]=3;t[n[3]]=5;w[n[3]]=57
n[4]=4;t[n[4]]=10;w[n[4]]=60
n[5]=5;t[n[5]]=15;w[n[5]]=62.8
n[6]=6;t[n[6]]=20;w[n[6]]=65.5
n[7]=7;t[n[7]]=25;w[n[7]]=68.2
n[8]=8;t[n[8]]=30;w[n[8]]=70.4
n[9]=9;t[n[9]]=32.3;w[n[9]]=71.0
n[10]=10;t[n[10]]=35;w[n[10]]=72.3
n[11]=11;t[n[11]]=40;w[n[11]]=74.6
n[12]=12;t[n[12]]=45;w[n[12]]=76.3
n[13]=13;t[n[13]]=50;w[n[13]]=77.8
n[14]=14;t[n[14]]=55;w[n[14]]=79.3
n[15]=15;t[n[15]]=60;w[n[15]]=80.7
n[16]=16;t[n[16]]=65;w[n[16]]=82
n[17]=17;t[n[17]]=70;w[n[17]]=83.3
n[18]=18;t[n[18]]=75;w[n[18]]=84.6
n[19]=19;t[n[19]]=80;w[n[19]]=85.7
n[20]=20;t[n[20]]=85;w[n[20]]=86.9
n[21]=21;t[n[21]]=90;w[n[21]]=88.2
n[22]=22;t[n[22]]=95;w[n[22]]=89.3
n[23]=23;t[n[23]]=100;w[n[23]]=90.3
}
{
if($1==componente&&$2=="r"
{
ra0=$3
ra1=$4-63-
pruefe1=1
}
if($1==componente&&$2=="dataE"
{
ea0=$3
ea1=$4
pruefe2=1
}
if($1==componente&&$2=="molmasse"
{
molmasse=$3
pruefe3=1
}
}
END{
if(pruefe1!=1)
print"Die parameter,r,von",componente,"befinde
if(pruefe2!=1)
print"Die parameter,e,von",componente,"befinde
if(pruefe3!=1)
print"Die Molmasse von",componente,"befindet s
for(i in n)
{
T=t[n]+273.15
W=w[n]
r=ra0+ra1*0.001*T
E=(ea0+ea1*0.01*T)*1000
x=W/molmasse/(W/molmasse+(100-W)/18)
H=1-x
A=x
ca=exp(-1*E/8.314/T)
a1=ca-1
b1=-ca*(H+r*A)
c1=ca*r*A*H
X1=(-b1+sqrt(b1^2-4*a1*c1))/(2*a1)X2=(-b1-sqrt(b1^2-4*a1*c1))/(2*a1)
X=X2
lnaA=r*log((r*A-X)/(r*A))
aW=(H-X)/H
lnk=lnaA+R*log(aW)
print 1/T,lnk,x,H,r,X,lnaA,aW,T
}
}#end END
回复此楼

» 猜你喜欢

» 抢金币啦！回帖就可以得到:

查看全部散金贴
1楼 2011-02-27 10:12:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tjpm

金虫 (正式写手)
★ ★
ddingqqing(金币+5): 2011-02-28 09:22:50
余泽成(金币+2): 谢谢参与应助，欢迎常来程序语言版！ 2011-02-28 20:11:33
awk写的
回复此楼
2楼2011-02-27 22:38:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ddingqqing

木虫 (小有名气)
引用回帖:
Originally posted by tjpm at 2011-02-27 22:38:17:
awk写的

AWK我搜索的结果不合适每个语句前面都要以AWK开头么。。。我比照例子好像只有begin是符合的。。。呵呵。。我完全不懂这个，依葫芦画瓢见笑了//
赞一下 回复此楼
3楼2011-02-28 09:22:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xioooli

金虫 (小有名气)
★ ★ ★
ddingqqing(金币+5): 2011-02-28 09:49:57
余泽成(金币+3): 谢谢参与应助！ 2011-02-28 20:11:20
引用回帖:
Originally posted by ddingqqing at 2011-02-28 09:22:35:
AWK我搜索的结果不合适每个语句前面都要以AWK开头么。。。我比照例子好像只有begin是符合的。。。呵呵。。我完全不懂这个，依葫芦画瓢见笑了//

在命令行里面当然要每行都以awk开头咯，上面这个是 awk 脚本，你将它保存为文件比如 xxx.awk, 然後这样运行：
CODE:
awk -f xxx.awk your_data_file

就可以了。
赞一下(1人) 回复此楼
4楼2011-02-28 09:26:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ddingqqing

木虫 (小有名气)
引用回帖:
Originally posted by xioooli at 2011-02-28 09:26:49:
在命令行里面当然要每行都以awk开头咯，上面这个是 awk 脚本，你将它保存为文件比如 xxx.awk, 然後这样运行：
CODE:
awk -f xxx.awk your_data_file

就可以了。

这样的啊。。。有点专业了咧。。。是不是这个东西只能在UNIX系统下面运行啊。。。我只在百度百科上面了解到一点。。
赞一下 回复此楼
5楼2011-02-28 09:50:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★ ★
ddingqqing(金币+5): 2011-02-28 10:27:07
余泽成(金币+2): 谢谢参与应助！ 2011-02-28 20:11:11
awk 也有在 windows 下可用的版本……
赞一下(1人) 回复此楼
6楼2011-02-28 10:14:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ddingqqing

木虫 (小有名气)
引用回帖:
Originally posted by snoopyzhao at 2011-02-28 10:14:56:
awk 也有在 windows 下可用的版本……

哇。。。强人真多。。。我找找。。。很激动。。。
赞一下 回复此楼
7楼2011-02-28 10:27:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ddingqqing

木虫 (小有名气)
引用回帖:
Originally posted by ddingqqing at 2011-02-28 10:27:25:
哇。。。强人真多。。。我找找。。。很激动。。。

尴尬了.....看来我要开贴求软件了.....
赞一下 回复此楼
8楼2011-02-28 10:45:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xioooli

金虫 (小有名气)
★ ★
ddingqqing(金币+5): 谢谢哈。。。 2011-02-28 16:24:21
余泽成(金币+2): 谢谢参与应助！ 2011-02-28 20:11:00
http://unxutils.sourceforge.net/ 这里有很多unix工具的windows移植，只是awk要用gawk替换。
赞一下(1人) 回复此楼
9楼2011-02-28 12:07:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 ddingqqing 的主题更新
91/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 本人考085602 化学工程 专硕 +9 不知道叫什么！ 2026-03-15 10/500 2026-03-16 10:04 by houyaoxu
[考研] 304求调剂 +4 素年祭语 2026-03-15 4/200 2026-03-16 09:42 by 闲人终南山
[考研] 321求调剂 +4 大米饭！ 2026-03-15 4/200 2026-03-16 08:41 by Linda Hu
[考研] 调剂 +8 调剂的考研学生 2026-03-09 8/400 2026-03-15 22:14 by Winj1e
[考研] 材料专硕326求调剂 +4 墨煜姒莘 2026-03-15 4/200 2026-03-15 11:02 by dyw
[考研] 311求调剂 +3 26研0 2026-03-15 3/150 2026-03-15 09:12 by JourneyLucky
[考研] 材料工程327求调剂 +3 xiaohe12w 2026-03-11 3/150 2026-03-14 20:20 by ms629
[考研] 289求调剂 +4 这么名字咋样 2026-03-14 6/300 2026-03-14 18:58 by userper
[考研] 学硕285求调剂 +13 Wisjxn 2026-03-12 46/2300 2026-03-14 10:33 by JourneyLucky
[考研] 一志愿华中农业大学071010，总分三百二,求调剂 +3 困困困困坤坤 2026-03-10 3/150 2026-03-14 00:35 by JourneyLucky
[考研] 318求调剂 +3 李新光 2026-03-10 3/150 2026-03-14 00:21 by JourneyLucky
[考研] 一志愿中科院，化学方向，295求调剂 +4 一氧二氮 2026-03-11 4/200 2026-03-13 22:35 by JourneyLucky
[考研] 土木第一志愿276求调剂，科研和技能十分丰富，求新兴方向的导师收留 +3 土木小天才 2026-03-12 3/150 2026-03-13 15:01 by JourneyLucky
[考研] 0817化学工程与技术考研312分调剂 +3 T123 tt 2026-03-12 3/150 2026-03-13 10:49 by houyaoxu
[考研] 材料专硕274一志愿陕西师范大学求调剂 +4 薛云鹏 2026-03-13 4/200 2026-03-13 10:40 by 学员8dgXkO
[考研] 求调剂 资源与环境 285 +3 未名考生 2026-03-10 3/150 2026-03-13 10:31 by houyaoxu
[考研] 工科0856专硕化学工程269能调剂吗 +10 我想读研11 2026-03-10 10/500 2026-03-13 10:14 by Yuyi.
[考研] 333求调剂 +3 152697 2026-03-12 4/200 2026-03-13 07:08 by Iveryant
[考博] 读博申请 +5 感dd 2026-03-10 7/350 2026-03-11 17:02 by QGZDSYS
[考研] 求调剂材料专硕293 +6 段_(:з」∠)_ 2026-03-10 6/300 2026-03-10 18:22 by ms629
信息提示
关闭
请填处理意见
关闭