@@ -5602,54 +5602,68 @@ void BioGears::SetupInternalTemperature()
56025602 SEThermalCircuitNode& TorsoSkin = cIntemperature.CreateNode (BGE::InternalTemperatureNode::InternalTorsoSkin);
56035603 TorsoSkin.GetTemperature ().SetValue (33.0 , TemperatureUnit::C);
56045604 SEThermalCircuitPath& TorsoSkinToTemperatureGround = cIntemperature.CreatePath (TorsoSkin, Ground, BGE::InternalTemperaturePath::InternalTorsoSkinToTemperatureGround);
5605- TorsoSkinToTemperatureGround.GetCapacitanceBaseline ().SetValue (31.43 , HeatCapacitanceUnit::kcal_Per_C);
5605+ TorsoSkinToTemperatureGround.GetCapacitanceBaseline ().SetValue (1.3 * 31.43 , HeatCapacitanceUnit::kcal_Per_C);
56065606 TorsoSkin.GetHeatBaseline ().SetValue (TorsoSkinToTemperatureGround.GetCapacitanceBaseline ().GetValue (HeatCapacitanceUnit::J_Per_K) * TorsoSkin.GetTemperature ().GetValue (TemperatureUnit::K), EnergyUnit::J);
56075607
56085608 SEThermalCircuitNode& HeadSkin = cIntemperature.CreateNode (BGE::InternalTemperatureNode::InternalHeadSkin);
56095609 HeadSkin.GetTemperature ().SetValue (33.0 , TemperatureUnit::C);
56105610 SEThermalCircuitPath& HeadSkinToTemperatureGround = cIntemperature.CreatePath (HeadSkin, Ground, BGE::InternalTemperaturePath::InternalHeadSkinToTemperatureGround);
5611- HeadSkinToTemperatureGround.GetCapacitanceBaseline ().SetValue (3.01 , HeatCapacitanceUnit::kcal_Per_C);
5611+ HeadSkinToTemperatureGround.GetCapacitanceBaseline ().SetValue (1.3 * 3.01 , HeatCapacitanceUnit::kcal_Per_C);
56125612 HeadSkin.GetHeatBaseline ().SetValue (HeadSkinToTemperatureGround.GetCapacitanceBaseline ().GetValue (HeatCapacitanceUnit::J_Per_K) * HeadSkin.GetTemperature ().GetValue (TemperatureUnit::K), EnergyUnit::J);
56135613
56145614 SEThermalCircuitNode& LeftArmSkin = cIntemperature.CreateNode (BGE::InternalTemperatureNode::InternalLeftArmSkin);
56155615 LeftArmSkin.GetTemperature ().SetValue (33.0 , TemperatureUnit::C);
56165616 SEThermalCircuitPath& LeftArmSkinToTemperatureGround = cIntemperature.CreatePath (LeftArmSkin, Ground, BGE::InternalTemperaturePath::InternalLeftArmSkinToTemperatureGround);
5617- LeftArmSkinToTemperatureGround.GetCapacitanceBaseline ().SetValue (5.46 , HeatCapacitanceUnit::kcal_Per_C);
5617+ LeftArmSkinToTemperatureGround.GetCapacitanceBaseline ().SetValue (1.3 * 5.46 , HeatCapacitanceUnit::kcal_Per_C);
56185618 LeftArmSkin.GetHeatBaseline ().SetValue (LeftArmSkinToTemperatureGround.GetCapacitanceBaseline ().GetValue (HeatCapacitanceUnit::J_Per_K) * LeftArmSkin.GetTemperature ().GetValue (TemperatureUnit::K), EnergyUnit::J);
56195619
56205620 SEThermalCircuitNode& RightArmSkin = cIntemperature.CreateNode (BGE::InternalTemperatureNode::InternalRightArmSkin);
56215621 RightArmSkin.GetTemperature ().SetValue (33.0 , TemperatureUnit::C);
56225622 SEThermalCircuitPath& RightArmSkinToTemperatureGround = cIntemperature.CreatePath (RightArmSkin, Ground, BGE::InternalTemperaturePath::InternalRightArmSkinToTemperatureGround);
5623- RightArmSkinToTemperatureGround.GetCapacitanceBaseline ().SetValue (5.46 , HeatCapacitanceUnit::kcal_Per_C);
5623+ RightArmSkinToTemperatureGround.GetCapacitanceBaseline ().SetValue (1.3 * 5.46 , HeatCapacitanceUnit::kcal_Per_C);
56245624 RightArmSkin.GetHeatBaseline ().SetValue (RightArmSkinToTemperatureGround.GetCapacitanceBaseline ().GetValue (HeatCapacitanceUnit::J_Per_K) * RightArmSkin.GetTemperature ().GetValue (TemperatureUnit::K), EnergyUnit::J);
56255625
56265626 SEThermalCircuitNode& LeftLegSkin = cIntemperature.CreateNode (BGE::InternalTemperatureNode::InternalLeftLegSkin);
56275627 LeftLegSkin.GetTemperature ().SetValue (33.0 , TemperatureUnit::C);
56285628 SEThermalCircuitPath& LeftLegSkinToTemperatureGround = cIntemperature.CreatePath (LeftLegSkin, Ground, BGE::InternalTemperaturePath::InternalLeftLegSkinToTemperatureGround);
5629- LeftLegSkinToTemperatureGround.GetCapacitanceBaseline ().SetValue (15.92 , HeatCapacitanceUnit::kcal_Per_C);
5629+ LeftLegSkinToTemperatureGround.GetCapacitanceBaseline ().SetValue (1.3 * 15.92 , HeatCapacitanceUnit::kcal_Per_C);
56305630 LeftLegSkin.GetHeatBaseline ().SetValue (LeftLegSkinToTemperatureGround.GetCapacitanceBaseline ().GetValue (HeatCapacitanceUnit::J_Per_K) * LeftLegSkin.GetTemperature ().GetValue (TemperatureUnit::K), EnergyUnit::J);
56315631
56325632 SEThermalCircuitNode& RightLegSkin = cIntemperature.CreateNode (BGE::InternalTemperatureNode::InternalRightLegSkin);
56335633 RightLegSkin.GetTemperature ().SetValue (33.0 , TemperatureUnit::C);
56345634 SEThermalCircuitPath& RightLegSkinToTemperatureGround = cIntemperature.CreatePath (RightLegSkin, Ground, BGE::InternalTemperaturePath::InternalRightLegSkinToTemperatureGround);
5635- RightLegSkinToTemperatureGround.GetCapacitanceBaseline ().SetValue (15.92 , HeatCapacitanceUnit::kcal_Per_C);
5635+ RightLegSkinToTemperatureGround.GetCapacitanceBaseline ().SetValue (1.3 * 15.92 , HeatCapacitanceUnit::kcal_Per_C);
56365636 RightLegSkin.GetHeatBaseline ().SetValue (RightLegSkinToTemperatureGround.GetCapacitanceBaseline ().GetValue (HeatCapacitanceUnit::J_Per_K) * RightLegSkin.GetTemperature ().GetValue (TemperatureUnit::K), EnergyUnit::J);
56375637
5638+ // Only using basal values for now - See if this is worth it
5639+ SEThermalCircuitPath& TemperatureGroundToSkinTorso = cIntemperature.CreatePath (Ground, TorsoSkin, BGE::InternalTemperaturePath::GroundToInternalTorsoSkin);
5640+ TemperatureGroundToSkinTorso.GetHeatSourceBaseline ().SetValue (7.53 , PowerUnit::kcal_Per_hr);
5641+ SEThermalCircuitPath& TemperatureGroundToSkinHead = cIntemperature.CreatePath (Ground, HeadSkin, BGE::InternalTemperaturePath::GroundToInternalHeadSkin);
5642+ TemperatureGroundToSkinHead.GetHeatSourceBaseline ().SetValue (0.29 , PowerUnit::kcal_Per_hr);
5643+ SEThermalCircuitPath& TemperatureGroundToSkinLeftArm = cIntemperature.CreatePath (Ground, LeftArmSkin, BGE::InternalTemperaturePath::GroundToInternalLeftArmSkin);
5644+ TemperatureGroundToSkinLeftArm.GetHeatSourceBaseline ().SetValue (1.25 , PowerUnit::kcal_Per_hr);
5645+ SEThermalCircuitPath& TemperatureGroundToSkinRightArm = cIntemperature.CreatePath (Ground, RightArmSkin, BGE::InternalTemperaturePath::GroundToInternalRightArmSkin);
5646+ TemperatureGroundToSkinRightArm.GetHeatSourceBaseline ().SetValue (1.25 , PowerUnit::kcal_Per_hr);
5647+ SEThermalCircuitPath& TemperatureGroundToSkinLeftLeg = cIntemperature.CreatePath (Ground, LeftLegSkin, BGE::InternalTemperaturePath::GroundToInternalLeftLegSkin);
5648+ TemperatureGroundToSkinLeftLeg.GetHeatSourceBaseline ().SetValue (3.61 , PowerUnit::kcal_Per_hr);
5649+ SEThermalCircuitPath& TemperatureGroundToSkinRightLeg = cIntemperature.CreatePath (Ground, RightLegSkin, BGE::InternalTemperaturePath::GroundToInternalRightLegSkin);
5650+ TemperatureGroundToSkinRightLeg.GetHeatSourceBaseline ().SetValue (3.61 , PowerUnit::kcal_Per_hr);
5651+
56385652 SEThermalCircuitPath& CoreToTemperatureGround = cIntemperature.CreatePath (Core, Ground, BGE::InternalTemperaturePath::InternalCoreToGround);
56395653 CoreToTemperatureGround.GetCapacitanceBaseline ().SetValue ((1.0 - skinMassFraction) * m_Patient->GetWeight (MassUnit::kg) * GetConfiguration ().GetBodySpecificHeat (HeatCapacitancePerMassUnit::J_Per_K_kg), HeatCapacitanceUnit::J_Per_K);
56405654 Core.GetHeatBaseline ().SetValue (CoreToTemperatureGround.GetCapacitanceBaseline ().GetValue (HeatCapacitanceUnit::J_Per_K) * Core.GetTemperature ().GetValue (TemperatureUnit::K), EnergyUnit::J);
56415655 SEThermalCircuitPath& CoreToTorsoSkin = cIntemperature.CreatePath (Core, TorsoSkin, BGE::InternalTemperaturePath::InternalCoreToInternalTorsoSkin);
5642- CoreToTorsoSkin.GetResistanceBaseline ().SetValue (0.432 , HeatResistanceUnit::C_s_Per_kcal);
5656+ CoreToTorsoSkin.GetResistanceBaseline ().SetValue (2.315 , HeatResistanceUnit::C_s_Per_kcal);
56435657 SEThermalCircuitPath& CoreToHeadSkin = cIntemperature.CreatePath (Core, HeadSkin, BGE::InternalTemperaturePath::InternalCoreToInternalHeadSkin);
5644- CoreToHeadSkin.GetResistanceBaseline ().SetValue (0.443 , HeatResistanceUnit::C_s_Per_kcal);
5658+ CoreToHeadSkin.GetResistanceBaseline ().SetValue (2.257 , HeatResistanceUnit::C_s_Per_kcal);
56455659 SEThermalCircuitPath& CoreToLeftArmSkin = cIntemperature.CreatePath (Core, LeftArmSkin, BGE::InternalTemperaturePath::InternalCoreToInternalLeftArmSkin);
5646- CoreToLeftArmSkin.GetResistanceBaseline ().SetValue (0.605 , HeatResistanceUnit::C_s_Per_kcal);
5660+ CoreToLeftArmSkin.GetResistanceBaseline ().SetValue (1.653 , HeatResistanceUnit::C_s_Per_kcal);
56475661 SEThermalCircuitPath& CoreToRightArmSkin = cIntemperature.CreatePath (Core, RightArmSkin, BGE::InternalTemperaturePath::InternalCoreToInternalRightArmSkin);
5648- CoreToRightArmSkin.GetResistanceBaseline ().SetValue (0.605 , HeatResistanceUnit::C_s_Per_kcal);
5662+ CoreToRightArmSkin.GetResistanceBaseline ().SetValue (1.653 , HeatResistanceUnit::C_s_Per_kcal);
56495663 SEThermalCircuitPath& CoreToLeftLegSkin = cIntemperature.CreatePath (Core, LeftLegSkin, BGE::InternalTemperaturePath::InternalCoreToInternalLeftLegSkin);
5650- CoreToLeftLegSkin.GetResistanceBaseline ().SetValue (1.423 , HeatResistanceUnit::C_s_Per_kcal);
5664+ CoreToLeftLegSkin.GetResistanceBaseline ().SetValue (0.703 , HeatResistanceUnit::C_s_Per_kcal);
56515665 SEThermalCircuitPath& CoreToRightLegSkin = cIntemperature.CreatePath (Core, RightLegSkin, BGE::InternalTemperaturePath::InternalCoreToInternalRightLegSkin);
5652- CoreToRightLegSkin.GetResistanceBaseline ().SetValue (1.423 , HeatResistanceUnit::C_s_Per_kcal);
5666+ CoreToRightLegSkin.GetResistanceBaseline ().SetValue (0.703 , HeatResistanceUnit::C_s_Per_kcal);
56535667
56545668 cIntemperature.SetNextAndCurrentFromBaselines ();
56555669 cIntemperature.StateChange ();
@@ -5673,6 +5687,20 @@ void BioGears::SetupInternalTemperature()
56735687
56745688 SEThermalCompartmentLink& GroundToInternalCore = m_Compartments->CreateThermalLink (InternalGround, InternalCore, BGE::TemperatureLink::GroundToInternalCore);
56755689 GroundToInternalCore.MapPath (TemperatureGroundToCore);
5690+
5691+ SEThermalCompartmentLink& GroundToInternalTorsoSkin = m_Compartments->CreateThermalLink (InternalGround, InternalTorsoSkin, BGE::TemperatureLink::GroundToInternalTorsoSkin);
5692+ GroundToInternalTorsoSkin.MapPath (TemperatureGroundToSkinTorso);
5693+ SEThermalCompartmentLink& GroundToInternalHeadSkin = m_Compartments->CreateThermalLink (InternalGround, InternalHeadSkin, BGE::TemperatureLink::GroundToInternalHeadSkin);
5694+ GroundToInternalHeadSkin.MapPath (TemperatureGroundToSkinHead);
5695+ SEThermalCompartmentLink& GroundToInternalLeftArmSkin = m_Compartments->CreateThermalLink (InternalGround, InternalLeftArmSkin, BGE::TemperatureLink::GroundToInternalLeftArmSkin);
5696+ GroundToInternalLeftArmSkin.MapPath (TemperatureGroundToSkinLeftArm);
5697+ SEThermalCompartmentLink& GroundToInternalRightArmSkin = m_Compartments->CreateThermalLink (InternalGround, InternalRightArmSkin, BGE::TemperatureLink::GroundToInternalRightArmSkin);
5698+ GroundToInternalRightArmSkin.MapPath (TemperatureGroundToSkinRightArm);
5699+ SEThermalCompartmentLink& GroundToInternalLeftLegSkin = m_Compartments->CreateThermalLink (InternalGround, InternalLeftLegSkin, BGE::TemperatureLink::GroundToInternalLeftLegSkin);
5700+ GroundToInternalLeftLegSkin.MapPath (TemperatureGroundToSkinLeftLeg);
5701+ SEThermalCompartmentLink& GroundToInternalRightLegSkin = m_Compartments->CreateThermalLink (InternalGround, InternalRightLegSkin, BGE::TemperatureLink::GroundToInternalRightLegSkin);
5702+ GroundToInternalRightLegSkin.MapPath (TemperatureGroundToSkinRightLeg);
5703+
56765704 SEThermalCompartmentLink& InternalCoreToGround = m_Compartments->CreateThermalLink (InternalGround, InternalCore, BGE::TemperatureLink::InternalCoreToGround);
56775705 InternalCoreToGround.MapPath (CoreToTemperatureGround);
56785706 SEThermalCompartmentLink& InternalTorsoSkinToGround = m_Compartments->CreateThermalLink (InternalGround, InternalTorsoSkin, BGE::TemperatureLink::InternalTorsoSkinToGround);
0 commit comments