Simulator/Simulator/Files/Thermodynamic_Functions/VapCpId.mo


1
2
3
4
5
6
7
8
9
10

within Simulator.Files.Thermodynamic_Functions;

function VapCpId
  /*Calculates Vapor Specific Heat*/
  input Real VapCp[6] "from chemsep database";
  input Real T(unit = "K") "Temperature";
  output Real Cp(unit = "J/mol.K") "specific heat";
algorithm
  Cp := (VapCp[2] + exp(VapCp[3] / T + VapCp[4] + VapCp[5] * T + VapCp[6] * T ^ 2)) / 1000;
end VapCpId;