版塊導(dǎo)航: 正在加載中...

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門版塊排行榜

返回列表

popsino

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 8
帖子: 5
在線: 8.2小時(shí)
蟲號(hào): 2656537
注冊(cè): 2013-09-15
專業(yè): 工程熱物理相關(guān)交叉領(lǐng)域

[求助] FORTRAN調(diào)用NIST的REFPROP計(jì)算物性參數(shù)，程序只能成功調(diào)用一次，不知道哪里出了問題

大家好，目前做有機(jī)工質(zhì)的超音速噴嘴設(shè)計(jì)，物性參數(shù)計(jì)算通過(guò)調(diào)用NIST的REFPROP實(shí)現(xiàn),初始狀態(tài)給定總溫，總壓，需要編一個(gè)子程序，基于等熵流動(dòng)假設(shè)，給出一個(gè)速度V，程序可以計(jì)算靜壓、靜溫等其他參數(shù)， h=hs-0.5*velocity**2  ，s=ss，調(diào)用了 HSFLSH 語(yǔ)句，
call HSFLSH (h,s,z,t,p,D,Dl,Dv,x,y,q,e,cv,cp,w,ierr,herr)，調(diào)用時(shí)第一次可以正確計(jì)算，但是第二次調(diào)用就計(jì)算結(jié)果有問題，參數(shù)傳遞也檢查過(guò)幾遍了，一直不知道是什么原因？若是手動(dòng)查表的話，是可以查出結(jié)果的。請(qǐng)大神幫忙指點(diǎn)，可能是那部分的問題？謝謝了，新來(lái)的，只有這么多金幣了。

X Y 速度分量U 速度分量V 馬赫數(shù) 合速度流動(dòng)角靜壓密度靜溫
0.106 0 137.9 0 0.9998 137.9 0 46.1823 0.0193 293.2
0.1058 0.0526 137.9 0 0.3097 137.9 0 0 0 3094.2
0.1049 0.1053 138 0 0.3099 138 0 0 0 3094.2
0.1034 0.1579 138.1 0 0.3102 138.1 0 0 0 3094.2
0.1013 0.2105 138.3 0 0.3106 138.3 0 0 0 3094.2
0.0987 0.2632 138.5 0 0.3111 138.5 0 0 0 3094.2
0.0955 0.3158 138.8 0 0.3118 138.8 0 0 0 3094.2

手動(dòng)查表結(jié)果：

　 X Y 合速度靜焓(kJ/kg) 熵(kJ/kg-K) 靜壓(MPa) 密度(kg/m?) 靜溫(K) 音速(m/s)
1 0.106 0 137.9 422.22 1.8197 0.046041 2.5837 293.15 137.88
2 0.1058 0.0526 137.9 422.22 1.8197 0.046041 2.5837 293.15 137.88
3 0.1049 0.1053 138 422.12 1.8197 0.045775 2.5697 293.02 137.86
4 0.1034 0.1579 138.1 422.02 1.8197 0.045521 2.5563 292.89 137.84
5 0.1013 0.2105 138.3 421.81 1.8197 0.044988 2.5282 292.63 137.8
6 0.0987 0.2632 138.5 421.60 1.8197 0.04446 2.5004 292.37 137.76
7 0.0955 0.3158 138.8 421.29 1.8197 0.043691 2.4599 291.98 137.7

SUBROUTINE THERMO2 (velocity,hs,ss,pressure,density,temperature,sonicspeed,mach)
   implicit double precision (a-h,o-z)
   implicit integer (i-k,m,n)
   parameter (ncmax=20) !max number of components in mixture
   dimension x(ncmax),xliq(ncmax),xvap(ncmax),f(ncmax)
   character hrf*3, herr*255
   character*255 hf(ncmax),hfmix
   REAL,INTENT(IN):: velocity
   REAL,INTENT(IN):: hs
   REAL,INTENT(IN):: ss
   REAL,INTENT(OUT):

ressure
REAL,INTENT(OUT):

ensity
   REAL,INTENT(OUT)::temperature
   REAL,INTENT(OUT)::sonicspeed
   REAL,INTENT(OUT)::mach
