| 1 | within ;
|
|---|
| 2 | package TestMedia
|
|---|
| 3 | annotation (uses(Modelica(version="3.1")));
|
|---|
| 4 | package Media
|
|---|
| 5 | package Water = Modelica.Media.Water.StandardWater;
|
|---|
| 6 | package FlueGas =
|
|---|
| 7 | Modelica.Media.IdealGases.MixtureGases.FlueGasSixComponents;
|
|---|
| 8 | package Nitrogen = Modelica.Media.IdealGases.SingleGases.N2;
|
|---|
| 9 | end Media;
|
|---|
| 10 |
|
|---|
| 11 | package TestModels
|
|---|
| 12 | model TestWater
|
|---|
| 13 | package Medium = Media.Water;
|
|---|
| 14 | Medium.ThermodynamicState state;
|
|---|
| 15 | Medium.AbsolutePressure p;
|
|---|
| 16 | Medium.SpecificEnthalpy h;
|
|---|
| 17 | Medium.Density d;
|
|---|
| 18 | Medium.Temperature T;
|
|---|
| 19 | equation
|
|---|
| 20 | h = 25000+ time * 300000;
|
|---|
| 21 | p = 1e5;
|
|---|
| 22 | state = Medium.setState_ph(p,h);
|
|---|
| 23 | d = Medium.density(state);
|
|---|
| 24 | T = Medium.temperature(state);
|
|---|
| 25 | end TestWater;
|
|---|
| 26 |
|
|---|
| 27 | model TestSteam
|
|---|
| 28 | package Medium = Media.Water;
|
|---|
| 29 | Medium.ThermodynamicState state;
|
|---|
| 30 | Medium.AbsolutePressure p;
|
|---|
| 31 | Medium.SpecificEnthalpy h;
|
|---|
| 32 | Medium.Density d;
|
|---|
| 33 | Medium.Temperature T;
|
|---|
| 34 | equation
|
|---|
| 35 | h = 2.8e6+ time * 300000;
|
|---|
| 36 | p = 60e5;
|
|---|
| 37 | state = Medium.setState_ph(p,h);
|
|---|
| 38 | d = Medium.density(state);
|
|---|
| 39 | T = Medium.temperature(state);
|
|---|
| 40 | end TestSteam;
|
|---|
| 41 |
|
|---|
| 42 | model TestFlueGas
|
|---|
| 43 | package Medium = Media.FlueGas;
|
|---|
| 44 | Medium.ThermodynamicState state;
|
|---|
| 45 | Medium.AbsolutePressure p;
|
|---|
| 46 | Medium.SpecificEnthalpy h;
|
|---|
| 47 | Medium.Density d;
|
|---|
| 48 | Medium.Temperature T;
|
|---|
| 49 | equation
|
|---|
| 50 | T = 300 + 300 * time;
|
|---|
| 51 | p = 1e5;
|
|---|
| 52 | state = Medium.setState_pTX(p,T);
|
|---|
| 53 | d = Medium.density(state);
|
|---|
| 54 | h = Medium.specificEnthalpy(state);
|
|---|
| 55 | end TestFlueGas;
|
|---|
| 56 |
|
|---|
| 57 | model TestNitrogen
|
|---|
| 58 | package Medium = Media.Nitrogen;
|
|---|
| 59 | Medium.ThermodynamicState state;
|
|---|
| 60 | Medium.AbsolutePressure p;
|
|---|
| 61 | Medium.SpecificEnthalpy h;
|
|---|
| 62 | Medium.Density d;
|
|---|
| 63 | Medium.Temperature T;
|
|---|
| 64 | equation
|
|---|
| 65 | T = 300 + 300 * time;
|
|---|
| 66 | p = 1e5;
|
|---|
| 67 | state = Medium.setState_pTX(p,T);
|
|---|
| 68 | d = Medium.density(state);
|
|---|
| 69 | h = Medium.specificEnthalpy(state);
|
|---|
| 70 | end TestNitrogen;
|
|---|
| 71 | end TestModels;
|
|---|
| 72 | end TestMedia;
|
|---|
