Mono/Linux bug fixes; enhanced realiability of gibbs reactor solver (…

…added an option to initialize from previous solution); fixed Sensitivity Analysis utility not displaying variables (CPUI)

DWSIM.FlowsheetSolver/FlowsheetSolver.vb

@@ -1434,6 +1434,7 @@ Public Delegate Sub CustomEvent2(ByVal objinfo As CalculationArgs)
  baseexception = iex.InnerException
  End While
  fgui.ShowMessage(baseexception.Message.ToString, IFlowsheet.MessageType.GeneralError, euid)
+ Console.WriteLine(baseexception.ToString)
  IObj?.Paragraphs.Add(baseexception.Message)
  Next
  Else
@@ -1446,6 +1447,7 @@ Public Delegate Sub CustomEvent2(ByVal objinfo As CalculationArgs)
  End While
  End If
  fgui.ShowMessage(baseexception.Message.ToString, IFlowsheet.MessageType.GeneralError, euid)
+ Console.WriteLine(baseexception.ToString)
  IObj?.Paragraphs.Add(baseexception.Message)
  End If
  Next

DWSIM.Math/LP_Solve.vb

@@ -5,9 +5,6 @@ Public Class lpsolve55
 
  'lpsolve version 5 routines
 
- Private Declare Function SetEnvironmentVariableA Lib "kernel32" (ByVal lpname As String, ByVal lpValue As String) As Integer
- Private Declare Function GetEnvironmentVariableA Lib "kernel32" (ByVal lpname As String, ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
-
  '-----------------------------------------------------------------------------------------------------------------------------
 
  Public Declare Function add_column Lib "lpsolve55" Alias "add_column" (ByVal lp As IntPtr, ByVal column() As Double) As Boolean
@@ -402,24 +399,12 @@ Public Class lpsolve55
  End Enum
 
  Private Shared Function SetEnvironmentVariable(ByRef name As String, ByRef value As String) As Boolean
-
- SetEnvironmentVariable = SetEnvironmentVariableA(name, value)
-
+ Environment.SetEnvironmentVariable(name, value, EnvironmentVariableTarget.Process)
+ Return True
  End Function
 
  Private Shared Function GetEnvironmentVariable(ByRef name As String) As String
- Dim l As Integer
- Dim buf As String
-
- l = GetEnvironmentVariableA(name, vbNullString, 0)
- If l > 0 Then
- buf = Space(l)
- l = GetEnvironmentVariableA(name, buf, Len(buf))
- GetEnvironmentVariable = Mid(buf, 1, l)
- Else
- GetEnvironmentVariable = ""
- End If
-
+ Return Environment.GetEnvironmentVariable(name, EnvironmentVariableTarget.Process)
  End Function
 
  Shared Function Init(Optional ByVal dllPath As String = "") As Boolean

DWSIM.UI.Desktop.Editors/FlowsheetAnalysis/SensitivityAnalysis.cs

@@ -50,7 +50,7 @@ void Init()
  p2 = UI.Shared.Common.GetDefaultContainer();
 
  p1.Width = 380;
- p2.Width = 380;
+ p2.Width = 470;
 
  t1 = new StackLayout();
  t1.Items.Add(new StackLayoutItem(p1));
@@ -182,10 +182,10 @@ void Init()
  p1.Height = p1.ParentWindow.Height - 170;
  p2.Height = p1.Height;
  sc.Height = p2.Height - btnAddDepVar.Height - 30;
- foreach (var item in ll.Items)
- {
- item.Control.Width = sc.Width - 25;
- }
+ //foreach (var item in ll.Items)
+ //{
+ // item.Control.Width = sc.Width - 25;
+ //}
  }
  };
 
@@ -417,7 +417,7 @@ private void AddDepVar(StackLayout container, DWSIM.SharedClasses.Flowsheet.Opti
  var su = flowsheet.FlowsheetOptions.SelectedUnitSystem;
 
  List<string> proplist2 = new List<string>();
- var myview = new DynamicLayout { Padding = new Padding(5), Width = container.Width - 25};
+ var myview = new DynamicLayout { Padding = new Padding(5), Width = 400};
  var slcontainer = new StackLayoutItem(myview);
  s.CreateAndAddLabelRow(myview, "Dependent Variable #" + (container.Items.Count + 1).ToString());
  var spinobj = s.CreateAndAddDropDownRow(myview, "Object", objlist, 0, null);

DWSIM.UI.Desktop.Editors/UnitOperations/General.cs

@@ -1701,7 +1701,7 @@ void Initialize()
  f.ShowDialog();
  });
  s.CreateAndAddLabelRow(container, "Convergence Parameters");
- //s.CreateAndAddDescriptionRow(container, "Tune the following parameters if you're having convergence issues.");
+ s.CreateAndAddCheckBoxRow(container, "Initialize from Previous Solution", reactor2g.InitializeFromPreviousSolution, (sender, e) => reactor2g.InitializeFromPreviousSolution = sender.Checked.GetValueOrDefault(), () => CallSolverIfNeeded());
  s.CreateAndAddTextBoxRow(container, nf, "Maximum Internal Iterations", reactor2g.MaximumInternalIterations, (sender, e) => { if (sender.Text.IsValidDoubleExpression()) reactor2g.MaximumInternalIterations = int.Parse(sender.Text); }, () => CallSolverIfNeeded());
  s.CreateAndAddTextBoxRow(container, nf, "Maximum External Iterations", reactor2g.MaximumExternalIterations, (sender, e) => { if (sender.Text.IsValidDoubleExpression()) reactor2g.MaximumExternalIterations = int.Parse(sender.Text); }, () => CallSolverIfNeeded());
  s.CreateAndAddTextBoxRow(container, nf, "Minimum Internal Error", reactor2g.InternalTolerance, (sender, e) => { if (sender.Text.IsValidDoubleExpression()) reactor2g.InternalTolerance = sender.Text.ParseExpressionToDouble(); }, () => CallSolverIfNeeded());