黃色底紋為初始化固定格式
   i=1
   hf(1)=\'R245FA.fld\'
   hfmix=\'hmx.bnc\'
   hrf=\'DEF\'
   call SETUP (i,hf,hfmix,hrf,ierr,herr)
   if (ierr.ne.0) write (*,*) herr
以下部分為主要計(jì)算過(guò)程，只使用了一個(gè)函數(shù)HSFLSH ，
   h=hs-0.5*velocity**2
   s=ss
   call HSFLSH (h,s,z,t,p,D,Dl,Dv,x,y,q,e,cv,cp,w,ierr,herr)
   temperature  = t
   sonicspeed = w
   mach       = velocity/sonicspeed
   pressure    = p
   Density    = D
   RETURN
   END

回復(fù)此樓

» 猜你喜歡

2026年循環(huán)經(jīng)濟(jì)功能材料國(guó)際會(huì)議（ICFMCE 2026）已經(jīng)有0人回復(fù)
2026年第五屆電氣、電子與信息工程國(guó)際會(huì)議（ISEEIE 2026）已經(jīng)有0人回復(fù)
物理學(xué)I論文潤(rùn)色/翻譯怎么收費(fèi)? 已經(jīng)有289人回復(fù)
哈爾濱理工大學(xué)物理系招收物理學(xué)考研調(diào)劑已經(jīng)有5人回復(fù)
0702一志愿吉大B區(qū)求調(diào)劑已經(jīng)有5人回復(fù)
求調(diào)劑已經(jīng)有0人回復(fù)
0702一志愿吉大B區(qū)求調(diào)劑有論文已經(jīng)有0人回復(fù)
請(qǐng)問還有沒有用Latex寫文章的小伙伴們？已經(jīng)有0人回復(fù)
光學(xué)工程學(xué)碩調(diào)劑信息已經(jīng)有30人回復(fù)
歡迎加入課題組已經(jīng)有0人回復(fù)
散金幣，求好運(yùn)，祝面上順利！已經(jīng)有56人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

如何用C++6.0調(diào)用refprop物性查詢軟件已經(jīng)有9人回復(fù)
求Nist軟件：Refprop9 已經(jīng)有23人回復(fù)

1樓 2015-01-27 20:03:59

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

joywataru

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 237
帖子: 7
在線: 49分鐘
蟲號(hào): 3351455
注冊(cè): 2014-08-04

謝謝，新人看著有用！

贊一下

回復(fù)此樓

2樓2015-07-21 16:40:20

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

woaiwojia456

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 7.9
紅花: 1
帖子: 42
在線: 27.6小時(shí)
蟲號(hào): 3621572
注冊(cè): 2014-12-31
性別: MM
專業(yè): 熱力學(xué)

CALL TPFLSH (T,P,z,D,Dl,Dv,x,y,q,e,h,S,cv,cp,w,ierr,herr)? ? ? ??

發(fā)自小木蟲Android客戶端

贊一下

回復(fù)此樓

3樓2016-04-22 10:43:56

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

woaiwojia456

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 7.9
紅花: 1
帖子: 42
在線: 27.6小時(shí)
蟲號(hào): 3621572
注冊(cè): 2014-12-31
性別: MM
專業(yè): 熱力學(xué)

LZ，這個(gè)函數(shù)是實(shí)現(xiàn)什么的？

發(fā)自小木蟲Android客戶端

贊一下

回復(fù)此樓

4樓2016-04-22 10:44:54

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

woaiwojia456

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 7.9
紅花: 1
帖子: 42
在線: 27.6小時(shí)
蟲號(hào): 3621572
注冊(cè): 2014-12-31
性別: MM
專業(yè): 熱力學(xué)

lz，您是在fluent里模擬的嗎？我想編譯refprop自帶的cpp例子，總是出錯(cuò)，還望不吝賜教。

發(fā)自小木蟲Android客戶端

贊一下(1人)

回復(fù)此樓

