Code development platform for open source projects from the European Union institutions :large_blue_circle: EU Login authentication by SMS has been phased out. To see alternatives please check here

Skip to content
Snippets Groups Projects
Commit f1ee78fb authored by Raphael LUZ's avatar Raphael LUZ
Browse files

* Fixed VECTO-34

* Updated .vsum(.json)
** Added l/100km and CO2 results. (Fixed VECTO-33)
** Added FC-Final.
** Added Loading. (json)
** Added missing fuel parameters. (json)
* Updated README.md
parent 2b680d2c
No related branches found
No related tags found
No related merge requests found
...@@ -9,8 +9,9 @@ Before compiling you need to add references to: ...@@ -9,8 +9,9 @@ Before compiling you need to add references to:
The following directories/files must be provided in the application folder (e.g. ..\bin\Release): The following directories/files must be provided in the application folder (e.g. ..\bin\Release):
- User Manual - User Manual
- User Manual\Release Notes.pdf (provided with the VECTO release) - User Manual\Release Notes.pdf (provided with the VECTO release)
- GRAPHi (provided with the VECTO release)
- vectolic.dll (should be placed there automatically when compiling) - vectolic.dll (should be placed there automatically when compiling)
- itextsharp.dll (should be placed there automatically when compiling)
- Newtonsoft.Json.dll (should be placed there automatically when compiling)
- license.dat (provided by EC/JRC) - license.dat (provided by EC/JRC)
......
...@@ -60,6 +60,7 @@ Public Class cMOD ...@@ -60,6 +60,7 @@ Public Class cMOD
Public FCavg As Single Public FCavg As Single
Public FCavgAUXc As Single Public FCavgAUXc As Single
Public FCavgWHTCc As Single Public FCavgWHTCc As Single
Public FCavgFinal As Single
Public FCAUXcSet As Boolean Public FCAUXcSet As Boolean
...@@ -369,6 +370,7 @@ Public Class cMOD ...@@ -369,6 +370,7 @@ Public Class cMOD
sum += x sum += x
Next Next
FCavg = CSng(sum / lFC.Count) FCavg = CSng(sum / lFC.Count)
FCavgFinal = FCavg
'Start/Stop-Aux - Correction 'Start/Stop-Aux - Correction
If Result AndAlso LostEnergy > 0 Then If Result AndAlso LostEnergy > 0 Then
...@@ -421,14 +423,23 @@ Public Class cMOD ...@@ -421,14 +423,23 @@ Public Class cMOD
FCAUXcSet = True FCAUXcSet = True
FCavgFinal = FCavgAUXc
End If End If
'WHTC Correction 'WHTC Correction
If Cfg.DeclMode Then If Cfg.DeclMode Then
If FCAUXcSet Then
For i = 0 To MODdata.tDim
lFCWHTCc.Add(lFCAUXc(i) * Declaration.WHTCcorrFactor)
Next
Else
For i = 0 To MODdata.tDim For i = 0 To MODdata.tDim
lFCWHTCc.Add(lFC(i) * Declaration.WHTCcorrFactor) lFCWHTCc.Add(lFC(i) * Declaration.WHTCcorrFactor)
Next Next
End If
sum = 0 sum = 0
For Each x In lFCWHTCc For Each x In lFCWHTCc
...@@ -436,6 +447,8 @@ Public Class cMOD ...@@ -436,6 +447,8 @@ Public Class cMOD
Next Next
FCavgWHTCc = CSng(sum / lFC.Count) FCavgWHTCc = CSng(sum / lFC.Count)
FCavgFinal = FCavgWHTCc
End If End If
If Not Result Then FCerror = True If Not Result Then FCerror = True
......
...@@ -12,7 +12,7 @@ Imports System.Collections.Generic ...@@ -12,7 +12,7 @@ Imports System.Collections.Generic
Module VECTO_Global Module VECTO_Global
Public Const VECTOvers As String = "2.0.1-beta1" Public Const VECTOvers As String = "2.0.1-beta2"
Public Const LicSigAppCode As String = "VECTO-Release-0093C61E0A2E4BFA9A7ED7E729C56AE4" Public Const LicSigAppCode As String = "VECTO-Release-0093C61E0A2E4BFA9A7ED7E729C56AE4"
Public MyAppPath As String Public MyAppPath As String
Public MyConfPath As String Public MyConfPath As String
......
...@@ -994,8 +994,8 @@ lbInt: ...@@ -994,8 +994,8 @@ lbInt:
.Loading = VEH.Loading / 1000 .Loading = VEH.Loading / 1000
.Speed = Vquer .Speed = Vquer
.FCkm = (100 * MODdata.FCavgWHTCc / Vquer) / (Cfg.FuelDens * 1000) .FCkm = (100 * MODdata.FCavgFinal / Vquer) / (Cfg.FuelDens * 1000)
.CO2km = Cfg.CO2perFC * (MODdata.FCavgWHTCc / Vquer) .CO2km = Cfg.CO2perFC * (MODdata.FCavgFinal / Vquer)
If VEH.Loading > 0 Then If VEH.Loading > 0 Then
.FCtkm = .FCkm / .Loading .FCtkm = .FCkm / .Loading
.CO2tkm = .CO2km / .Loading .CO2tkm = .CO2km / .Loading
......
...@@ -126,6 +126,17 @@ Class cVSUM ...@@ -126,6 +126,17 @@ Class cVSUM
VSUMentries("FC_h").ValueString = MODdata.FCavg VSUMentries("FC_h").ValueString = MODdata.FCavg
Else Else
VSUMentries("FC_km").ValueString = (MODdata.FCavg / Vquer) VSUMentries("FC_km").ValueString = (MODdata.FCavg / Vquer)
VSUMentries("FCl_km").ValueString = (100 * MODdata.FCavgFinal / Vquer) / (Cfg.FuelDens * 1000) '[l/100km]
VSUMentries("CO2_km").ValueString = Cfg.CO2perFC * (MODdata.FCavgFinal / Vquer) '[g/km]
If VEH.Loading > 0 Then
VSUMentries("CO2_tkm").ValueString = (Cfg.CO2perFC * (MODdata.FCavgFinal / Vquer)) / (VEH.Loading / 1000) '[g/tkm]
VSUMentries("FCl_tkm").ValueString = ((100 * MODdata.FCavgFinal / Vquer) / (Cfg.FuelDens * 1000)) / (VEH.Loading / 1000) '[l/100tkm]
End If
VSUMentries("FC-Final_km").ValueString = (MODdata.FCavgFinal / Vquer)
End If End If
If MODdata.FCAUXcSet Then If MODdata.FCAUXcSet Then
...@@ -144,6 +155,11 @@ Class cVSUM ...@@ -144,6 +155,11 @@ Class cVSUM
End If End If
End If End If
End If End If
'Power, Revolutions 'Power, Revolutions
...@@ -300,6 +316,7 @@ Class cVSUM ...@@ -300,6 +316,7 @@ Class cVSUM
Dim dic As Dictionary(Of String, Object) Dim dic As Dictionary(Of String, Object)
Dim dic0 As Dictionary(Of String, Object) Dim dic0 As Dictionary(Of String, Object)
Dim dic1 As Dictionary(Of String, Object) Dim dic1 As Dictionary(Of String, Object)
Dim ls0 As List(Of Dictionary(Of String, Object))
Dim key As String Dim key As String
MsgSrc = "SUMALL/Output" MsgSrc = "SUMALL/Output"
...@@ -322,7 +339,17 @@ Class cVSUM ...@@ -322,7 +339,17 @@ Class cVSUM
str = NrOfRunStr & "," & JobFilename & "," & CycleFilename & "," str = NrOfRunStr & "," & JobFilename & "," & CycleFilename & ","
dic.Add("Job", JobFilename) dic.Add("Job", JobFilename)
If Cfg.DeclMode Then
dic.Add("Cycle", Declaration.CurrentMission.NameStr)
dic.Add("Loading", ConvLoading(Declaration.CurrentLoading))
Else
dic.Add("Cycle", CycleFilename) dic.Add("Cycle", CycleFilename)
dic.Add("Loading", ConvLoading(tLoading.UserDefLoaded))
End If
If AbortedByError Then If AbortedByError Then
Fvsum.WriteLine(str & "Aborted due to Error!") Fvsum.WriteLine(str & "Aborted due to Error!")
...@@ -334,9 +361,27 @@ Class cVSUM ...@@ -334,9 +361,27 @@ Class cVSUM
dic1 = New Dictionary(Of String, Object) dic1 = New Dictionary(Of String, Object)
For Each key In VSUMentryList For Each key In VSUMentryList
dic0 = New Dictionary(Of String, Object) dic0 = New Dictionary(Of String, Object)
dic0.Add("Value", VSUMentries(key).ValueString) dic0.Add("Value", VSUMentries(key).ValueString)
dic0.Add("Unit", VSUMentries(key).Unit) dic0.Add("Unit", VSUMentries(key).Unit)
If VSUMentries(key).Multi Then
If dic1.ContainsKey(VSUMentries(key).Head) Then
ls0 = dic1(VSUMentries(key).Head)
Else
ls0 = New List(Of Dictionary(Of String, Object))
dic1.Add(VSUMentries(key).Head, ls0)
End If
ls0.Add(dic0)
Else
dic1.Add(VSUMentries(key).Head, dic0) dic1.Add(VSUMentries(key).Head, dic0)
End If
Next Next
dic.Add("Results", dic1) dic.Add("Results", dic1)
...@@ -365,13 +410,19 @@ Class cVSUM ...@@ -365,13 +410,19 @@ Class cVSUM
End Function End Function
Private Sub AddToVSUM(ByVal IDstring As String, ByVal Head As String, ByVal Unit As String) Private Sub AddToVSUM(ByVal IDstring As String, ByVal Head As String, ByVal Unit As String, Optional Multi As Boolean = False)
If Not VSUMentries.ContainsKey(IDstring) Then If Not VSUMentries.ContainsKey(IDstring) Then
VSUMentries.Add(IDstring, New cVSUMentry(Head, Unit)) VSUMentries.Add(IDstring, New cVSUMentry(Head, Unit))
VSUMentryList.Add(IDstring) VSUMentryList.Add(IDstring)
If Multi Then VSUMentries(IDstring).Multi = True
End If End If
End Sub End Sub
''' <summary>
''' Initializes the specified job file.
''' </summary>
''' <param name="JobFile">The job file.</param>
''' <returns></returns>
Public Function Init(ByVal JobFile As String) As Boolean Public Function Init(ByVal JobFile As String) As Boolean
Dim JobFiles As New List(Of String) Dim JobFiles As New List(Of String)
Dim str As String Dim str As String
...@@ -436,6 +487,9 @@ Class cVSUM ...@@ -436,6 +487,9 @@ Class cVSUM
vsumJSON.Content.Add("Body", New Dictionary(Of String, Object)) vsumJSON.Content.Add("Body", New Dictionary(Of String, Object))
dic = New Dictionary(Of String, Object) dic = New Dictionary(Of String, Object)
dic.Add("Air Density [kg/m3]", Cfg.AirDensity) dic.Add("Air Density [kg/m3]", Cfg.AirDensity)
dic.Add("CO2/FC [-]", Cfg.CO2perFC)
dic.Add("Fuel Density [kg/l]", Cfg.FuelDens)
dic.Add("Distance Correction", Cfg.DistCorr) dic.Add("Distance Correction", Cfg.DistCorr)
vsumJSON.Content("Body").add("Settings", dic) vsumJSON.Content("Body").add("Settings", dic)
...@@ -558,6 +612,14 @@ Class cVSUM ...@@ -558,6 +612,14 @@ Class cVSUM
AddToVSUM("FC_km", "FC", "[g/km]") AddToVSUM("FC_km", "FC", "[g/km]")
AddToVSUM("FC-AUXc_km", "FC-AUXc", "[g/km]") AddToVSUM("FC-AUXc_km", "FC-AUXc", "[g/km]")
AddToVSUM("FC-WHTCc_km", "FC-WHTCc", "[g/km]") AddToVSUM("FC-WHTCc_km", "FC-WHTCc", "[g/km]")
AddToVSUM("CO2_km", "CO2", "[g/km]", True)
AddToVSUM("CO2_tkm", "CO2", "[g/tkm]", True)
AddToVSUM("FC-Final_km", "FC-Final", "[g/km]", True)
AddToVSUM("FCl_km", "FC-Final", "[l/100km]", True)
AddToVSUM("FCl_tkm", "FC-Final", "[l/100tkm]", True)
End If End If
Next Next
...@@ -636,11 +698,13 @@ Public Class cVSUMentry ...@@ -636,11 +698,13 @@ Public Class cVSUMentry
Public Head As String Public Head As String
Public Unit As String Public Unit As String
Public MyVal As Object Public MyVal As Object
Public Multi As Boolean
Public Sub New(ByVal HeadStr As String, ByVal UnitStr As String) Public Sub New(ByVal HeadStr As String, ByVal UnitStr As String)
Head = HeadStr Head = HeadStr
Unit = UnitStr Unit = UnitStr
MyVal = Nothing MyVal = Nothing
Multi = False
End Sub End Sub
Public Property ValueString As Object Public Property ValueString As Object
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment