mirror of
https://github.com/CoolProp/CoolProp.git
synced 2026-01-11 06:58:00 -05:00
118 lines
4.2 KiB
Mathematica
118 lines
4.2 KiB
Mathematica
(* Content-type: application/vnd.wolfram.mathematica *)
|
|
|
|
(*** Wolfram Notebook File ***)
|
|
(* http://www.wolfram.com/nb *)
|
|
|
|
(* CreatedBy='Mathematica 9.0' *)
|
|
|
|
(*CacheID: 234*)
|
|
(* Internal cache information:
|
|
NotebookFileLineBreakTest
|
|
NotebookFileLineBreakTest
|
|
NotebookDataPosition[ 157, 7]
|
|
NotebookDataLength[ 4066, 108]
|
|
NotebookOptionsPosition[ 3606, 87]
|
|
NotebookOutlinePosition[ 3952, 102]
|
|
CellTagsIndexPosition[ 3909, 99]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
|
|
Cell[CellGroupData[{
|
|
Cell[BoxData[{
|
|
RowBox[{
|
|
RowBox[{"PropsSI", "=", " ",
|
|
RowBox[{"LibraryFunctionLoad", "[",
|
|
RowBox[{"\"\<CoolProp\>\"", ",", "\"\<PropsSI\>\"", ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
"UTF8String", ",", "UTF8String", ",", "Real", ",", "UTF8String", ",",
|
|
"Real", ",", "UTF8String"}], "}"}], ",", "Real"}], "]"}]}],
|
|
";"}], "\[IndentingNewLine]",
|
|
RowBox[{"PropsSI", "[",
|
|
RowBox[{
|
|
"\"\<T\>\"", ",", "\"\<P\>\"", ",", "101325", ",", "\"\<Q\>\"", ",", "1",
|
|
",", "\"\<Water\>\""}], "]"}], "\[IndentingNewLine]",
|
|
RowBox[{"LibraryFunctionUnload", "[", "PropsSI", "]"}]}], "Input",
|
|
CellChangeTimes->{{3.5975962701305647`*^9, 3.597596273924782*^9}, {
|
|
3.5975963268728104`*^9, 3.597596370765321*^9}, {3.597596413885787*^9,
|
|
3.597596447831729*^9}, {3.597596485780899*^9, 3.5975965035799174`*^9},
|
|
3.5975965729218836`*^9, {3.629071287196377*^9, 3.629071314962002*^9}, {
|
|
3.629071375805752*^9, 3.629071391805752*^9}, {3.629071633071377*^9,
|
|
3.629071633915127*^9}, {3.629072034399502*^9, 3.629072046962002*^9}, {
|
|
3.629072100196377*^9, 3.629072107680752*^9}, {3.629072359774502*^9,
|
|
3.629072373243252*^9}, {3.629072404696377*^9, 3.629072437821377*^9}, {
|
|
3.629072744133877*^9, 3.629072744696377*^9}, {3.629073005590908*^9,
|
|
3.629073025731533*^9}, {3.6290737478135643`*^9, 3.6290737487979393`*^9}}],
|
|
|
|
Cell[BoxData["373.1242958476879`"], "Output",
|
|
CellChangeTimes->{{3.5975965638133626`*^9, 3.597596574246959*^9},
|
|
3.5975966820841274`*^9, 3.5979454740346136`*^9, 3.597945533625022*^9,
|
|
3.629071315774502*^9, 3.629072017149502*^9, 3.629072048399502*^9,
|
|
3.629072107899502*^9, 3.629072361305752*^9, {3.629072420383877*^9,
|
|
3.629072462899502*^9}, {3.629073007278408*^9, 3.629073026778408*^9}, {
|
|
3.6290737409541893`*^9, 3.6290737497510643`*^9}}]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{
|
|
RowBox[{"HAPropsSI", "=", " ",
|
|
RowBox[{"LibraryFunctionLoad", "[",
|
|
RowBox[{"\"\<CoolProp\>\"", ",", "\"\<HAPropsSI\>\"", ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
"UTF8String", ",", "UTF8String", ",", "Real", ",", "UTF8String", ",",
|
|
"Real", ",", "UTF8String", ",", "Real"}], "}"}], ",", "Real"}],
|
|
"]"}]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{"HAPropsSI", "[",
|
|
RowBox[{
|
|
"\"\<W\>\"", ",", "\"\<T\>\"", ",", "300", ",", "\"\<P\>\"", ",", "101325",
|
|
",", "\"\<R\>\"", ",", "0.5"}], "]"}], "\[IndentingNewLine]",
|
|
RowBox[{"LibraryFunctionUnload", "[", "HAPropsSI", "]"}]}], "Input",
|
|
CellChangeTimes->{{3.597945273818162*^9, 3.597945373524865*^9},
|
|
3.5979455508320065`*^9, {3.629072044180752*^9, 3.629072083821377*^9}, {
|
|
3.629072119868252*^9, 3.629072144477627*^9}}],
|
|
|
|
Cell[BoxData["0.01109623184668821`"], "Output",
|
|
CellChangeTimes->{{3.5979455418264914`*^9, 3.5979455523070908`*^9}, {
|
|
3.629072050602627*^9, 3.629072084196377*^9}, {3.629072117633877*^9,
|
|
3.629072145087002*^9}, 3.6290737526573143`*^9}]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.597945508477584*^9, 3.597945508482584*^9}}]
|
|
},
|
|
WindowSize->{1280, 823},
|
|
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
|
|
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (December 4, 2014)",
|
|
StyleDefinitions->"Default.nb"
|
|
]
|
|
(* End of Notebook Content *)
|
|
|
|
(* Internal cache information *)
|
|
(*CellTagsOutline
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*CellTagsIndex
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*NotebookFileOutline
|
|
Notebook[{
|
|
Cell[CellGroupData[{
|
|
Cell[579, 22, 1344, 24, 72, "Input"],
|
|
Cell[1926, 48, 455, 6, 31, "Output"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[2418, 59, 833, 17, 72, "Input"],
|
|
Cell[3254, 78, 241, 3, 64, "Output"]
|
|
}, Open ]],
|
|
Cell[3510, 84, 92, 1, 31, "Input"]
|
|
}
|
|
]
|
|
*)
|
|
|
|
(* End of internal cache information *)
|