Магистры Термодинамическое подобие / Программы / Solkane / 2012 / Installation Refcalc 7.1 / Sol_Excel / HilfExcD

SOLVAY FLUOR GmbH

Excel/VBA

ReturnVal = S_t_d(Refr, p, t_d)

End Function

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

End Function

Function X_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 X_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 X_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)

' In REF_CALC nicht implementiert.

End Function

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

End Function

Function X_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 X_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 X_s_l(ByVal Refr As String, ByVal T As Double) As Double ReturnVal = S_s_l(Refr, T, s_l)

End Function

Function X_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 X_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 X_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 X_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 X_cp_l(ByVal Refr As String, ByVal T As Double) As Double

-21-

SOLVAY FLUOR GmbH

Excel/VBA

ReturnVal = S_cp_l(Refr, T, cp_l)

End Function

Function X_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 X_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 X_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 X_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

Function X_sigma_l(ByVal Refr As String, ByVal T As Double) As Double ReturnVal = S_sigma_l(Refr, T, sigma_l)

End Function

Function X_lambda_l(ByVal Refr As String, ByVal T As Double) As Double ReturnVal = S_lambda_l(Refr, T, lambda_l)

End Function

Function X_lambda_v(ByVal Refr As String, ByVal T As Double, _ ByVal p As Double) As Double

ReturnVal = S_lambda_v(Refr, T, p, lambda_v) End Function

Function X_kappa(ByVal Refr As String, ByVal T As Double, _ ByVal p As Double) As Double

ReturnVal = S_kappa(Refr, T, p, kappa) End Function

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

ReturnVal = S_kappa_v(Refr, T, v, kappa_v) End Function

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

ByVal p As Double) As Double

ReturnVal = S_vs(Refr, T, p, vs)

End Function

Function X_visc_l(ByVal Refr As String, ByVal T As Double) As Double ReturnVal = S_visc_l(Refr, T, visc_l)

End Function

Function X_visc_v(ByVal Refr As String, ByVal T As Double, _ ByVal p As Double) As Double

ReturnVal = S_visc_v(Refr, T, p, visc_v) End Function

-22-

SOLVAY FLUOR GmbH

Excel/VBA

For further information please contact our technical specialists:

Solvay Fluor GmbH

Postfach 220

D-30002 Hannover

Telephone: [phone]

Telefax: [phone]

Disclaimer:

All statements, information and data given herein are believed to be accurate and reliable but are presented without guarantee, warranty or responsibility of any kind, express or implied. Statements or suggestions concerning possible use of our products are made without representation or warranty that any such use is free of patent infringement, and are not recommendations to infringe any patent. The user should not assume that all safety measures are indicated, or that other measures may not be required.

Die Spezialisten der Solvay-Anwendungstechnik stehen Ihnen für weitere Informationen zur Verfügung:

Solvay Fluor und Derivate GmbH

Postfach 220

D-30002 Hannover

Telephone: [phone]

Telefax: [phone]

Anmerkung:

Nach bestem Wissen wird angenommen, dass alle in diesem Dokument aufgeführten Angaben, Informationen und Daten zuverlässig und genau sind. Sie werden jedoch ohne jegliche wie auch immer geartete, ausdrückliche oder implizite, Garantie, Haftung oder Gewährleistung abgegeben. Anmerkungen oder Vorschläge bezüglich eines möglichen Gebrauchs unserer Produkte beinhalten oder gewährleisten nicht, dass ein solcher Gebrauch kein Patent verletzt, und sind keine Empfehlungen, irgendein Patent zu verletzen. Der Benutzer sollte nicht voraussetzen, dass alle Sicherheitsmassnahmen angegeben sind, oder dass andere Maßnahmen nicht erforderlich sind.

-23-