30 lines
928 B
Plaintext
30 lines
928 B
Plaintext
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; |