From fb61c2bca8ecb504ab966c5d7a122a2b52cea73a Mon Sep 17 00:00:00 2001
From: Raphael Luz <luz@ivt.tugraz.at>
Date: Wed, 10 Jun 2015 13:29:53 +0200
Subject: [PATCH] - updates in start gear calculation and shift model

---
 VECTO/MODcalc/cPower.vb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/VECTO/MODcalc/cPower.vb b/VECTO/MODcalc/cPower.vb
index a195233669..b4bb32b16c 100644
--- a/VECTO/MODcalc/cPower.vb
+++ b/VECTO/MODcalc/cPower.vb
@@ -1843,7 +1843,8 @@ lb_nOK:
 		Else
 
 			'Calculate Start Gear 
-			For Gear = GBX.GearCount To 1 Step -1
+			' Loop finishes at Gear = 1 (If "Exit For" is not called)
+			For Gear = GBX.GearCount To 2 Step -1
 
 				'rpm at StartSpeed  [m/s]
 				nU = GBX.gs_StartSpeed * 60.0 * GBX.Igetr(0) * GBX.Igetr(Gear) / (2 * VEH.rdyn * Math.PI / 1000)
@@ -1873,8 +1874,6 @@ lb_nOK:
 
 			Next
 
-			Gear=1
-
 		End If
 
 		Return Gear
@@ -2207,10 +2206,11 @@ lb_nOK:
 			If GBX.gs_ShiftInside And LastGear < GBX.GearCount Then
 
 				'Calculate Shift-rpm for higher gear
-				nU = fnU(Vact, Gear + 1, False)
+				'old: nU = fnU(Vact, Gear + 1, False)
+				nU = fnUout(Vact, Gear + 1)
 
 				'Continue only if rpm (for higher gear) is below rated rpm
-				If nU <= ENG.Nrated Then
+				If nU > ENG.Nidle AndAlso nU <= ENG.Nrated Then
 					Pe = Math.Min(fPeGearMod(Gear + 1, t, Grad), FLD(Gear + 1).Pfull(nU))
 					Pe = Math.Max(Pe, FLD(Gear + 1).Pdrag(nU))
 					Tq = Pe * 1000 / (nU * 2 * Math.PI / 60)
-- 
GitLab