VB调用Uewasp.DLL的问题

xpxpmimi

Rem 已知压力(MPa)，求对应饱和温度(℃)

Public Declare Sub P2T Lib "UEwasp.dll" (ByVal P As Double, ByRef T As Double, ByRef Range As Long)


这里“Range”是什么参数？怎么选取？

uesoft

Range是传出的参数，指出了水蒸气状态属于哪个区间。如IFC67公式，若Range=1，则表示区域为: 区间1; 低于350℃的未饱和水。

SWStatus67[1] = _T("区域为: 区间1; 低于350℃的未饱和水");
SWStatus67[2] =_T("区域为：区间2; 过热蒸汽");
SWStatus67[3] = _T("区域为：区间3; 超 临 界");
SWStatus67[4] =_T("区域为：区间4; 亚临界未饱和水");
SWStatus67[5] =_T("区域为：区间5; 亚临界湿蒸汽");
SWStatus67[6] =_T("区域为：区间6; 低于350℃的湿蒸汽");
SWStatus67[7] =_T("区域为：区间7; 临 界 点");

SWStatus97[1] =_T("区域为：区间1; 低于350℃的未饱和水");
SWStatus97[2] =_T("区域为：区间2; 过热蒸汽");
SWStatus97[3] =_T("区域为：区间3; 临界点附近水和蒸汽");
SWStatus97[4] =_T("区域为：区间4; 湿蒸汽或饱和线");
SWStatus97[5] = _T("区域为：区间5; 高温低压蒸汽");

xpxpmimi

谢谢回复。
另外，这个调用是怎么区分“IAPWS-IF97”或“IFC67”的呢？

uesoft

怎么区分使用哪个公式，是“IAPWS-IF97”还是“IFC67”?(参见http://www.uesoft.com/forum.php?mod=viewthread&tid=1070&extra=page%3D1)

使用VB函数调用SETSTD_WASP(int STDID)设置公式：

SETSTD_WASP(67)设置IFC67公式,

SETSTD_WASP(97)设置IAPWS-IF97公式,

使用VB函数调用GETSTD_WASP(ByRef STDID as Long)获得公式：

GETSTD_WASP(STDID)，若STDID=67，则为IFC67公式；若STDID=97，IAPWS-IF97公式。

[此贴子已经被作者于2007-2-9 12:01:31编辑过]

xpxpmimi

谢谢，这下作计算编程方便多了。

那个两点线型差值如果改为拉格朗日差值会更实用。。。：）