Tuning attempts

Author: ntatum94

projects/biogears/libBiogears/src/engine/Controller/BioGears.cpp

@@ -5653,17 +5653,17 @@ void BioGears::SetupInternalTemperature()
   CoreToTemperatureGround.GetCapacitanceBaseline().SetValue((1.0 - skinMassFraction) * m_Patient->GetWeight(MassUnit::kg) * GetConfiguration().GetBodySpecificHeat(HeatCapacitancePerMassUnit::J_Per_K_kg), HeatCapacitanceUnit::J_Per_K);
   Core.GetHeatBaseline().SetValue(CoreToTemperatureGround.GetCapacitanceBaseline().GetValue(HeatCapacitanceUnit::J_Per_K) * Core.GetTemperature().GetValue(TemperatureUnit::K), EnergyUnit::J);
   SEThermalCircuitPath& CoreToTorsoSkin = cIntemperature.CreatePath(Core, TorsoSkin, BGE::InternalTemperaturePath::InternalCoreToInternalTorsoSkin);
-  CoreToTorsoSkin.GetResistanceBaseline().SetValue(2.315, HeatResistanceUnit::C_s_Per_kcal);
+  CoreToTorsoSkin.GetResistanceBaseline().SetValue(2.315/3.0, HeatResistanceUnit::C_s_Per_kcal);
   SEThermalCircuitPath& CoreToHeadSkin = cIntemperature.CreatePath(Core, HeadSkin, BGE::InternalTemperaturePath::InternalCoreToInternalHeadSkin);
-  CoreToHeadSkin.GetResistanceBaseline().SetValue(2.257, HeatResistanceUnit::C_s_Per_kcal);
+  CoreToHeadSkin.GetResistanceBaseline().SetValue(2.257 / 3.0, HeatResistanceUnit::C_s_Per_kcal);
   SEThermalCircuitPath& CoreToLeftArmSkin = cIntemperature.CreatePath(Core, LeftArmSkin, BGE::InternalTemperaturePath::InternalCoreToInternalLeftArmSkin);
-  CoreToLeftArmSkin.GetResistanceBaseline().SetValue(1.653, HeatResistanceUnit::C_s_Per_kcal);
+  CoreToLeftArmSkin.GetResistanceBaseline().SetValue(1.653 / 3.0, HeatResistanceUnit::C_s_Per_kcal);
   SEThermalCircuitPath& CoreToRightArmSkin = cIntemperature.CreatePath(Core, RightArmSkin, BGE::InternalTemperaturePath::InternalCoreToInternalRightArmSkin);
-  CoreToRightArmSkin.GetResistanceBaseline().SetValue(1.653, HeatResistanceUnit::C_s_Per_kcal);
+  CoreToRightArmSkin.GetResistanceBaseline().SetValue(1.653 / 3.0, HeatResistanceUnit::C_s_Per_kcal);
   SEThermalCircuitPath& CoreToLeftLegSkin = cIntemperature.CreatePath(Core, LeftLegSkin, BGE::InternalTemperaturePath::InternalCoreToInternalLeftLegSkin);
-  CoreToLeftLegSkin.GetResistanceBaseline().SetValue(0.703, HeatResistanceUnit::C_s_Per_kcal);
+  CoreToLeftLegSkin.GetResistanceBaseline().SetValue(0.703 / 3.0, HeatResistanceUnit::C_s_Per_kcal);
   SEThermalCircuitPath& CoreToRightLegSkin = cIntemperature.CreatePath(Core, RightLegSkin, BGE::InternalTemperaturePath::InternalCoreToInternalRightLegSkin);
-  CoreToRightLegSkin.GetResistanceBaseline().SetValue(0.703, HeatResistanceUnit::C_s_Per_kcal);
+  CoreToRightLegSkin.GetResistanceBaseline().SetValue(0.703 / 3.0, HeatResistanceUnit::C_s_Per_kcal);
 
   cIntemperature.SetNextAndCurrentFromBaselines();
   cIntemperature.StateChange();

projects/biogears/libBiogears/src/engine/Systems/Environment.cpp

@@ -694,7 +694,6 @@ void Environment::CalculateEvaporation()
 {
   if (GetConditions().GetSurroundingType() == CDM::enumSurroundingType::Water) {
     //Submerged - therefore, no evaporation
-
     //Invalidate the coefficient
     GetEvaporativeHeatTranferCoefficient().Invalidate();
 
@@ -720,10 +719,10 @@ void Environment::CalculateEvaporation()
       double dConvectiveTransferCoefficient_W_Per_m2_K = GetConvectiveHeatTranferCoefficient(HeatConductancePerAreaUnit::W_Per_m2_K);
       const double dLewisRelation_K_Per_kPa = 16.5;
       const double dEvaporativeHeatTransferCoefficient_W_Per_m2_kPa = dConvectiveTransferCoefficient_W_Per_m2_K * dLewisRelation_K_Per_kPa;
-      const double dClothingResistance_clo = GetConditions().GetClothingResistance(HeatResistanceAreaUnit::clo);
+      const double dClothingResistance_clo = GetConditions().GetClothingResistance(HeatResistanceAreaUnit::clo) * m_cloSegmentation[index];
       const double clo_To_m2_K_Per_W = 0.155;
       const double iCl = 0.35;
-      double dClothingResistance_m2_kPa_Per_W = clo_To_m2_K_Per_W * dClothingResistance_clo * m_cloSegmentation[index] / (iCl * dLewisRelation_K_Per_kPa);
+      double dClothingResistance_m2_kPa_Per_W = clo_To_m2_K_Per_W * dClothingResistance_clo / (iCl * dLewisRelation_K_Per_kPa);
       double fCl = 1.0 + 0.3 * dClothingResistance_clo;
       double skinWettednessDiffusion = 0.06;