Studium
/
Parallele_Verteilte_Systeme
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

A2b_v1 fertig

This commit is contained in:
Johannes Theiner 2020-04-25 20:43:47 +02:00
parent cf0f988c9c
commit e41bd51c77
4 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mCRL2/TrafiicLights/v1/v1.mcrl2proj Normal file
View File

@ -0,0 +1,4 @@
<root>
<spec>v1_spec.mcrl2</spec>
<properties/>
</root>

BIN
mCRL2/TrafiicLights/v1/v1_spec.lps Normal file
View File

Binary file not shown.

BIN
mCRL2/TrafiicLights/v1/v1_spec.lts Normal file
View File

Binary file not shown.

32
mCRL2/TrafiicLights/v1/v1_spec.mcrl2 Normal file
View File

@ -0,0 +1,32 @@
sort
CardinalDirection = struct north | east | south | west;
sort
Colour = struct red | green | yellow;
map
nextColour: Colour -> Colour;
eqn
nextColour(red) = green;
nextColour(green) = yellow;
nextColour(yellow) = red;
act
show : CardinalDirection # Colour;
proc
TrafficLight(direction : CardinalDirection) = TF(direction, red);
TF(direction : CardinalDirection, colour : Colour) =
show(direction, colour).
TF(direction, nextColour(colour))
;
init
TrafficLight(north) || TrafficLight(east) || TrafficLight(south) || TrafficLight(west)
;