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-

Соседние файлы в папке Sol_Del2