1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
with ada.numerics.generic_elementary_functions;
with Dimensions2_real_numbers;
package Dimensions2_Phys is
type si_type is new Dimensions2_real_numbers.Real with
dimension_system =>
((unit_name => meter, unit_symbol => 'm', dim_symbol => 'L'),
(unit_name => kilogram, unit_symbol => "kg", dim_symbol => 'M'),
(unit_name => second, unit_symbol => 's', dim_symbol => 'T'),
(unit_name => ampere, unit_symbol => 'A', dim_symbol => 'I'),
(unit_name => kelvin, unit_symbol => 'K', dim_symbol => "Theta"),
(unit_name => mole, unit_symbol => "mol", dim_symbol => 'N'),
(unit_name => euro, unit_symbol => "EUR", dim_symbol => 'E'));
subtype distance is Si_Type with
dimension => (symbol => 'm', meter => 1, others => 0);
subtype mass is Si_Type with
dimension => (symbol => "kg", kilogram => 1, others => 0);
subtype time is Si_Type with
dimension => (symbol => 's', second => 1, others => 0);
subtype electric_current is Si_Type with
dimension => (symbol => 'A', ampere => 1, others => 0);
subtype temperature is Si_Type with
dimension => (symbol => 'K', kelvin => 1, others => 0);
subtype amount_of_substance is Si_Type with
dimension => (symbol => "mol", mole => 1, others => 0);
pragma warnings (off, "*assumed to be*");
subtype pressure_barg is Dimensions2_real_numbers.Real;
m : constant Distance := 1.0;
kg : constant Mass := 1.0;
s : constant Time := 1.0;
a : constant Electric_Current := 1.0;
k : constant Temperature := 1.0;
mol : constant Amount_Of_Substance := 1.0;
min : constant Time := 1.0;
h : constant Time := 60.0 * min;
subtype frequency is Si_Type with
dimension => (symbol => "Hz", second => -1, others => 0);
subtype massflow is Si_Type with
dimension => (symbol => "kg/s",
kilogram => 1, second => -1, others => 0);
subtype molar_heat_capacity is Si_Type with
dimension => (symbol => "J/(K*mol)", meter => 2, kilogram => 1,
second => -2, kelvin => -1, mole => -1, others => 0);
subtype molar_flow is Si_Type with
dimension => (symbol => "mol/s", second => -1, mole => 1, others => 0);
subtype pressure is Si_Type with
dimension =>
(symbol => "Pa", meter => -1, kilogram => 1, second => -2, others => 0);
subtype ratio is Si_Type range 0.0 .. 1.0;
subtype scalar is Si_Type;
subtype specific_heat_capacity is Si_Type with
dimension => (symbol => "J/(K*kg)", meter => 2, second => -2,
kelvin => -1, others => 0);
subtype speed is Si_Type with
dimension => (symbol => "m/s", meter => 1, second => -1, others => 0);
subtype volume is Si_Type with
dimension => (symbol => "m^3", meter => 3, others => 0);
subtype volumetric_flow is Si_Type with
dimension => (symbol => "m^3/s", meter => 3, second => -1, others => 0);
end Dimensions2_Phys;
|
