summaryrefslogtreecommitdiff
path: root/Simulator/Simulator/Files/Thermodynamic_Functions/PoyntingCF.mo
diff options
context:
space:
mode:
authorpravindalve2020-02-14 13:04:30 +0530
committerGitHub2020-02-14 13:04:30 +0530
commita80b6726f5f70d9a2ec1cbf361e7f607849343bf (patch)
tree333d34f58255003939e70b800d2cd57e40253b6b /Simulator/Simulator/Files/Thermodynamic_Functions/PoyntingCF.mo
parent8189de7d424964aac11b81c8297b7af7fcedd2b8 (diff)
parentdf141f35dccc6b21fcfa575707c6435a39d0002f (diff)
downloadChemical-Simulator-GUI-a80b6726f5f70d9a2ec1cbf361e7f607849343bf.tar.gz
Chemical-Simulator-GUI-a80b6726f5f70d9a2ec1cbf361e7f607849343bf.tar.bz2
Chemical-Simulator-GUI-a80b6726f5f70d9a2ec1cbf361e7f607849343bf.zip
Merge pull request #2 from pravindalve/master
Code restructured, some ui improvizations, undo redo implementation and Binary envelops utility
Diffstat (limited to 'Simulator/Simulator/Files/Thermodynamic_Functions/PoyntingCF.mo')
-rw-r--r--Simulator/Simulator/Files/Thermodynamic_Functions/PoyntingCF.mo26
1 files changed, 0 insertions, 26 deletions
diff --git a/Simulator/Simulator/Files/Thermodynamic_Functions/PoyntingCF.mo b/Simulator/Simulator/Files/Thermodynamic_Functions/PoyntingCF.mo
deleted file mode 100644
index ebcf1d4..0000000
--- a/Simulator/Simulator/Files/Thermodynamic_Functions/PoyntingCF.mo
+++ /dev/null
@@ -1,26 +0,0 @@
-within Simulator.Files.Thermodynamic_Functions;
-
-function PoyntingCF
- import Simulator.Files.Thermodynamic_Functions.*;
- input Integer NOC;
- input Real Pc[NOC], Tc[NOC], Racketparam[NOC], AF[NOC], MW[NOC];
- input Real T, P;
- input Real gamma[NOC], Psat[NOC], Density[NOC];
- parameter Integer Choice = 2;
- output Real PCF[NOC];
-protected
- Real vl[NOC];
-algorithm
- for i in 1:NOC loop
- if T < 0.98 * Tc[i] then
- vl[i] := 1 / Density[i];
- end if;
- end for;
- for i in 1:NOC loop
- if Choice == 1 then
- PCF[i] := exp(vl[i] * abs(P - Psat[i]) / (8314.47 * T));
- else
- PCF[i] := 1;
- end if;
- end for;
-end PoyntingCF;