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 ace46450 authored by Martin Dippold's avatar Martin Dippold
Browse files

* Bugfix vehicle speed criterium

* New version number
* Update release notes
parent 562f1406
Branches
No related tags found
No related merge requests found
VECTO-AirDrag: Changes VECTO-AirDrag: Changes
=================== ===================
#### 2017-11-03: v3.1.3 ####
TUG improvements:
* New version number
* Bugfix for speed criterium
#### 2017-11-03: v3.1.2 #### #### 2017-11-03: v3.1.2 ####
TUG improvements: TUG improvements:
......
...@@ -951,7 +951,7 @@ Public Module main_calculation_call ...@@ -951,7 +951,7 @@ Public Module main_calculation_call
' Get the maximum allowed speed limit ' Get the maximum allowed speed limit
Private Function fgetSpeedLim(ByVal vehicle As cVehicle, ByRef lim_v_veh_avg_max_HS As Single, ByRef lim_v_veh_avg_min_HS As Single) As Boolean Private Function fgetSpeedLim(ByVal vehicle As cVehicle, ByRef lim_v_veh_avg_max_HS As Single, ByRef lim_v_veh_avg_min_HS As Single) As Boolean
' Get the limits dependend of maximum vehicle speed ' Get the limits dependend of maximum vehicle speed
lim_v_veh_avg_max_HS = Math.Min(vehicle.vVehMax, Crt.v_veh_avg_max_HS) lim_v_veh_avg_max_HS = Crt.v_veh_avg_max_HS
If vehicle.vVehMax < (Crt.v_veh_avg_min_HS + Crt.delta_v_avg_min_HS) Then If vehicle.vVehMax < (Crt.v_veh_avg_min_HS + Crt.delta_v_avg_min_HS) Then
lim_v_veh_avg_min_HS = vehicle.vVehMax - Crt.delta_v_avg_min_HS lim_v_veh_avg_min_HS = vehicle.vVehMax - Crt.delta_v_avg_min_HS
Else Else
......
...@@ -167,7 +167,7 @@ The generic parameters for classes are stored in the GenShape.shp", ...@@ -167,7 +167,7 @@ The generic parameters for classes are stored in the GenShape.shp",
End If End If
' Set Vehicle maximum speed ' Set Vehicle maximum speed
If IsNothing(Me.Body("vVehMax")) Then Me.Body("vVehMax") = 88 If IsNothing(Me.Body("vVehMax")) Then Me.Body("vVehMax") = 95
' Check others ' Check others
' Check if vehicle class with the given configuration class is available ' Check if vehicle class with the given configuration class is available
......
...@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ...@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.1.2.0")> <Assembly: AssemblyVersion("3.1.3.0")>
<Assembly: AssemblyFileVersion("3.1.2.0")> <Assembly: AssemblyFileVersion("3.1.3.0")>
No preview for this file type
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment