From 6640cdfac4c954a19a2e01988b34e7777bd9e39f Mon Sep 17 00:00:00 2001
From: brenda-br
Date: Tue, 3 Jan 2023 11:54:35 -0800
Subject: message box (unedit)

---
 Simulator/BinaryEnvelopes.mo | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 Simulator/BinaryEnvelopes.mo

(limited to 'Simulator/BinaryEnvelopes.mo')

diff --git a/Simulator/BinaryEnvelopes.mo b/Simulator/BinaryEnvelopes.mo
new file mode 100644
index 0000000..9eed56a
--- /dev/null
+++ b/Simulator/BinaryEnvelopes.mo
@@ -0,0 +1,19 @@
+package BinaryEnvelopes
+  model NRTL
+    parameter Integer NOC;  
+    parameter Integer data_points;
+    parameter Real BIP[NOC, NOC, 2] = Simulator.Files.Thermodynamic_Functions.BIPNRTL(NOC, comp.CAS);
+    parameter Simulator.Files.Chemsep_Database.General_Properties comp[NOC];
+    Simulator.Binary_Phase_Envelope.Binary_Phase_Envelope_NRTL.base points[data_points](each NOC = NOC, each comp = comp, each BIP = BIP);
+    Real x[data_points, NOC], y[data_points, NOC], 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;
-- 
cgit