The function calculates the diffusion coefficient of a medium 1 into medium 2. Therefore the collision diameters of medium 1 and 2 σ1, σ2 and the collision integral Ω are used as inputs.
σ12 = (σ1 + σ2) ⁄ 2
Ω12 = σ212 Ω
D12 = 1.8583 10(-7) T3 ⁄ 2 ⁄ (p Ω12) √(1 ⁄ M1 + 1 ⁄ M2)
function DiffusionCoefficient input Modelica.Units.SI.MolarMass M_1 "molar mass of component one"; input Modelica.Units.SI.MolarMass M_2 "molar mass of component two"; input Modelica.Units.SI.Temperature T "temperature in K"; input Modelica.Units.SI.Pressure p "pressure in atm"; input Real sigma1 "collision diameter component 1"; input Real sigma2 "collision diameter component 2"; input Real omega "CollisionIntegral"; output Modelica.Units.SI.DiffusionCoefficient D_12 "diffusion coefficient of component two in one"; end DiffusionCoefficient;