1 files changed, 23 insertions, 0 deletions
diff --git a/Simulator/BinaryEnvelopes.mo b/Simulator/BinaryEnvelopes.mo
new file mode 100644
index 0000000..590888d
--- /dev/null
+++ b/Simulator/BinaryEnvelopes.mo
@@ -0,0 +1,23 @@
+package BinaryEnvelopes
+  model NRTL
+    parameter Integer Nc;  
+    parameter Integer data_points;
+    parameter Real BIP[Nc, Nc, 2] = Simulator.Files.ThermodynamicFunctions.BIPNRTL(Nc, comp.CAS);
+    parameter Simulator.Files.ChemsepDatabase.GeneralProperties comp[Nc];
+    Simulator.BinaryPhaseEnvelope.BinaryPhaseEnvelopeNRTL.base points[data_points](each Nc = Nc, each comp = comp, each BIP = BIP);
+    Real x[data_points, Nc], y[data_points, Nc], P[data_points], T[data_points];
+  equation
+    points[:].x = x;
+    points[:].y = y;
+    points[:].P = P;
+    points[:].T = T;
+    for i in 1:data_points loop
+      x[i, 1] = 0 + (i - 1) * 1/(data_points-1);
+    end for; 
+  end NRTL;
+
+
+
+
+
+end BinaryEnvelopes;