From a63589379904b5349f5a20769a1ecc5396be508d Mon Sep 17 00:00:00 2001
From: harunasan <harunasan@30fe4595-0a0c-4342-8851-515496e4dcbd>
Date: Thu, 29 Feb 2024 06:57:27 +0000
Subject: [PATCH] SimUV4.1: Limit skid/slip force for tire wear too

git-svn-id: https://svn.code.sf.net/p/speed-dreams/code/trunk@9351 30fe4595-0a0c-4342-8851-515496e4dcbd
---
 src/modules/simu/simuv4.1/wheel.cpp | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/modules/simu/simuv4.1/wheel.cpp b/src/modules/simu/simuv4.1/wheel.cpp
index 97c2d6f91..dced44406 100644
--- a/src/modules/simu/simuv4.1/wheel.cpp
+++ b/src/modules/simu/simuv4.1/wheel.cpp
@@ -914,6 +914,15 @@ void SimWheelUpdateTire(tCar *car, int index)
 		slip = slip;
 	}
 
+	if (normalForce >= wheel->opLoad * 2)
+	{
+		normalForce = wheel->opLoad * 2;
+	}
+	else 
+	{
+		normalForce = normalForce;
+	}
+
     // Calculate factor for energy which is turned into heat, according papers this seems to be pretty constant
     // for a specific construction and constant slip (empiric value with model validation, called hysteresis).
     // A value of 0.1 is available in papers, so for 10% slip I head for 0.1, where 0.05 come from rolling and
@@ -1004,7 +1013,7 @@ void SimWheelUpdateTire(tCar *car, int index)
     wheel->currentPressure = wheel->Ttire / Tair * wheel->pressure;
 
     // Wear
-    double deltaWear = (wheel->currentPressure - SimAirPressure) * skidSlip * wheelSpeed * SimDeltaTime * normalForce
+    double deltaWear = (wheel->currentPressure - SimAirPressure) * slip * wheelSpeed * SimDeltaTime * normalForce
             * wheel->wearFactor * 0.00000000000009;
 
     wheel->currentWear += deltaWear;