feat : temperature , heatflux and capacity

Formation/OTRERA_formation/Components/ThermalCapacity.mo

@@ -0,0 +1,30 @@
+within OTRERA_formation.Components;
+
+model ThermalCapacity
+  //USER DEFINED PARAMETERS
+  parameter Modelica.Units.SI.Mass m = 10 "Object mass";
+  parameter Modelica.Units.SI.SpecificHeatCapacity cp(min=0) = 1000 ;
+  parameter Modelica.Units.SI.Temperature T_start = 283.15 ;
+  
+  //INTERNAL VARIABLES
+  Modelica.Units.SI.Temperature T ;
+  Modelica.Units.SI.HeatFlowRate Q_flow ;
+  
+  //IMPORTED COMPONENTS
+  Modelica.Thermal.HeatTransfer.Interfaces.HeatPort_a port annotation(
+    Placement(transformation(extent = {{-10, -10}, {10, 10}}), iconTransformation(origin = {-2, -4}, extent = {{-10, -10}, {10, 10}})));
+initial equation 
+
+  T = T_start ;
+
+equation 
+
+  Q_flow = m * cp * der(T) ;
+ 
+  //PORT HANDOVER
+  Q_flow = port.Q_flow ; 
+  T = port.T ;
+
+annotation(
+    Icon(graphics = {Ellipse(origin = {-2, 3}, fillColor = {134, 94, 60}, fillPattern = FillPattern.Solid, extent = {{-92, -85}, {92, 85}})}));
+end ThermalCapacity;