Public/MODELICA
3
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

refactor : correction fan

Browse Source
This commit is contained in:
Matthieu Descombes
2026-02-13 10:41:59 +01:00
parent ca37ad165b
commit 2b11da7dc7
4 changed files with 28 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Formation/OTRERA_formation/Components/Fan.mo
View File

@@ -3,19 +3,21 @@ within OTRERA_formation.Components;
model Fan
replaceable package Medium = Modelica.Media.Air.ReferenceAir.Air_pT constrainedby Modelica.Media.Interfaces.PartialMedium annotation(choicesAllMatching = true) ;
extends Modelica.Thermal.HeatTransfer.Interfaces.Element1D ;
//USER DEFINED PARAMETERS
parameter Modelica.Units.SI.MassFlowRate m_flow ;
parameter Modelica.Units.SI.MassFlowRate m_flow = 10 ;
//INTERNAL VARIABLES
Medium.ThermodynamicState state ;
Modelica.Units.SI.SpecificHeatCapacity cp ;
//IMPORTED COMPONENTS
Modelica.Units.SI.HeatFlowRate Q_flow ;
//IMPORTED COMPONENTS
Modelica.Thermal.HeatTransfer.Interfaces.HeatPort_a port_a annotation(
Placement(transformation(origin = {-96, 0}, extent = {{-10, -10}, {10, 10}}), iconTransformation(origin = {-88, 6}, extent = {{-10, -10}, {10, 10}})));
Modelica.Thermal.HeatTransfer.Interfaces.HeatPort_b port_b annotation(
Placement(transformation(origin = {96, 0}, extent = {{-10, -10}, {10, 10}}), iconTransformation(origin = {90, 2}, extent = {{-10, -10}, {10, 10}})));
equation
state = Medium.setState_pT(p=Medium.p_default,T=port_a.T);
cp = Medium.specificHeatCapacityCp(state) ;
Q_flow = m_flow * cp * (-dT) ;
Q_flow = m_flow * cp * (port_b.T - port_a.T) ;
port_b.Q_flow = Q_flow;
port_a.Q_flow = 0 ;
end Fan;