Нестационарная теплопроводность / Магистры Термодинамическое подобие / Программы / Solkane / 2012 / Ref_Cal_7 / Sol_Excel / HelpExcE

SOLVAY FLUOR UND DERIVATE GmbH
SOLKANE® PROPERTIES MODULE	Excel/VBA

Installation3:

1.copy SOLKANE.xla (folder Sol_Excel) to the EXCEL-MAKRO-Ordner (e.g. C:\...\EXCEL\MAKRO) onto the hard disc of your computer.

2.Copy REF_CALC32.DLL and VAR_LIB32.DLL to the Windows system folder

”...Windows/System” (recommended) or the folder containing Excel.exe .

3.start MS Excel.

4.Open Add-In-Manager (Menu item ”EXTRAS/Add-In-Manager...”)

5.Check the ”Solkane” box. (If SOLKANE is not visible, SOLKANE.xla is probably located in the wrong folder.

6.Close Add-In manager. The functions of SOLKANE PROPERTIES MODULE are now available in your Excel sessions.

3 If the SOlKANE Properties Module was installed by the setup-program from the SOLKANE-CD-ROM, all relevant files are already installed in the folder Solkane2.0\ExcelAddInn.

-11-

SOLVAY FLUOR UND DERIVATE GmbH
SOLKANE® PROPERTIES MODULE								Excel/VBA
Appendix: Function declarations for the EXCEL-Add-In ”SOLKANE.XLA”
Nr.	Function		Ph		Declaration	Result		Input
							1.	2.		3.
0	Version			Function SOL_revision () As String		SOL_revisi	-	-		-
						on
1	Molar mass			Function SOL_molmas (ByVal Refr As String) As Double		SOL_molm	Refr	-		-
						as [g/mol]
2	Triple point temperature			Function SOL_freez (ByVal Refr As String) As Double;		SOL_freez	Refr	-		-
						[K]
3	Critical temperature			Function SOL_tc (ByVal Refr As String) As Double		SOL_tc [K]	Refr	-		-
4	Critical pressure			Function SOL_pc (ByVal Refr As String) As Double		SOL_pc	Refr	-		-
						[Pa]
5	Critical volume			Function SOL_vc (ByVal Refr As String) As Double		SOL_vc	Refr	-		-
						[m³/kg]
6	Bubble pressure p’(T)		B	Function SOL_p_b	(ByVal Refr As String, ByVal T As Double) As	SOL_p_b	Refr	T [K]		-
				Double		[Pa]
7	Dew pressure p”(T)		D	Function SOL_p_d (ByVal Refr As String, ByVal T As Double) As		SOL_p_d	Refr	T [K]		-
				Double		[Pa]
8	Bubble temperature t’(p)		B	Function SOL_t_b (ByVal Refr As String, ByVal p As Double) As		SOL_T_b	Refr	p [Pa]		-
				Double		[K]
9	Dew temperature t’(p)		D	Function SOL_t_d	(ByVal Refr As String, ByVal p As Double) As	SOL_T_d	Refr	p [Pa]		-
				Double		[K]
10	Spec. volume v’(T)		L	Function SOL_v_l	(ByVal Refr As String, ByVal T As Double) As	SOL_v_l	Refr	T [K]		-
				Double		[m³/kg]

-12-

SOLVAY FLUOR UND DERIVATE GmbH
SOLKANE® PROPERTIES MODULE								Excel/VBA
(Continued)
Nr.	Function		Ph		Declaration	Result		Input
							1.	2.	3.
11	Spec. volume v(T,p)		V	Function SOL_v_v (ByVal Refr As String, ByVal T As Double,		SOL_v_v	Refr	T [K]	p [Pa]
				ByVal p As Double) As Double		[m³/kg]
12	Pressure, vapour p(T,v)		V	Function SOL_p_v_v (ByVal Refr As String, ByVal T As Double,		SOL_p_v_v	Refr	T [K]	v [m³/kg]
				ByVal v As Double) As Double		[Pa]
13	Temperature T(p,v)		V	Function SOL_t_v_v (ByVal Refr As String, ByVal p As Double,		SOL_T_v_v	Refr	p [Pa]	v [m³/kg]
				ByVal v As Double) As Double		[K]
14	Spec. enthalpy h’(T)		L	Function SOL_h_l	(ByVal Refr As String, ByVal T As Double) As	SOL_h_l	Refr	T [K]	-
				Double		[J/kg]
15	Spec. enthalpy h(T,p)		V	Function SOL_h_v	(ByVal Refr As String, ByVal T As Double,	SOL_h_v	Refr	T [K]	p [Pa]
				ByVal p As Double) As Double		[J/kg]
16	Spec. enthalpy h(T,v)		V	Function SOL_h_v_v (ByVal Refr As String, ByVal T As Double,		SOL_h_v_v	Refr	T [K]	v [m³/kg]
				ByVal v As Double) As Double		[J/kg]
17	Spec. entropy s’(T)		L	Function SOL_s_l	(ByVal Refr As String, ByVal T As Double) As	SOL_s_l	Refr	T [K]	-
				Double		[J/kgK]
18	Spec. entropy s(T,p)		V	Function SOL_s_v	(ByVal Refr As String, ByVal T As Double,	SOL_s_v	Refr	T [K]	p [Pa]
				ByVal p As Double) As Double		[J/kgK]
19	Spec. entropy s(T,v)		V	Function SOL_s_v_v (ByVal Refr As String, ByVal T As Double,		SOL_s_v_v	Refr	T [K]	v [m³/kg]
				ByVal v As Double) As Double		[J/kgK]

-13-

SOLVAY FLUOR UND DERIVATE GmbH
SOLKANE® PROPERTIES MODULE								Excel/VBA
(Contiunued)
Nr.	Function		Ph		Declaration	Result		Input
							1.	2.	3.
20	Temperature T(p,s)		V	Function SOL_f_entro (ByVal Refr As String, ByVal p As Double,		SOL_f_entr	Refr	p [Pa]	s [J/kgK]
				ByVal s As Double) As Double		o [K]
21	Temperature T(p,h)		V	Function SOL_f_entha (ByVal Refr As String, ByVal p As Double,		SOL_f_enth	Refr	p [Pa]	h [J/kg]
				ByVal h As Double) As Double		a [K]
22	Spec. heat capacity cP’(T)		L	Function SOL_cp_l	(ByVal Refr As String, ByVal T As Double) As	SOL_cp_l	Refr	T [K]	-
				Double		[J/kgK]
23	Spec. heat capacity cV’(T,p)		V	Function SOL_cv	(ByVal Refr As String, ByVal T As Double,	SOL_cv	Refr	T [K]	p [Pa]
				ByVal p As Double) As Double		[J/kgK]
24	Spec. heat capacity cV’(T,v)		V	Function SOL_cv_v (ByVal Refr As String, ByVal T As Double,		SOL_cv_v	Refr	T [K]	v [m³/kg]
				ByVal v As Double) As Double		[J/kgK]
25	Spec. heat capacity cP’(T,p)		V	Function SOL_cp (ByVal Refr As String, ByVal T As Double,		SOL_cp	Refr	T [K]	p [Pa]
				ByVal p As Double) As Double		[J/kgK]
26	Spec. heat capacity cP’(T,v)		V	Function SOL_cp_v (ByVal Refr As String, ByVal T As Double,		SOL_cp_v	Refr	T [K]	v [m³/kg]
				ByVal v As Double) As Double		[J/kgK]
27	Surface tension σ(T)		L	Function SOL_sigma_l (ByVal Refr As String, ByVal T As Double)		SOL_sigma	Refr	T [K]	-
				As Double		_l [N/m]

-14-

SOLVAY FLUOR UND DERIVATE GmbH
SOLKANE® PROPERTIES MODULE									Excel/VBA
(Continued)
Nr.		Function		Ph		Declaration	Result		Input
								1.	2.	3.
28	Thermal conductivity λ(T)			L	Function SOL_lambda_l	(ByVal Refr As String, ByVal T As Double)	SOL_lambd	Refr	T [K]	-
					As Double		a_l
							[W/(m K)]
29	Thermal conductivity λ(T,p)			V	Function SOL_lambda_v	(ByVal Refr As String, ByVal T As Double,	SOL_lambd	Refr	T [K]	p [Pa]
					ByVal v As Double) As Double		a_v
							[W/m K]
30	Adiabatic exponent κ(T,p)			V	Function SOL_kappa (ByVal Refr As String, ByVal T As Double,		SOL_kappa	Refr	T [K]	p [Pa]
					ByVal p As Double) As Double		[-]
31	Adiabatic exponent κ(T,v)			V	Function SOL_kappa_v	(ByVal Refr As String, ByVal T As Double,	SOL_kappa	Refr	T [K]	v [m³/kg]
					ByVal v As Double) As Double		_v [-]
32	velocity of sound vs(T,p)			V	Function SOL_vs (ByVal Refr As String, ByVal T As Double,		SOL_vs	Refr	T [K]	p [Pa]
					ByVal p As Double) As Double		[m/s]
33	Dynamic viscosity η(T)			L	Function SOL_visc_l (ByVal Refr As String, ByVal T As Double)		SOL_visc_l	Refr	T [K]	-
					As Double		[Pa s]
34	Dynamic viscosity η(T,p)			V	Function SOL_visc_v (ByVal Refr As String, ByVal T As Double,		SOL_visc_v	Refr	T [K]	p [Pa]
					ByVal p As Double) As Double		[Pa s]
Legend:		Ph: Phase
		B: Bubble point			D: Dew point
		L: Liquid			V: Vapour phase

-15-

SOLVAY FLUOR UND DERIVATE GmbH
SOLKANE® PROPERTIES MODULE	Excel/VBA

Appendix: Module ImportVBA – Import declarations for VBA/ MS EXCEL-Add-In

' ----------------------------------------------------------------------
' Modul ImportVBA in Sol_Ex.xls	EXCEL-Version: EXCEL 7
' Version 1.0
' Solvay Fluor und Derivate GmbH	March 1999

'Sample for using functions of REF_CALC32.DLL

'in MS EXCEL as a Makro-Modul or as an Add-In.

'Implementation consists of two steps:

'1. Import of Functions from REF_CALC32.DLL

'2. development of fiunctions accessible from EXCEL by using the

'imported functions.

' ----------------------------------------------------------------------

' Step 1: Import of functions from REF_CALC32.DLL.

Option Explicit

Option Base 1

Private Declare Function S_revision Lib "REF_CALC32.DLL" _ (ByRef Version As String) As Boolean

Private Declare Function S_molmas Lib "REF_CALC32.DLL" _ (ByVal Refr As String, ByRef Molmas As Double) As Boolean

Private Declare Function S_freez Lib "REF_CALC32.DLL" _ (ByVal Refr As String, ByRef tfreez As Double) As Boolean

Private Declare Function S_tc Lib "REF_CALC32.DLL" _ (ByVal Refr As String, ByRef Tcrit As Double) As Boolean

Private Declare Function S_pc Lib "REF_CALC32.DLL" _ (ByVal Refr As String, ByRef Pcrit As Double) As Boolean

Private Declare Function S_vc Lib "REF_CALC32.DLL" _ (ByVal Refr As String, ByRef Vcrit As Double) As Boolean

Private Declare Function S_p_b	Lib "REF_CALC32.DLL"	_
(ByVal Refr As String, ByVal T	As Double, ByRef p_b	As Double) _
As Boolean
Private Declare Function S_t_b	Lib "REF_CALC32.DLL"	_
(ByVal Refr As String, ByVal p	As Double, ByRef T_b	As Double) _
As Boolean
Private Declare Function S_p_d	Lib "REF_CALC32.DLL"	_
(ByVal Refr As String, ByVal T	As Double, ByRef p_d	As Double) _
As Boolean
Private Declare Function S_t_d	Lib "REF_CALC32.DLL"	_
(ByVal Refr As String, ByVal p	As Double, ByRef T_d	As Double) _
As Boolean

-16-

SOLVAY FLUOR UND DERIVATE GmbH
SOLKANE® PROPERTIES MODULE		Excel/VBA
Private Declare Function	S_v_l	Lib "REF_CALC32.DLL" _
(ByVal Refr As String, ByVal T		As Double, ByRef v_l As Double) _
As Boolean
Private Declare Function	S_v_v	Lib "REF_CALC32.DLL" _
(ByVal Refr As String, ByVal T		As Double, ByVal p As Double, _
ByRef v_v As Double) As Boolean
Private Declare Function	S_p_v_v Lib "REF_CALC32.DLL" _
(ByVal Refr As String, ByVal T		As Double, ByVal v As Double, _
ByRef p_v_v As Double) As Boolean
Private Declare Function	S_t_v_v Lib "REF_CALC32.DLL" _
(ByVal Refr As String, ByVal p		As Double, ByVal v As Double, _
ByRef t_v As Double) As Boolean
Private Declare Function	S_h_l	Lib "REF_CALC32.DLL" _
(ByVal Refr As String, ByVal T		As Double, ByRef h_l As Double) _
As Boolean
Private Declare Function	S_h_v	Lib "REF_CALC32.DLL" _
(ByVal Refr As String, ByVal T		As Double, ByVal p As Double, _
ByRef h_v As Double) As Boolean
Private Declare Function	S_h_v_v Lib "REF_CALC32.DLL" _
(ByVal Refr As String, ByVal T		As Double, ByVal v As Double, _
ByRef h_v_v As Double) As Boolean
Private Declare Function	S_s_l	Lib "REF_CALC32.DLL" _
(ByVal Refr As String, ByVal T		As Double, ByRef s_l As Double) _
As Boolean
Private Declare Function	S_s_v	Lib "REF_CALC32.DLL" _
(ByVal Refr As String, ByVal T		As Double, ByVal p As Double, _
ByRef s_v As Double) As Boolean
Private Declare Function	S_s_v_v Lib "REF_CALC32.DLL" _
(ByVal Refr As String, ByVal T		As Double, ByVal v As Double, _
ByRef S_v_v As Double) As Boolean
Private Declare Function	S_f_entro Lib "REF_CALC32.DLL" _
(ByVal Refr As String, ByVal p		As Double, ByVal s As Double, _
ByRef f_entro As Double)	As Boolean

Private Declare Function S_f_entha Lib "REF_CALC32.DLL" _ (ByVal Refr As String, ByVal p As Double, ByVal h As Double, _ ByRef f_entha As Double) As Boolean

Private Declare Function			S_cp_l Lib "REF_CALC32.DLL"		_
(ByVal Refr	As String,	ByVal T As		Double, ByRef cp As Double) As Boolean
Private Declare Function			S_cv Lib	"REF_CALC32.DLL" _
(ByVal Refr	As String,	ByVal T As		Double, ByVal p As	Double, _
ByRef cv As	Double) As	Boolean
Private Declare Function			S_cv_v Lib "REF_CALC32.DLL"		_
(ByVal Refr	As String,	ByVal T As		Double, ByVal v As	Double, _
ByRef cv_v As Double) As			Boolean
Private Declare Function			S_cp Lib	"REF_CALC32.DLL" _
(ByVal Refr	As String,	ByVal T As		Double, ByVal p As	Double, _
ByRef cp As	Double) As	Boolean

-17-

SOLVAY FLUOR UND DERIVATE GmbH
SOLKANE® PROPERTIES MODULE							Excel/VBA
Private Declare			Function		S_cp_v Lib "REF_CALC32.DLL" _
(ByVal Refr	As	String,		ByVal		T As	Double, ByVal v As Double, _
ByRef cp As	Double) As			Boolean
Private Declare			Function		S_sigma_l Lib "REF_CALC32.DLL" _
(ByVal Refr	As	String,		ByVal		T As	Double, ByRef sigma_l As Double) _
As Boolean
Private Declare			Function		S_lambda_l Lib "REF_CALC32.DLL" _
(ByVal Refr	As	String,		ByVal		T As	Double, ByRef lambda_l As Double) _
As Boolean
Private Declare			Function		S_lambda_v Lib "REF_CALC32.DLL" _
(ByVal Refr	As	String,		ByVal		T As	Double, ByVal p As Double, _
ByRef lambda_v		As Double) As				Boolean
Private Declare			Function		S_kappa Lib "REF_CALC32.DLL" _
(ByVal Refr	As	String,		ByVal		T As	Double, ByVal p As Double, _
ByRef kappa	As	Double)		As Boolean
Private Declare			Function		S_kappa_v Lib "REF_CALC32.DLL" _
(ByVal Refr	As	String,		ByVal		T As	Double, ByVal v As Double, _
ByRef kappa_v As Double)					As Boolean
Private Declare			Function		S_vs Lib		"REF_CALC32.DLL" _
(ByVal Refr	As	String,		ByVal		T As	Double, ByVal p As Double, _
ByRef vs As	Double) As			Boolean
Private Declare			Function		S_visc_l		Lib "REF_CALC32.DLL" _
(ByVal Refr	As	String,		ByVal		T As	Double, ByRef visc_l As Double) _
As Boolean
Private Declare			Function		S_visc_v		Lib "REF_CALC32.DLL" _
(ByVal Refr	As	String,		ByVal		T As	Double, ByVal p As Double, _
ByRef visc_v As			Double) As Boolean

-18-

SOLVAY FLUOR UND DERIVATE GmbH
SOLKANE® PROPERTIES MODULE	Excel/VBA

'----------------------------------------------------------------------

'Step 2: development of EXCEL-accesible functions

'----------------------------------------------------------------------

Dim ReturnVal As Boolean

' Globale Variable

Function SOL_revision() As String

ReturnVal = S_revision(revision)

End Function

Function SOL_molmas(ByVal Refr As String) As Double

ReturnVal = S_molmas(Refr, molmas)

End Function

Function SOL_freez(ByVal Refr As String) As Double

ReturnVal = S_freez(Refr, freez)

End Function

Function SOL_tc(ByVal Refr As String) As Double

ReturnVal = S_tc(Refr, tc)

End Function

Function SOL_pc(ByVal Refr As String) As Double

ReturnVal = S_pc(Refr, pc)

End Function

Function SOL_vc(ByVal Refr As String) As Double

ReturnVal = S_vc(Refr, vc)

End Function

Function SOL_p_b(ByVal Refr As String, ByVal T As Double) As Double ReturnVal = S_p_b(Refr, T, p_b)

End Function

Function SOL_t_b(ByVal Refr As String, ByVal p As Double) As Double ReturnVal = S_t_b(Refr, p, t_b)

End Function

Function SOL_p_d(ByVal Refr As String, ByVal T As Double) As Double ReturnVal = S_p_d(Refr, T, p_d)

End Function

Function SOL_t_d(ByVal Refr As String, ByVal p As Double) As Double ReturnVal = S_t_d(Refr, p, t_d)

End Function

Function SOL_v_l(ByVal Refr As String, ByVal T As Double) As Double ReturnVal = S_v_l(Refr, T, v_l)

End Function

Function SOL_v_v(ByVal Refr As String, ByVal T As Double, _

ByVal p As Double) As Double

ReturnVal = S_v_v(Refr, T, p, v_v)

End Function

Function SOL_p_v_v(ByVal Refr As String, ByVal T As Double, _ ByVal v As Double) As Double

ReturnVal = S_p_v_v(Refr, T, v, p_v_v)

' In REF_CALC nicht implementiert.

End Function

Function SOL_t_v_v(ByVal Refr As String, ByVal p As Double, _ ByVal v As Double) As Double

ReturnVal = S_t_v_v(Refr, p, v, t_v_v)

-19-

SOLVAY FLUOR UND DERIVATE GmbH
SOLKANE® PROPERTIES MODULE	Excel/VBA
	' In REF_CALC nicht implementiert.
End Function

Function SOL_h_l(ByVal Refr As String, ByVal T As Double) As Double ReturnVal = S_h_l(Refr, T, h_l)

End Function

Function SOL_h_v(ByVal Refr As String, ByVal T As Double, _

ByVal p As Double) As Double

ReturnVal = S_h_v(Refr, T, p, h_v)

End Function

Function SOL_h_v_v(ByVal Refr As String, ByVal T As Double, _ ByVal v As Double) As Double

ReturnVal = S_h_v_v(Refr, T, v, h_v_v) End Function

Function SOL_s_l(ByVal Refr As String, ByVal T As Double) As Double ReturnVal = S_s_l(Refr, T, s_l)

End Function

Function SOL_s_v(ByVal Refr As String, ByVal T As Double, _

ByVal p As Double) As Double

ReturnVal = S_s_v(Refr, T, p, s_v)

End Function

Function SOL_s_v_v(ByVal Refr As String, ByVal T As Double, ByVal v As Double) As Double

ReturnVal = S_s_v_v(Refr, T, v, s_v_v) End Function

Function SOL_f_entro(ByVal Refr As String, ByVal p As Double, ByVal s As Double) As Double

ReturnVal = S_f_entro(Refr, p, s, f_entro) End Function

Function SOL_f_entha(ByVal Refr As String, ByVal p As Double, _ ByVal h As Double) As Double

ReturnVal = S_f_entha(Refr, p, h, f_entha) End Function

Function SOL_cp_l(ByVal Refr As String, ByVal T As Double) As Double ReturnVal = S_cp_l(Refr, T, cp_l)

End Function

Function SOL_cv(ByVal Refr As String, ByVal T As Double, ByVal p As Double) As Double

ReturnVal = S_cv(Refr, T, p, cv) End Function

Function SOL_cv_v(ByVal Refr As String, ByVal T As Double, ByVal v As Double) As Double

ReturnVal = S_cv_v(Refr, T, v, cv_v) End Function

Function SOL_cp(ByVal Refr As String, ByVal T As Double, _

ByVal p As Double) As Double

ReturnVal = S_cp(Refr, T, p, cp)

End Function

Function SOL_cp_v(ByVal Refr As String, ByVal T As Double, _ ByVal v As Double) As Double

ReturnVal = S_cp_v(Refr, T, v, cp_v) End Function

-20-