Skip to content
Projects
Groups
Snippets
Help
Loading...
Sign in
Toggle navigation
R
RESSAC_Use_Case
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
RESSAC
RESSAC_Use_Case
Commits
d3c468ec
Commit
d3c468ec
authored
Jul 17, 2017
by
Claire Dross
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Layer2_MMS_SW_SPARK: update F_FC after answers on #28
parent
512eb5bc
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
32 additions
and
4 deletions
+32
-4
mms-f_pt-f_fc-behavior-guarantees.adb
...Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-behavior-guarantees.adb
+2
-1
mms-f_pt-f_fc-behavior.ads
...evelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-behavior.ads
+0
-0
mms-f_pt-f_fc-data.ads
...aseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-data.ads
+30
-3
No files found.
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-behavior-guarantees.adb
View file @
d3c468ec
...
...
@@ -24,12 +24,13 @@ package body MMS.F_PT.F_FC.Behavior.Guarantees with SPARK_Mode is
Propulsion_Braking_Mutual_Exclusion
;
Reference_Trajectory_Computation
;
Gain_Scheduling
;
if
Engine_State
=
PROPULSION
then
Gain_Scheduling
;
Propulsion_Control
;
State
.
Braking_Torque
:=
0.0
;
elsif
Engine_State
=
BRAKING
then
Gain_Scheduling
;
Braking_Control
;
State
.
Propulsion_Torque
:=
0.0
;
else
...
...
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-behavior.ads
View file @
d3c468ec
This diff is collapsed.
Click to expand it.
UseCaseDevelopment/Layer2_MMS_SW_SPARK/mms-f_pt-f_fc-data.ads
View file @
d3c468ec
...
...
@@ -14,7 +14,7 @@ package MMS.F_PT.F_FC.Data with SPARK_Mode is
Flight_Domain_Mesh
:
constant
Flight_Domain_Mesh_Type
(
1
..
100
,
1
..
100
);
--
???
bounds
function
Climb_Gains
function
Climb_
Propulsion_
Gains
(
S
:
Flight_Speed_Center
;
A
:
Flight_Altitude_Center
;
M
:
Payload_Mass_Center
)
return
Gain_Triple
...
...
@@ -23,7 +23,7 @@ package MMS.F_PT.F_FC.Data with SPARK_Mode is
and then A in Flight_Domain_Mesh'
Range
(
2
)
and
then
M
in
MMS
.
F_PT
.
Data
.
Payload_Mass_Grid
'Range;
function Cruise_Gains
function Cruise_
Propulsion_
Gains
(S : Flight_Speed_Center;
A : Flight_Altitude_Center;
M : Payload_Mass_Center) return Gain_Triple
...
...
@@ -32,7 +32,34 @@ package MMS.F_PT.F_FC.Data with SPARK_Mode is
and
then
A
in
Flight_Domain_Mesh
'Range (2)
and then M in MMS.F_PT.Data.Payload_Mass_Grid'
Range
;
function
Descent_Gains
function
Descent_Propulsion_Gains
(
S
:
Flight_Speed_Center
;
A
:
Flight_Altitude_Center
;
M
:
Payload_Mass_Center
)
return
Gain_Triple
with
Pre
=>
S
in
Flight_Domain_Mesh
'Range (1)
and then A in Flight_Domain_Mesh'
Range
(
2
)
and
then
M
in
MMS
.
F_PT
.
Data
.
Payload_Mass_Grid
'Range;
function Climb_Braking_Gains
(S : Flight_Speed_Center;
A : Flight_Altitude_Center;
M : Payload_Mass_Center) return Gain_Triple
with
Pre => S in Flight_Domain_Mesh'
Range
(
1
)
and
then
A
in
Flight_Domain_Mesh
'Range (2)
and then M in MMS.F_PT.Data.Payload_Mass_Grid'
Range
;
function
Cruise_Braking_Gains
(
S
:
Flight_Speed_Center
;
A
:
Flight_Altitude_Center
;
M
:
Payload_Mass_Center
)
return
Gain_Triple
with
Pre
=>
S
in
Flight_Domain_Mesh
'Range (1)
and then A in Flight_Domain_Mesh'
Range
(
2
)
and
then
M
in
MMS
.
F_PT
.
Data
.
Payload_Mass_Grid
'Range;
function Descent_Braking_Gains
(S : Flight_Speed_Center;
A : Flight_Altitude_Center;
M : Payload_Mass_Center) return Gain_Triple
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment