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 a19f2d16 authored by Markus Quaritsch's avatar Markus Quaritsch
Browse files

bugfix: output motoring curve corrected

parent 5438e861
Branches
Tags
No related merge requests found
...@@ -241,7 +241,7 @@ Public Class cJob ...@@ -241,7 +241,7 @@ Public Class cJob
'If Not MAP.WriteFLD(OutPath & fFILE(MapFile, False) & "_" & fFILE(FlcFile, False) & ".vfld") Then Return False 'If Not MAP.WriteFLD(OutPath & fFILE(MapFile, False) & "_" & fFILE(FlcFile, False) & ".vfld") Then Return False
'If Not MAP.WriteFLD(OutPath & "UNOFFICIAL_OUTPUT_" & Manufacturer & "_" & Model & "_" & CertNumber & "_FLC.vfld", True) Then Return False 'If Not MAP.WriteFLD(OutPath & "UNOFFICIAL_OUTPUT_" & Manufacturer & "_" & Model & "_" & CertNumber & "_FLC.vfld", True) Then Return False
'If Not WriteTransFile(OutPath & "WHTC-Correction-Factors.xml") Then Return False 'If Not WriteTransFile(OutPath & "WHTC-Correction-Factors.xml") Then Return False
MAP.WriteXmlComponentFile(OutPath & Manufacturer & "_" & Model & "_" & ".xml", MAP.WriteXmlComponentFile(OutPath & Manufacturer & "_" & Model & ".xml",
fFILE(FlcFile, False), Me) fFILE(FlcFile, False), Me)
'RpmWarnings() 'RpmWarnings()
......
...@@ -1232,9 +1232,14 @@ lbInt: ...@@ -1232,9 +1232,14 @@ lbInt:
lbInt: lbInt:
'Interpolation 'Interpolation
' !!!!! ATTENTION: use second point from motoring curve, since first point is located 100 Nm below real motoring curve
Return _ Return _
(nU - rpm0) * (RPMlists(rpm).MapPoints.First.Tq - RPMlists(rpm0).MapPoints.First.Tq) / (rpm - rpm0) + (nU - rpm0) * (RPMlists(rpm).MapPoints(1).Tq - RPMlists(rpm0).MapPoints(1).Tq) / (rpm - rpm0) +
RPMlists(rpm0).MapPoints.First.Tq RPMlists(rpm0).MapPoints(1).Tq
' OLD VERSION, using first point which is wrong
'(nU - rpm0) * (RPMlists(rpm).MapPoints.First.Tq - RPMlists(rpm0).MapPoints.First.Tq) / (rpm - rpm0) +
'RPMlists(rpm0).MapPoints.First.Tq()
End Function End Function
Private Sub CalcFlcOut() Private Sub CalcFlcOut()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment