Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
9.2.2023: Due to updates GitLab will be unavailable for some minutes between 9:00 and 11:00.
Open sidebar
i7
peregrine
Commits
f1030fdd
Commit
f1030fdd
authored
Dec 01, 2014
by
Philipp Meyer
Browse files
Added weight condition to check for communication-freeness
parent
33da1b31
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Structure.hs
View file @
f1030fdd
...
...
@@ -30,7 +30,11 @@ checkStructure net FinalPlace =
where
finalPlace
p
=
null
(
post
net
p
)
&&
all
(
\
t
->
length
(
post
net
t
)
==
1
)
(
pre
net
p
)
checkStructure
net
CommunicationFree
=
all
(
\
t
->
length
(
pre
net
t
)
==
1
)
(
transitions
net
)
all
checkTransition
(
transitions
net
)
&&
all
checkWeights
(
transitions
net
)
where
checkTransition
t
=
length
(
pre
net
t
)
==
1
checkWeights
t
=
all
checkWeight
(
lpre
net
t
)
checkWeight
(
_
,
w
)
=
w
<=
1
checkParallelT
::
PetriNet
->
String
->
Bool
checkParallelT
net
t
=
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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