function WilsonFun input Integer nS; input Integer k; input Modelica.Units.SI.MoleFraction x[nS]; input Real Lambda[nS, nS]; output Real Wilson = 0; end WilsonFun;