From d8dc5a3d0ab1819265a5194d4b03d9fc7e879704 Mon Sep 17 00:00:00 2001
From: Markus Quaritsch <markus.quaritsch@tugraz.at>
Date: Thu, 30 Nov 2017 12:51:45 +0100
Subject: [PATCH] fix: calculation of rDyn in declaration mode if multiple
 driven axles

---
 VECTO/GUI/GearboxForm.vb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/VECTO/GUI/GearboxForm.vb b/VECTO/GUI/GearboxForm.vb
index 2353480e69..c1a30f50dc 100644
--- a/VECTO/GUI/GearboxForm.vb
+++ b/VECTO/GUI/GearboxForm.vb
@@ -911,8 +911,9 @@ Public Class GearboxForm
 			If (vehicle.Axles.Count < 2) Then
 				Return Nothing
 			End If
-             'TODO: 
-			rDyn = DeclarationData.Wheels.Lookup(vehicle.Axles(1).Tyre.Dimension).DynamicTyreRadius
+            rdyn = vehicle.Axles.Where(Function(axle)  axle.AxleType = AxleType.VehicleDriven) _
+                .Select(Function(da) DeclarationData.Wheels.Lookup(da.Tyre.Dimension).DynamicTyreRadius) _
+		        .Average()
 		End If
 		If (rDyn.IsEqual(0)) Then
 			Return Nothing
-- 
GitLab