You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
993 B
33 lines
993 B
with Types; use Types; |
|
|
|
package MMS.F_PT is |
|
|
|
type Current_Range_Type is range 1 .. 1_000_000; -- in meters |
|
|
|
type Current_Speed_Type is range 0 .. 500; -- in km/h |
|
|
|
type Current_Altitude_Type is range -200 .. 1_000; -- in meters |
|
|
|
type Estimated_Total_Mass_Type is delta 0.1 range 5.0 .. 10.0; -- in kg ??? |
|
|
|
type Energy_Level_Type is range 0 .. 500; -- in kj |
|
|
|
subtype Speed_Or_Altitude is Navigation_Option_Type range SPEED .. ALTITUDE; |
|
|
|
type Operating_Point_Type is record |
|
Altitude : Current_Altitude_Type; -- ??? which altitude type |
|
Speed : Current_Speed_Type; -- ??? which speed type |
|
end record; |
|
|
|
type Payload_Mass_Center is new Positive; |
|
|
|
type Payload_Mass_Grid_Type is array (Payload_Mass_Center range <>) |
|
of Payload_Mass_Type; |
|
|
|
type On_State_Type is (INIT, RUNNING, COMPLETE, ABORTED); |
|
|
|
type Running_State_Type is (TAKE_OFF, FLIGHT, LANDING); |
|
|
|
type Flight_Phase_Type is (CLIMB, CRUISE, DESCENT); |
|
|
|
end MMS.F_PT;
|
|
|