blob: b663431d3493e4634d36a1ad77d091aac11675dc (
plain) (
blame)
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
|
definition module DTMC
from Data.Map import :: Map
from Data.Maybe import :: Maybe
from System.FilePath import :: FilePath
:: *DTMC =
{ nr_states :: !Int
, parameters :: ![String]
, states :: !*{Maybe State}
}
:: State =
{ state_id :: !Int
, transitions :: !Map Int String
, init :: !Bool
}
// Note that state_id must be an absorbing state
// (Probability, state_id)
:: Property :== (Real, Int)
stateElimination :: !*DTMC -> *DTMC
parseDTMC :: !FilePath !*World -> *(!*DTMC, !*World)
printDTMC :: !*DTMC -> *(!String, !*DTMC)
addVars :: !*DTMC -> *DTMC
:: RepairConfig =
{ totality_restrictions :: ![String]
}
repairConfig :: !*DTMC -> *(!RepairConfig, !*DTMC)
|
