From 189ba1ed6f0eedaf589b241e6340274e6d23ccb2 Mon Sep 17 00:00:00 2001
From: "VKMTHD\\haraldmartini" <harald.martini@student.tugraz.at>
Date: Tue, 14 Mar 2023 13:38:46 +0100
Subject: [PATCH] set supercap to initSOC, targetSoc = initSOC - 0.01
---
VECTO/GUI/MainForm.vb | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/VECTO/GUI/MainForm.vb b/VECTO/GUI/MainForm.vb
index b28db35e1e..99d28a37eb 100644
--- a/VECTO/GUI/MainForm.vb
+++ b/VECTO/GUI/MainForm.vb
@@ -46,6 +46,7 @@ Imports TUGraz.VectoCommon.Resources
Imports TUGraz.VectoCommon.Utils
Imports TUGraz.VectoCore
Imports TUGraz.VectoCore.InputData.FileIO.XML
+Imports TUGraz.VectoCore.InputData.Reader.DataObjectAdapter.SimulationComponents
Imports TUGraz.VectoCore.Models.Simulation
Imports TUGraz.VectoCore.Models.Simulation.Data
Imports TUGraz.VectoCore.Models.Simulation.Impl.SimulatorFactory
@@ -1060,14 +1061,20 @@ lbFound:
Dim initSOC = Double.Parse(tbInitSOCinPercent.Text) / 100
+
+
If(runData.HybridStrategyParameters IsNot Nothing)
runData.HybridStrategyParameters.InitialSoc = initSOC
- runData.HybridStrategyParameters.TargetSoC = initSOC - 1
+ runData.HybridStrategyParameters.TargetSoC = initSOC - 0.01
End If
If(runData.BatteryData IsNot Nothing)
runData.BatteryData.InitialSoc = initSOC
End If
+
+ If(runData.SuperCapData IsNot Nothing)
+ runData.SuperCapData.InitialSoC = initSOC
+ End If
End If
runData.IterativeRunStrategy.Enabled = Not cbCSIteratingModeDeactivated.Checked
--
GitLab