model molarMassesTest "Test gas mixtures"

  extends Modelica.Icons.Example;

  package Medium = Modelica.Media.IdealGases.MixtureGases.SimpleNaturalGas "Medium model";

  Medium.BaseProperties medium();

  parameter Real data[:]=medium.MMX;

  Real molm "molar mass from media library";

  Real molm2 "molar mass calculated by myself";

equation

  medium.X = {0.0, 0.0, 0.0, 0.0, 0.0+time, 1.0-time};

  medium.p = 100000;

  medium.T = 300;

  molm = medium.MM;

  molm2 = 1 / sum(medium.state.X[j] / data[j] for j in 1:size(medium.state.X, 1));

end molarMassesTest;