Нестационарная теплопроводность / Магистры Термодинамическое подобие / Программы / Solkane / 2012 / Installation Refcalc 7.1 / Sol_Excel / HilfExcD
.pdfSOLVAY 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: +49-(0)511-857-2653
Telefax: +49-(0)511-857-2166
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: +49-(0)511-857-2653
Telefax: +49-(0)511-857-2166
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-