v6.4.8 hotfix (fixed liquid-liquid extraction column not working)

DanWBR · Apr 12, 2021 · 2089423 · 2089423
1 parent 10a8058
commit 2089423
Show file tree

Hide file tree

Showing 6 changed files with 69 additions and 3 deletions.
diff --git a/DWSIM.SharedClasses/Patrons/activepatrons.txt b/DWSIM.SharedClasses/Patrons/activepatrons.txt
@@ -20,6 +20,7 @@ Christian Hornhofer
 Christian Jordan
 David 
 David Whitlock
+Deryck Coetzer
 Diego A. Acosta
 Domenico Marchese
 Don Harrold
@@ -59,6 +60,7 @@ Luiza Martins
 Marcelo Miranda
 Marcos Silva
 Martin Heiser
+Matt Hogg
 Michael Papantoniou
 Mikhail Evtushenko
 Nikita Petrosyan

diff --git a/DWSIM.UnitOperations/Editing Forms/EditingForm_Column.vb b/DWSIM.UnitOperations/Editing Forms/EditingForm_Column.vb
@@ -238,6 +238,10 @@ Public Class EditingForm_Column
  Case ColType.DistillationColumn
  gridResults.Rows.Add(New Object() {.FlowSheet.GetTranslatedString("DCCondenserDuty"), su.Converter.ConvertFromSI(units.heatflow, .CondenserDuty).ToString(nf), units.heatflow})
  gridResults.Rows.Add(New Object() {.FlowSheet.GetTranslatedString("DCReboilerDuty"), su.Converter.ConvertFromSI(units.heatflow, .ReboilerDuty).ToString(nf), units.heatflow})
+ gridResults.Rows.Add(New Object() { .FlowSheet.GetTranslatedString("CondenserSpecValue"), su.Converter.ConvertFromSI(.Specs("C").SpecUnit, .Specs("C").SpecValue).ToString(nf), .Specs("C").SpecUnit})
+ gridResults.Rows.Add(New Object() { .FlowSheet.GetTranslatedString("CondenserCalcValue"), su.Converter.ConvertFromSI(.Specs("C").SpecUnit, .Specs("C").CalculatedValue).ToString(nf), .Specs("C").SpecUnit})
+ gridResults.Rows.Add(New Object() { .FlowSheet.GetTranslatedString("ReboilerSpecValue"), su.Converter.ConvertFromSI(.Specs("R").SpecUnit, .Specs("R").SpecValue).ToString(nf), .Specs("R").SpecUnit})
+ gridResults.Rows.Add(New Object() { .FlowSheet.GetTranslatedString("ReboilerCalcValue"), su.Converter.ConvertFromSI(.Specs("R").SpecUnit, .Specs("R").CalculatedValue).ToString(nf), .Specs("R").SpecUnit})
  Case ColType.AbsorptionColumn
  Case ColType.ReboiledAbsorber
  gridResults.Rows.Add(New Object() {.FlowSheet.GetTranslatedString("DCReboilerDuty"), su.Converter.ConvertFromSI(units.heatflow, .ReboilerDuty).ToString(nf), units.heatflow})

diff --git a/DWSIM.UnitOperations/Unit Operations/RigorousColumn.vb b/DWSIM.UnitOperations/Unit Operations/RigorousColumn.vb
@@ -3511,6 +3511,7 @@ Namespace UnitOperations
  End If
  End If
  ElseIf TypeOf Me Is AbsorptionColumn Then
+ SetColumnSolver(New SolvingMethods.BurninghamOttoMethod())
  If llextractor Then
  'run all trial compositions until it solves
  Dim ntrials = L1trials.Count
@@ -3541,7 +3542,6 @@ Namespace UnitOperations
  Next
  If ex0 IsNot Nothing Then Throw ex0
  Else
- SetColumnSolver(New SolvingMethods.BurninghamOttoMethod())
  so = Solver.SolveColumn(inputdata)
  End If
  End If

diff --git a/DWSIM/Languages/DWSIM.en.resx b/DWSIM/Languages/DWSIM.en.resx
@@ -955,7 +955,7 @@
  <value>Edit Connections</value>
  </data>
  <data name="DCELIts" xml:space="preserve">
- <value>External loop iterations</value>
+ <value>Iterations Taken</value>
  </data>
  <data name="DCELTol" xml:space="preserve">
  <value>External Loop</value>
@@ -976,7 +976,7 @@
  <value>A convergence error was found while trying to solve the column. Possible reasons are: unfeasible specs, initial estimates far from solution and/or very non-ideal (wide-boiling or azeotropic) mixtures being fed to the column.</value>
  </data>
  <data name="DCILIts" xml:space="preserve">
- <value>Internal loop iterations</value>
+ <value>Iterations Taken</value>
  </data>
  <data name="DCILTol" xml:space="preserve">
  <value>Internal Loop (IO method only)</value>
@@ -5744,4 +5744,16 @@ In this model, chemical and physical equilibria of NH3, CO2, and H2S in sour wat
  <data name="NoPropPackAdded" xml:space="preserve">
  <value>You didn't add any Property Package to the simulation.</value>
  </data>
+ <data name="CondenserCalcValue" xml:space="preserve">
+ <value>Condenser Specification Calculated Value</value>
+ </data>
+ <data name="CondenserSpecValue" xml:space="preserve">
+ <value>Condenser Specification Value</value>
+ </data>
+ <data name="ReboilerCalcValue" xml:space="preserve">
+ <value>Reboiler Specification Calculated Value</value>
+ </data>
+ <data name="ReboilerSpecValue" xml:space="preserve">
+ <value>Reboiler Specification Value</value>
+ </data>
 </root>
diff --git a/DWSIM/Languages/DWSIM.resx b/DWSIM/Languages/DWSIM.resx
@@ -5688,4 +5688,16 @@ In this model, chemical and physical equilibria of NH3, CO2, and H2S in sour wat
  <data name="NoPropPackAdded" xml:space="preserve">
  <value>Você não adicionou nenhum Pacote de Propriedades à simulação.</value>
  </data>
+ <data name="CondenserCalcValue" xml:space="preserve">
+ <value>Valor Calculado para o Condensador</value>
+ </data>
+ <data name="CondenserSpecValue" xml:space="preserve">
+ <value>Valor Especificado para o Condensador</value>
+ </data>
+ <data name="ReboilerCalcValue" xml:space="preserve">
+ <value>Valor Calculado para o Refervedor</value>
+ </data>
+ <data name="ReboilerSpecValue" xml:space="preserve">
+ <value>Valor Especificado para o Refervedor</value>
+ </data>
 </root>
diff --git a/DWSIM/Languages/DWSIM1.Designer.vb b/DWSIM/Languages/DWSIM1.Designer.vb