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 2fe1f4e6 authored by Raphael LUZ's avatar Raphael LUZ
Browse files

- Bugix: Incorrect torque calculation in AT/TC model caused early up-shifts

parent 4686bc06
No related branches found
No related tags found
No related merge requests found
......@@ -5,6 +5,9 @@ TODO
- Traction interruption: No engine rev down - hold rpm until new gear engaged (Allison)
### VECTO 2.1.1
* Bugix: Incorrect torque calculation in AT/TC model caused early up-shifts
### VECTO 2.1
* Limit engine rpm in torque converter operation acc. > acc_min
* Shift up (C-to-L, L-to-L) if acc. > acc_min and next-gear-rpm > threshold
......
File deleted
......@@ -3,11 +3,18 @@
<meta content="text/html; charset=ISO-8859-1" http-equiv="content-type"><title>VECTO Changelog</title></head><body>
<div style="text-align: center;"><div style="text-align: left;"><span style="font-family: Verdana;"><big><big><big><span style="font-weight: bold;">Changelog</span></big></big></big></span><br><hr style="width: 100%; height: 0px;"><br><span style="font-family: Verdana;"></span></div><span style="font-family: Verdana;"></span>
<div style="text-align: left;"><span style="font-family: Tahoma;">VECTO 2.1<br>
<div style="text-align: left;"><span style="font-family: Tahoma;">VECTO 2.1.1<br>
</span>
<ul>
<li><span style="font-family: Tahoma;"></span><span style="font-family: Tahoma;">Bugix: Incorrect torque calculation in AT/TC model caused early up-shifts</span></li>
</ul>
<span style="font-family: Tahoma;"><br>
VECTO 2.1<br>
</span>
<ul>
......
......@@ -488,7 +488,6 @@ Public Class cPower
Dim LastPmax As Single
Dim dist As Double
Dim dist0 As Double
Dim Tq As Single
Dim LastGear As Integer
Dim MsgSrc As String
......@@ -556,7 +555,6 @@ Public Class cPower
ClutchNorm = 0.03
ClutchEta = 1
Tq = 0
LastGear = 0
LastClutch = tEngClutch.Opened
......@@ -737,9 +735,8 @@ lbGschw:
'Gear-shifting Model
If GBX.TCon Then
If jz > 0 Then Tq = Math.Min(nPeToM(fnU(Vact, LastGear, False), fPeGearMod(LastGear, jz, Vh.fGrad(dist))), FLD(LastGear).Tq(fnU(Vact, LastGear, False)))
Gear = fGearTC(jz, Vh.fGrad(dist), Tq)
Gear = fGearTC(jz, Vh.fGrad(dist))
Else
Gear = fGearVECTO(jz, Vh.fGrad(dist))
End If
......@@ -1024,7 +1021,6 @@ lb_nOK:
'Internal Engine Power (Pclutch plus Aux plus Inertia)
P = Pclutch + Paux + PaMot
Tq = nPeToM(nU, P)
'EngState
If Clutch = tEngClutch.Opened Then
......@@ -1160,14 +1156,14 @@ lb_nOK:
If VECTOworker.CancellationPending Then Return True
If False AndAlso jz = 6915 Then
Stop
Debug.Print(
Vact * 3.6 & "," & aact & "," & Vh.fGrad(dist) & "," & GBX.TC_nu & "," & GBX.TC_mu & "," & nU & "," & Pwheel & "," &
nMtoPe(GBX.TCnUout, GBX.TCMout) & "," &
Pclutch & "," & Paux & "," & PaMot & "," &
P & "," & Pmax)
End If
'If jz = 6915 Then
' Stop
' Debug.Print(
' Vact * 3.6 & "," & aact & "," & Vh.fGrad(dist) & "," & GBX.TC_nu & "," & GBX.TC_mu & "," & nU & "," & Pwheel & "," &
' nMtoPe(GBX.TCnUout, GBX.TCMout) & "," &
' Pclutch & "," & Paux & "," & PaMot & "," &
' P & "," & Pmax)
'End If
'Check whether P above Full-load => Reduce Speed
......@@ -1233,7 +1229,7 @@ lb_nOK:
'--------------------------------------------------------------------------------------------------
' Finish Second
'If Gear > 1 AndAlso Gear = LastGear + 1 Then
'If Gear = 4 AndAlso Gear = LastGear + 1 Then
' Debug.Print(jz & "," & nU.ToString() & "," & nPeToM(nU, P))
'Else
' Debug.Print(jz & ",-,-")
......@@ -1877,23 +1873,25 @@ lb_nOK:
Return Gear
End Function
Private Function fGearTC(ByVal t As Int16, ByVal Grad As Single, ByVal Tq As Single) As Integer
Private Function fGearTC(ByVal t As Int16, ByVal Grad As Single) As Integer
Dim LastGear As Int16
Dim tx As Int16
Dim nU As Single
Dim nUup As Single
Dim nUdown As Single
Dim Pe As Single
Dim nUnext As Single
Dim OutOfRpmRange As Boolean
Dim PlusGearLockUp As Boolean
Dim MinusGearTC As Boolean
Dim iRatio As Single
Dim n As Single
Dim TqNext As Single = 0
Dim TqCurrent As Single
'First time step (for vehicles with TC always the first gear is used)
If t = 0 Then Return fStartGear(0, Grad)
'Always start with first gear from stop
If MODdata.VehState(t - 1) = tVehState.Stopped Then Return 1
'Previous Gear
......@@ -1951,13 +1949,14 @@ lb_nOK:
End If
End If
Pe = Tq * (nU * 2 * Math.PI / 60) / 1000
'Up/Downshift rpms
nUup = GBX.Shiftpolygons(LastGear).fGSnUup(Tq)
nUdown = GBX.Shiftpolygons(LastGear).fGSnUdown(Tq)
'Upshift
If LastGear < GBX.GearCount Then
TqNext = Math.Min(nPeToM(fnU(Vact, LastGear + 1, False), fPeGearMod(LastGear + 1, t, Grad)), FLD(LastGear + 1).Tq(fnU(Vact, LastGear + 1, False)))
nUup = GBX.Shiftpolygons(LastGear).fGSnUup(TqNext)
If PlusGearLockUp Then
'C-to-L / L-to-L
If DEV.TCshiftModeNew Then
......@@ -1967,7 +1966,7 @@ lb_nOK:
Return LastGear + 1
End If
Else
If nUnext > nUup AndAlso Pe <= FLD(LastGear + 1).Pfull(nUnext) Then
If nUnext > nUup AndAlso fPeGearMod(LastGear + 1, t, Grad) <= FLD(LastGear + 1).Pfull(nUnext) Then
Return LastGear + 1
End If
End If
......@@ -1985,8 +1984,16 @@ lb_nOK:
End If
End If
End If
'Downshift
If LastGear > 0 Then
'Up/Downshift rpms
TqCurrent = Math.Min(nPeToM(fnU(Vact, LastGear, False), fPeGearMod(LastGear, t, Grad)), FLD(LastGear).Tq(fnU(Vact, LastGear, False)))
nUdown = GBX.Shiftpolygons(LastGear).fGSnUdown(TqCurrent)
If MinusGearTC Then
If nU < ENG.Nidle Then
Return LastGear - 1
......@@ -1996,6 +2003,8 @@ lb_nOK:
Return LastGear - 1
End If
End If
End If
Return LastGear
......
......@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' by entering "*" in them:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.1.0.0")>
<Assembly: AssemblyFileVersion("2.1.0.0")>
<Assembly: AssemblyVersion("2.1.1.0")>
<Assembly: AssemblyFileVersion("2.1.1.0")>
......@@ -11,7 +11,7 @@
Imports System.Collections.Generic
Module VECTO_Global
Public Const VECTOvers As String = "2.1"
Public Const VECTOvers As String = "2.1.1"
Public Const LicSigAppCode As String = "VECTO-Release-0093C61E0A2E4BFA9A7ED7E729C56AE4"
Public MyAppPath As String
Public MyConfPath As String
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment