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

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

回复此楼