5樓2016-05-25 11:26:46

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zzezc

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 11
帖子: 8
在線: 3.1小時(shí)
蟲號(hào): 9885376
注冊(cè): 2018-08-15
專業(yè): 人工智能與知識(shí)工程

引用回帖:

4樓: Originally posted by woaiwojia456 at 2016-04-22 10:44:54
LZ，這個(gè)函數(shù)是實(shí)現(xiàn)什么的？

同問怎么在C++里面調(diào)用refprop呀，大佬你現(xiàn)在回了嘛

贊一下

回復(fù)此樓

6樓2018-10-12 10:11:34

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 popsino 的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 0703化學(xué)調(diào)劑 +8	妮妮ninicgb 2026-03-15	12/600	2026-03-19 05:55 by anny19840123
[考研] 材料工程專碩調(diào)劑 +5	204818@lcx 2026-03-17	6/300	2026-03-18 22:55 by 204818@lcx
[考研] 材料專業(yè)求調(diào)劑 +5	hanamiko 2026-03-18	5/250	2026-03-18 20:19 by 星空星月
[考研] 材料專碩306英一數(shù)二 +10	z1z2z3879 2026-03-16	13/650	2026-03-18 14:20 by 007_lilei
[考研] 0703化學(xué)求調(diào)劑總分331 +3	ZY-05 2026-03-13	3/150	2026-03-18 10:58 by macy2011
[考研] 0703化學(xué)調(diào)劑 +3	妮妮ninicgb 2026-03-17	3/150	2026-03-18 10:29 by macy2011
[考研] 334求調(diào)劑 +3	志存高遠(yuǎn)意在機(jī)?/a> 2026-03-16	3/150	2026-03-18 08:34 by lm4875102
[考研] 296求調(diào)劑 +5	大口吃飯身體健 2026-03-13	5/250	2026-03-17 21:05 by 不惑可樂
[考研] 268求調(diào)劑 +7	好運(yùn)連綿不絕 2026-03-12	8/400	2026-03-17 20:28 by xilongliang
[考研] 332求調(diào)劑 +6	Zz版 2026-03-13	6/300	2026-03-17 17:03 by ruiyingmiao
[考研] 333求調(diào)劑 +3	文思客 2026-03-16	7/350	2026-03-16 18:21 by 文思客
[考研] 321求調(diào)劑 +5	大米飯！ 2026-03-15	5/250	2026-03-16 16:33 by houyaoxu
[考研] 070300化學(xué)學(xué)碩求調(diào)劑 +6	太想進(jìn)步了0608 2026-03-16	6/300	2026-03-16 16:13 by kykm678
[考博] 東華理工大學(xué)化材專業(yè)26屆碩士博士申請(qǐng) +6	zlingli 2026-03-13	6/300	2026-03-15 20:00 by ryzcf
[考研] 0856專碩279求調(diào)劑 +5	加油加油！? 2026-03-15	5/250	2026-03-15 11:58 by 2020015
[考研] 22408總分284求調(diào)劑 +3	InAspic 2026-03-13	3/150	2026-03-15 11:10 by zhq0425
[考研] 工科278分求調(diào)劑 +5	周慢熱啊 2026-03-12	7/350	2026-03-13 15:49 by JourneyLucky
[考研] 274求調(diào)劑 +3	S.H1 2026-03-12	3/150	2026-03-13 15:15 by JourneyLucky
[考研] 材料301分求調(diào)劑 +5	Liyouyumairs 2026-03-12	5/250	2026-03-13 14:42 by JourneyLucky
[考研] 308求調(diào)劑 +3	是Lupa啊 2026-03-12	3/150	2026-03-13 14:30 by 求調(diào)劑zz

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時(shí)熱門版塊排行榜

popsino

[求助] FORTRAN調(diào)用NIST的REFPROP計(jì)算物性參數(shù)，程序只能成功調(diào)用一次，不知道哪里出了問題

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

joywataru

woaiwojia456

woaiwojia456

woaiwojia456

zzezc

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

[求助] FORTRAN調(diào)用NIST的REFPROP計(jì)算物性參數(shù)，程序只能成功調(diào)用一次，不知道哪里出了問題

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助: