| ²é¿´: 663 | »Ø¸´: 0 | ||
lajiiwang½ð³æ (СÓÐÃûÆø)
|
[ÇóÖú]
R22ÖÆÀä¼ÁµÄÖÊÁ¿·ÖÊýºÍĦ¶û·ÖÊý²»ÊǶ¼Ó¦¸ÃµÈÓÚ1 Âð£¿
|
|
R22µÄÖÊÁ¿·ÖÊýΪ1£¬µ÷ÓÃRefpropµÄXMOLE(zkg,z,wm),ΪɶµÃµ½½á¹û ZKG,Z,WM 1.0000 0.0000 86.4680 ΪɶĦ¶û·ÖÊýΪ0£¿ Çë¸ßÊÖÃǰï°ïæ c Units are K, kPa, mol/dm^3, mole fraction, J/mol, J/mol-K, m/s c uPa-s, W/m-K, N/m program test50 implicit double precision (a-h,o-z,l) implicit integer (i-k,m,n) parameter (ncmax=1) !max number of components in mixture dimension zkg(ncmax) character hrf*3, herr*255 character*255 hf(ncmax),hfmix c...Call SETUP to initialize the program and set the pure fluid component name c...For a mixture, use the following setup instead of the lines above. i=1 hf(1)='..\fluids\R22.FLD' hfmix='..\fluids\HMX.BNC' hrf='DEF' call SETUP (i,hf,hfmix,hrf,ierr,herr) if (ierr.ne.0) write (*,*) herr c To input mass fraction of composition zkg=1.0d0 c Converts mass fraction to mole fraction call XMOLE(zkg,z,wm) write (*,100) 'ZKG,Z,WM ',zkg,z,wm 100 format (1x,a22,5f11.4) end |
» ²ÂÄãϲ»¶
081700£¬311£¬Çóµ÷¼Á
ÒѾÓÐ18È˻ظ´
081700ѧ˶£¬323·Ö£¬Ò»Ö¾Ô¸Öйúº£Ñó´óѧÇóµ÷¼ÁѧУ
ÒѾÓÐ17È˻ظ´
085600²ÄÁÏÓ뻯¹¤301·ÖÇóµ÷¼ÁԺУ
ÒѾÓÐ21È˻ظ´
»¯¹¤Ñ§Ë¶ 285Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
0703µ÷¼Á
ÒѾÓÐ18È˻ظ´
0702ÎïÀíѧѧ˶299Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
304Çóµ÷¼Á£¨085602£¬¹ýËļ¶£¬Ò»Ö¾Ô¸985£©
ÒѾÓÐ19È˻ظ´
085600²ÄÁÏÓ뻯¹¤×¨Ë¶329 Çóµ÷¼Á
ÒѾÓÐ17È˻ظ´
Çóµ÷¼Á
ÒѾÓÐ10È˻ظ´
ÉúÎïÓëÒ½Ò©273Çóµ÷¼Á
ÒѾÓÐ10È˻ظ´















»Ø¸´´ËÂ¥