testing convergence of setSat functions close to the critical point,

also see issue #16
thorade · May 2, 2013 · 456ed8e · 456ed8e
1 parent 01a9ee2
commit 456ed8e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Examples/Parameter/setSat_parameter.mo b/Examples/Parameter/setSat_parameter.mo
@@ -1,13 +1,13 @@
 within HelmholtzMedia.Examples.Parameter;
 model setSat_parameter
-  package Medium = HelmholtzFluids.Propane;
+  package Medium = HelmholtzFluids.HMDS;
 
   Medium.SaturationProperties sat;
   Medium.SaturationProperties sat_p;
   Medium.SaturationProperties sat_dl;
   Medium.SaturationProperties sat_dv;
 
-  parameter Medium.Temperature T_input= Tcrit - 1e-6;
+  parameter Medium.Temperature T_input= Tcrit - 0.1;
 
 protected
   constant Medium.Temperature Tmin=Medium.fluidLimits.TMIN;