SOLVAY FLUOR UND DERIVATE GmbH |
|
SOLKANE PROPERTIES MODULE |
Delphi2-4 |
Appendix: Declaration of Functions for Borland/Inprise Delphi 2-4
Inde |
Function |
Ph |
Declaration |
Result |
|
Input |
|
x |
|
|
|
|
|
|
|
|
|
|
|
|
1. |
2. |
3. |
|
|
|
|
|
|
|
|
0 |
Version |
|
Function S_revision (var version: pChar) : WordBool; |
version |
- |
- |
- |
|
|
|
|
|
|
|
|
1 |
Molar mass |
|
Function S_molmas (ref: pChar; var M: double): WordBool; |
M [g/mol] |
ref |
- |
- |
|
|
|
|
|
|
|
|
2 |
Triple point temperature |
|
Function S_freez (ref :pChar; var tf : double): WordBool; |
tf [K] |
ref |
- |
- |
|
|
|
|
|
|
|
|
3 |
Critical temperature |
|
Function S_tc (ref: pChar; var tc: double): WordBool; |
tc [K] |
ref |
- |
- |
|
|
|
|
|
|
|
|
4 |
Critical pressure |
|
Function S_pc (ref: pChar; var pc: double): WordBool; |
pc [Pa] |
ref |
- |
- |
|
|
|
|
|
|
|
|
5 |
Critical volume |
|
Function S_vc (ref: pChar; var vc: double): WordBool; |
vc [m³/kg] |
ref |
- |
- |
|
|
|
|
|
|
|
|
6 |
Bubble pressure p’(T) |
B |
Function S_p_b (ref: pChar; T: double; var p_b: double): WordBool; |
p_b [Pa] |
ref |
T [K] |
- |
|
|
|
|
|
|
|
|
7 |
Dew pressure p”(T) |
D |
Function S_p_d (ref: pChar; T: double; var p_d: double): WordBool; |
p_d [Pa] |
ref |
T [K] |
- |
|
|
|
|
|
|
|
|
8 |
Bubble temperature t’(p) |
B |
Function S_t_b (ref: pChar; p: double; var T_b: double): WordBool; |
T_b [K] |
ref |
p [Pa] |
- |
|
|
|
|
|
|
|
|
9 |
Dew temperature t’(p) |
D |
Function S_t_d (ref: pChar; p: double; var T_d: double): WordBool; |
T_d [K] |
ref |
p [Pa] |
- |
|
|
|
|
|
|
|
|
10 |
Spec. volume v’(T) |
L |
Function S_v_l (ref: pChar; T: double; var v_l: double): WordBool; |
v_l [m³/kg] |
ref |
T [K] |
- |
|
|
|
|
|
|
|
|
11 |
Spec. volume v(T,p) |
V |
Function S_v_v (ref: pChar; T,p: double; var v_v: double): |
v_v [m³/kg] |
ref |
T [K] |
p [Pa] |
|
|
|
WordBool; |
|
|
|
|
|
|
|
|
|
|
|
|
12 |
Pressure, vapour p(T,v) |
V |
Function S_p_v_v (ref: pChar; T,v: double; var p_v: double): |
p_v [Pa] |
ref |
T [K] |
v [m³/kg] |
|
|
|
WordBool; |
|
|
|
|
|
|
|
|
|
|
|
|
13 |
Temperature T(p,v) |
V |
Function S_t_v_v (ref: pChar; p,v: double; var T_v: double): |
T_v [K] |
ref |
p [Pa] |
v [m³/kg] |
|
|
|
WordBool; |
|
|
|
|
|
|
|
|
|
|
|
|
-11-
SOLVAY FLUOR UND DERIVATE GmbH |
|
SOLKANE PROPERTIES MODULE |
Delphi2-4 |
(Continued)
Inde |
Function |
Ph |
Declaration |
Result |
|
Input |
|
x |
|
|
|
|
|
|
|
|
|
|
|
|
1. |
2. |
3. |
|
|
|
|
|
|
|
|
14 |
Spec. enthalpy h’(T) |
L |
Function S_h_l (ref: pChar; T: double; var h_l: double): WordBool; |
h_l [J/kg] |
ref |
T [K] |
- |
|
|
|
|
|
|
|
|
15 |
Spec. enthalpy h(T,p) |
V |
Function S_h_v (ref: pChar; T,p : double; var h_v: double): WordBool; |
h_v [J/kg] |
ref |
T [K] |
p [Pa] |
|
|
|
|
|
|
|
|
16 |
Spec. enthalpy h(T,v) |
V |
Function S_h_v_v (ref: pChar; T,v : double; var h_v: double): |
h_v [J/kg] |
ref |
T [K] |
v [m³/kg] |
|
|
|
WordBool; |
|
|
|
|
|
|
|
|
|
|
|
|
17 |
Spec. entropy s’(T) |
L |
Function S_s_l (ref: pChar; T : double; var s_l: double): WordBool; |
s_l [J/kgK] |
ref |
T [K] |
- |
|
|
|
|
|
|
|
|
18 |
Spec. entropy s(T,p) |
V |
Function S_s_v (ref: pChar; T,p : double; var s_v: double): WordBool; |
s_v [J/kgK] |
ref |
T [K] |
p [Pa] |
|
|
|
|
|
|
|
|
19 |
Spec. entropy s(T,v) |
V |
Function S_s_v_v (ref: pChar; T,v : double; var s_v: double): |
s_v [J/kgK] |
ref |
T [K] |
v [m³/kg] |
|
|
|
WordBool; |
|
|
|
|
|
|
|
|
|
|
|
|
20 |
Temperature T(p,s) |
V |
Function S_f_entro (ref: pChar; p,s : double; var f_entro: double): |
f_entro [K] |
ref |
p [Pa] |
s [J/kgK] |
|
|
|
WordBool; |
|
|
|
|
|
|
|
|
|
|
|
|
21 |
Temperature T(p,h) |
V |
Function S_f_entha (ref: pChar; p,h : double; var f_entha: double): |
f_entha [K] |
ref |
p [Pa] |
h [J/kg] |
|
|
|
WordBool; |
|
|
|
|
|
|
|
|
|
|
|
|
22 |
Spec. heat capacity cP’(T) |
L |
Function S_cp_l (ref: pChar; T : double; var cp: double): WordBool; |
cp [J/kgK] |
ref |
T [K] |
- |
|
|
|
|
|
|
|
|
23 |
Spec. heat capacity cV’(T,p) |
V |
Function S_cv (ref: pChar; T,p : double; var cv: double): WordBool; |
cv [J/kgK] |
ref |
T [K] |
p [Pa] |
|
|
|
|
|
|
|
|
24 |
Spec. heat capacity cV’(T,v) |
V |
Function S_cv_v (ref: pChar; T,v : double; var cv: double): WordBool; |
cv [J/kgK] |
ref |
T [K] |
v [m³/kg] |
|
|
|
|
|
|
|
|
25 |
Spec. heat capacity cP’(T,p) |
V |
Function S_cp (ref: pChar; T,p : double; var cp: double): WordBool; |
cp [J/kgK] |
ref |
T [K] |
p [Pa] |
|
|
|
|
|
|
|
|
26 |
Spec. heat capacity cP’(T,v) |
V |
Function S_cp_v (ref: pChar; T,v : double; var cp: double): WordBool; |
cp [J/kgK] |
ref |
T [K] |
v [m³/kg] |
|
|
|
|
|
|
|
|
-12-
SOLVAY FLUOR UND DERIVATE GmbH |
|
SOLKANE PROPERTIES MODULE |
Delphi2-4 |
(Continued)
Inde |
|
Function |
Ph |
Declaration |
Result |
|
Input |
|
x |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1. |
2. |
3. |
|
|
|
|
|
|
|
|
|
27 |
Surface tension σ(T) |
L |
Function S_sigma_l (ref: pChar; T: double; var sig_l: double): |
sig_l |
ref |
T [K] |
- |
|
|
|
|
|
WordBool; |
[N/m] |
|
|
|
|
|
|
|
|
|
|
|
|
28 |
Thermal conductivity λ(T) |
L |
Function S_lambda_l (ref: pChar; T: double; var lam_l: double): |
lam_l |
ref |
T [K] |
- |
|
|
|
|
|
WordBool; |
[W/m K] |
|
|
|
|
|
|
|
|
|
|
|
|
29 |
Thermal conductivity λ(T,p) |
V |
Function S_lambda_v (ref: pChar; T,p: double; var lam_v: double): |
lam_v |
ref |
T [K] |
p [Pa] |
|
|
|
|
|
WordBool; |
[W/m K] |
|
|
|
|
|
|
|
|
|
|
|
|
30 |
Adiabatic exponent κ(T,p) |
V |
Function S_kappa (ref: pChar; T,p : double; var kap_v: double): |
kap_v [-] |
ref |
T [K] |
p [Pa] |
|
|
|
|
|
WordBool; |
|
|
|
|
|
|
|
|
|
|
|
|
|
31 |
Adiabatic exponent κ(T,v) |
V |
Function S_kappa_v (ref: pChar; T,v : double; var kap_v: double): |
kap_v [-] |
ref |
T [K] |
v [m³/kg] |
|
|
|
|
|
WordBool; |
|
|
|
|
|
|
|
|
|
|
|
|
|
32 |
velocity of sound vs(T,p) |
V |
Function S_vs (ref: pChar; T,p : double; var vs: double): WordBool; |
vs [m/s] |
ref |
T [K] |
p [Pa] |
|
|
|
|
|
|
|
|
|
|
33 |
Dynamic viscosity η(T) |
L |
Function S_visc_l (ref: pChar; T: double; var visc_l: double): |
visc_l |
ref |
T [K] |
- |
|
|
|
|
|
WordBool; |
[Pa s] |
|
|
|
|
|
|
|
|
|
|
|
|
34 |
Dynamic viscosity η(T,p) |
V |
Function S_visc_v (ref: pChar; T,p: double; var visc_v: double): |
visc_v |
ref |
T [K] |
p [Pa] |
|
|
|
|
|
WordBool; |
[Pa s] |
|
|
|
|
|
|
|
|
|
|
|
|
Legend: |
Ph: Phase |
|
|
|
|
|
|
|
|
|
B: Bubble point |
D: Dew point |
|
|
|
|
|
|
|
L: Liquid |
V: Vapour phase |
|
|
|
|
-13-
SOLVAY FLUOR UND DERIVATE GmbH |
|
SOLKANE® PROPERTIES MODULE |
Delphi2-4 |
Appendix: Module ImportD.pas – Import declarations for Borland/Inprise Delphi 2-4
{ +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
} |
|
{ Unit ImportD.pas |
Compiler: Delphi2 |
} |
{ Version 1.0 |
|
} |
{ Solvay Fluor und Derivate GmbH |
12.03.1999 } |
|
{ |
|
} |
{ Declarations (Borland Delphi2-4) for import of thermophysical functions |
} |
|
{ Property functions from the library REF_CALC32.DLL. |
|
} |
{ +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
} |
unit ImportD;
interface
{0}
Function S_revision (var version: pChar) : WordBool ; stdcall; external 'ref_calc32.dll';
{1} |
|
Function S_molmas |
(ref :pChar; var mm : double): WordBool; |
|
stdcall; external 'ref_calc32.dll'; |
{2} |
|
Function S_freez |
(ref :pChar; var Tf : double): WordBool; |
|
stdcall; external 'ref_calc32.dll'; |
{3} |
|
Function S_tc |
(ref :pChar; var Tc : double): Boolean; |
|
stdcall; external 'ref_calc32.dll'; |
{4} |
|
Function S_pc |
(ref :pChar; var pc : double): WordBool; |
|
stdcall; external 'ref_calc32.dll'; |
{5} |
|
Function S_vc |
(ref :pChar; var vc : double): WordBool; |
|
stdcall; external 'ref_calc32.dll'; |
{6} |
|
Function S_p_b |
(ref: pChar; T: double; var p_b: double): WordBool; |
|
stdcall; external 'ref_calc32.dll'; |
{7} |
|
Function S_p_d |
(ref: pChar; T: double; var p_d: double): WordBool; |
|
stdcall; external 'ref_calc32.dll'; |
{8} |
|
Function S_t_b |
(ref: pChar; p: double; var T_b: double): WordBool; |
|
stdcall; external 'ref_calc32.dll'; |
{9} |
|
Function S_t_d |
(ref: pChar; p: double; var T_d: double): WordBool; |
|
stdcall; external 'ref_calc32.dll'; |
{10} |
|
Function S_v_l |
(ref: pChar; T: double; var v_l: double): WordBool; |
|
stdcall; external 'ref_calc32.dll'; |
{11} |
|
Function S_v_v |
(ref: pChar; T,p: double; var v_v: double):WordBool; |
|
stdcall; external 'ref_calc32.dll'; |
{12} |
|
Function S_p_v_v |
(ref: pChar; T,v: double; var p_v: double): WordBool; |
|
stdcall; external 'ref_calc32.dll'; |
{13} |
|
Function S_t_v_v |
(ref: pChar; p,v: double; var T_v: double): WordBool; |
|
stdcall; external 'ref_calc32.dll'; |
{14} |
|
Function S_h_l |
(ref: pChar; T : double; var h_L: double): WordBool; |
|
stdcall; external 'ref_calc32.dll'; |
{15} |
|
-15-
SOLVAY FLUOR UND DERIVATE GmbH |
|
|
SOLKANE® PROPERTIES MODULE |
Delphi2-4 |
|
Function S_h_v |
(ref: pChar; T,p: |
double; var h_v: double):WordBool; |
|
stdcall; external |
'ref_calc32.dll'; |
{16} |
|
|
Function S_h_v_v |
(ref: pChar; T,v: double; var h_v: double):WordBool; |
|
|
stdcall; external |
'ref_calc32.dll'; |
{17} |
|
|
Function S_s_l |
(ref: pChar; T : double; var s_l: double): WordBool; |
|
|
stdcall; external |
'ref_calc32.dll'; |
{18} |
|
|
Function S_s_v |
(ref: pChar; T,p: double; var s_v: double):WordBool; |
|
|
stdcall; external 'ref_calc32.dll'; |
|
{19} |
|
|
Function S_s_v_v |
(ref: pChar; T,v: double; var s_v: double):WordBool; |
|
|
stdcall; external 'ref_calc32.dll'; |
|
{20} |
|
|
Function S_f_entro |
(ref: pChar; p,s: double; var f_entro : double): |
|
|
WordBool; stdcall; external 'ref_calc32.dll'; |
|
{21} |
|
|
Function S_f_entha |
(ref: pChar; p,h : double; var f_entha: double): |
|
|
WordBool; stdcall; external 'ref_calc32.dll'; |
|
{22} |
|
|
Function S_cp_l |
(ref: pChar; T : double; var cp: double): WordBool; |
|
|
stdcall; external 'ref_calc32.dll'; |
|
{23} |
|
|
Function S_cv |
(ref: pChar; T,p : double; var cv: double):WordBool; |
|
|
stdcall; external 'ref_calc32.dll'; |
|
{24} |
|
|
Function S_cv_v |
(ref: pChar; T,v : double; var cv: double):WordBool; |
|
|
stdcall; external 'ref_calc32.dll'; |
|
{25} |
|
|
Function S_cp |
(ref: pChar; T,p : double; var cp: double):WordBool; |
|
|
stdcall; external 'ref_calc32.dll'; |
|
{26} |
|
|
Function S_cp_v |
(ref: pChar; T,v : double; var cp: double):WordBool; |
|
|
stdcall; external 'ref_calc32.dll'; |
|
{27} |
|
|
Function S_sigma_l |
(ref: pChar; T: double; var sig_l: double):WordBool; |
|
|
stdcall; external 'ref_calc32.dll'; |
|
{28} |
|
|
Function S_lambda_l (ref: pChar; T: double; var lam_l: double):WordBool; stdcall; external 'ref_calc32.dll';
{29}
Function S_lambda_v (ref: pChar; T,p : double; var lam_v: double): WordBool; stdcall; external 'ref_calc32.dll';
{30} |
|
Function S_kappa |
(ref: pChar; T,p : double; var kap: double): |
|
WordBool; stdcall; external 'ref_calc32.dll'; |
{31} |
|
Function S_kappa_v |
(ref: pChar; T,v : double; var kap: double): |
|
WordBool; stdcall; external 'ref_calc32.dll'; |
{32} |
|
Function S_vs |
(ref: pChar; T,p : double; var vs: double): |
|
WordBool; stdcall; external 'ref_calc32.dll'; |
{33} |
|
Function S_visc_l |
(ref: pChar; T: double; var visc_l: double): |
|
WordBool; stdcall; external 'ref_calc32.dll'; |
-16-
SOLVAY FLUOR UND DERIVATE GmbH |
|
SOLKANE® PROPERTIES MODULE |
Delphi2-4 |
{34}
Function S_visc_v (ref: pChar; T,p : double; var visc_v: double): WordBool; stdcall; external 'ref_calc32.dll';
implementation
begin end.
-17-