Simulator/Simulator/Files/TransportProperties/VapK.mo


1
2
3
4
5
6
7
8
9
10

within Simulator.Files.TransportProperties;

 function VapK
    extends Modelica.Icons.Function;
    input Real VapK[6] "from chemsep database";
    input Real T(unit = "K") "Temperature";
    output Real kvap;
  algorithm
    kvap := VapK[6] + VapK[2] * T ^ VapK[3] / (1 + VapK[4] / T + VapK[5] / T ^ 2);
  end VapK;