@ -1,7 +1,7 @@
# include "src/modelchecker/abstraction/GameBasedMdpModelChecker.h"
# include "src/modelchecker/abstraction/GameBasedMdpModelChecker.h"
# include "src/modelchecker/results/Symbolic QuantitativeCheckResult.h"
# include "src/modelchecker/results/Symbolic QualitativeCheckResult.h"
# include "src/modelchecker/results/Explicit QuantitativeCheckResult.h"
# include "src/modelchecker/results/Explicit QualitativeCheckResult.h"
# include "src/models/symbolic/StandardRewardModel.h"
# include "src/models/symbolic/StandardRewardModel.h"
@ -18,6 +18,7 @@
# include "src/exceptions/NotSupportedException.h"
# include "src/exceptions/NotSupportedException.h"
# include "src/exceptions/InvalidPropertyException.h"
# include "src/exceptions/InvalidPropertyException.h"
# include "src/exceptions/InvalidModelException.h"
# include "src/modelchecker/results/CheckResult.h"
# include "src/modelchecker/results/CheckResult.h"
@ -57,7 +58,7 @@ namespace storm {
template < storm : : dd : : DdType Type , typename ValueType >
template < storm : : dd : : DdType Type , typename ValueType >
std : : unique_ptr < CheckResult > GameBasedMdpModelChecker < Type , ValueType > : : computeUntilProbabilities ( CheckTask < storm : : logic : : UntilFormula > const & checkTask ) {
std : : unique_ptr < CheckResult > GameBasedMdpModelChecker < Type , ValueType > : : computeUntilProbabilities ( CheckTask < storm : : logic : : UntilFormula > const & checkTask ) {
storm : : logic : : UntilFormula const & pathFormula = checkTask . getFormula ( ) ;
storm : : logic : : UntilFormula const & pathFormula = checkTask . getFormula ( ) ;
return performGameBasedAbstractionRefinement ( CheckTask < storm : : logic : : Formula > ( pathFormula ) , getExpression ( pathFormula . getLeftSubformula ( ) ) , getExpression ( pathFormula . getRightSubformula ( ) ) ) ;
return performGameBasedAbstractionRefinement ( checkTask . substituteFormula < storm : : logic : : Formula > ( pathFormula ) , getExpression ( pathFormula . getLeftSubformula ( ) ) , getExpression ( pathFormula . getRightSubformula ( ) ) ) ;
}
}
template < storm : : dd : : DdType Type , typename ValueType >
template < storm : : dd : : DdType Type , typename ValueType >
@ -85,12 +86,7 @@ namespace storm {
template < storm : : dd : : DdType Type , typename ValueType >
template < storm : : dd : : DdType Type , typename ValueType >
std : : unique_ptr < CheckResult > getResultAfterQualitativeCheck ( CheckTask < storm : : logic : : Formula > const & checkTask , storm : : dd : : DdManager < Type > const & ddManager , storm : : dd : : Bdd < Type > const & reachableStates , storm : : dd : : Bdd < Type > const & initialStates , bool prob0 ) {
std : : unique_ptr < CheckResult > getResultAfterQualitativeCheck ( CheckTask < storm : : logic : : Formula > const & checkTask , storm : : dd : : DdManager < Type > const & ddManager , storm : : dd : : Bdd < Type > const & reachableStates , storm : : dd : : Bdd < Type > const & initialStates , bool prob0 ) {
if ( checkTask . isBoundSet ( ) ) {
bool result = getResultConsideringBound ( prob0 ? storm : : utility : : zero < ValueType > ( ) : storm : : utility : : one < ValueType > ( ) , checkTask . getBound ( ) ) ;
return std : : make_unique < storm : : modelchecker : : SymbolicQualitativeCheckResult < Type > > ( reachableStates , initialStates , result ? initialStates : ddManager . getBddZero ( ) ) ;
} else {
return std : : make_unique < storm : : modelchecker : : SymbolicQuantitativeCheckResult < Type > > ( reachableStates , initialStates , prob0 ? ddManager . template getAddZero < ValueType > ( ) : initialStates . template toAdd < ValueType > ( ) ) ;
}
return std : : make_unique < storm : : modelchecker : : ExplicitQuantitativeCheckResult < ValueType > > ( storm : : storage : : sparse : : state_type ( 0 ) , prob0 ? storm : : utility : : zero < ValueType > ( ) : storm : : utility : : one < ValueType > ( ) ) ;
}
}
template < storm : : dd : : DdType Type >
template < storm : : dd : : DdType Type >
@ -143,17 +139,17 @@ namespace storm {
bool lowerChoicesDifferent = ! lowerChoice1 . exclusiveOr ( lowerChoice2 ) . isZero ( ) ;
bool lowerChoicesDifferent = ! lowerChoice1 . exclusiveOr ( lowerChoice2 ) . isZero ( ) ;
if ( lowerChoicesDifferent ) {
if ( lowerChoicesDifferent ) {
abstractor . refine ( pivotState , ( pivotState & & prob01 . min . first . getPlayer1Strategy ( ) ) . existsAbstract ( game . getRowVariables ( ) ) , lowerChoice1 , lowerChoice2 ) ;
abstractor . refine ( pivotState , ( pivotState & & prob01 . min . first . getPlayer1Strategy ( ) ) . existsAbstract ( game . getRowVariables ( ) ) , lowerChoice1 , lowerChoice2 ) ;
}
} else {
storm : : dd : : Bdd < Type > upperChoice = pivotState & & game . getExtendedTransitionMatrix ( ) . toBdd ( ) & & prob01 . max . second . getPlayer1Strategy ( ) ;
storm : : dd : : Bdd < Type > upperChoice = pivotState & & game . getExtendedTransitionMatrix ( ) . toBdd ( ) & & prob01 . max . second . getPlayer1Strategy ( ) ;
storm : : dd : : Bdd < Type > upperChoice1 = ( upperChoice & & prob01 . min . first . getPlayer2Strategy ( ) ) . existsAbstract ( variablesToAbstract ) ;
storm : : dd : : Bdd < Type > upperChoice1 = ( upperChoice & & prob01 . min . first . getPlayer2Strategy ( ) ) . existsAbstract ( variablesToAbstract ) ;
storm : : dd : : Bdd < Type > upperChoice2 = ( upperChoice & & prob01 . max . second . getPlayer2Strategy ( ) ) . existsAbstract ( variablesToAbstract ) ;
storm : : dd : : Bdd < Type > upperChoice2 = ( upperChoice & & prob01 . max . second . getPlayer2Strategy ( ) ) . existsAbstract ( variablesToAbstract ) ;
upperChoice1 . template toAdd < ValueType > ( ) . exportToDot ( " uchoice1.dot " ) ;
upperChoice2 . template toAdd < ValueType > ( ) . exportToDot ( " uchoice2.dot " ) ;
bool upperChoicesDifferent = ! upperChoice1 . exclusiveOr ( upperChoice2 ) . isZero ( ) ;
bool upperChoicesDifferent = ! upperChoice1 . exclusiveOr ( upperChoice2 ) . isZero ( ) ;
if ( upperChoicesDifferent ) {
if ( upperChoicesDifferent ) {
abstractor . refine ( pivotState , ( pivotState & & prob01 . max . second . getPlayer1Strategy ( ) ) . existsAbstract ( game . getRowVariables ( ) ) , upperChoice1 , upperChoice2 ) ;
abstractor . refine ( pivotState , ( pivotState & & prob01 . max . second . getPlayer1Strategy ( ) ) . existsAbstract ( game . getRowVariables ( ) ) , upperChoice1 , upperChoice2 ) ;
} else {
STORM_LOG_ASSERT ( false , " Did not find choices from which to derive predicates. " ) ;
}
}
}
}
}
@ -171,13 +167,26 @@ namespace storm {
}
}
// Derive the optimization direction for player 1 (assuming menu-game abstraction).
// Derive the optimization direction for player 1 (assuming menu-game abstraction).
storm : : OptimizationDirection player1Direction = checkTask . isOptimizationDirectionSet ( ) ? checkTask . getOptimizationDirection ( ) : storm : : OptimizationDirection : : Maximize ;
storm : : OptimizationDirection player1Direction ;
if ( checkTask . isOptimizationDirectionSet ( ) ) {
player1Direction = checkTask . getOptimizationDirection ( ) ;
} else if ( checkTask . isBoundSet ( ) & & ! originalProgram . isDeterministicModel ( ) ) {
player1Direction = storm : : logic : : isLowerBound ( checkTask . getBoundComparisonType ( ) ) ? storm : : OptimizationDirection : : Minimize : storm : : OptimizationDirection : : Maximize ;
} else {
STORM_LOG_THROW ( originalProgram . isDeterministicModel ( ) , storm : : exceptions : : InvalidPropertyException , " Requiring either min or max annotation in property for nondeterministic models. " ) ;
player1Direction = storm : : OptimizationDirection : : Maximize ;
}
storm : : abstraction : : prism : : PrismMenuGameAbstractor < Type , ValueType > abstractor ( preprocessedProgram , initialPredicates , smtSolverFactory ) ;
storm : : abstraction : : prism : : PrismMenuGameAbstractor < Type , ValueType > abstractor ( preprocessedProgram , initialPredicates , smtSolverFactory ) ;
for ( uint_fast64_t iterations = 0 ; iterations < 10000 ; + + iterations ) {
STORM_LOG_TRACE ( " Starting iteration " < < iterations ) ;
abstractor . exportToDot ( " game " + std : : to_string ( iterations ) + " .dot " ) ;
// 1. build initial abstraction based on the the constraint expression (if not 'true') and the target state expression.
// 1. build initial abstraction based on the the constraint expression (if not 'true') and the target state expression.
storm : : abstraction : : MenuGame < Type , ValueType > game = abstractor . abstract ( ) ;
storm : : abstraction : : MenuGame < Type , ValueType > game = abstractor . abstract ( ) ;
STORM_LOG_DEBUG ( " Initial abstraction has " < < game . getNumberOfStates ( ) < < " (player 1) states and " < < game . getNumberOfTransitions ( ) < < " transitions. " ) ;
STORM_LOG_DEBUG ( " Abstraction in iteration " < < iterations < < " has " < < game . getNumberOfStates ( ) < < " (player 1) states and " < < game . getNumberOfTransitions ( ) < < " transitions. " ) ;
STORM_LOG_THROW ( game . getInitialStates ( ) . getNonZeroCount ( ) , storm : : exceptions : : InvalidModelException , " Cannot treat models with more than one (abstract) initial state. " ) ;
// 1.5 build a BDD from the transition matrix for various later uses.
// 1.5 build a BDD from the transition matrix for various later uses.
storm : : dd : : Bdd < Type > transitionMatrixBdd = game . getTransitionMatrix ( ) . toBdd ( ) ;
storm : : dd : : Bdd < Type > transitionMatrixBdd = game . getTransitionMatrix ( ) . toBdd ( ) ;
@ -193,34 +202,32 @@ namespace storm {
storm : : dd : : Bdd < Type > initialMaybeStates = game . getInitialStates ( ) & & ( maybeMin | | maybeMax ) ;
storm : : dd : : Bdd < Type > initialMaybeStates = game . getInitialStates ( ) & & ( maybeMin | | maybeMax ) ;
if ( initialMaybeStates . isZero ( ) ) {
if ( initialMaybeStates . isZero ( ) ) {
// In this case, we know the result for the initial states for both player 2 minimizing and maximizing.
// In this case, we know the result for the initial states for both player 2 minimizing and maximizing.
STORM_LOG_TRACE ( " No initial state is a 'maybe' state. Refining abstraction based on qualitative check. " ) ;
// If the result is 0 independent of the player 2 strategy, then we know the final result and can return it.
// If the result is 0 independent of the player 2 strategy, then we know the final result and can return it.
storm : : dd : : Bdd < Type > tmp = game . getInitialStates ( ) & & prob01 . min . first . states & & prob01 . max . first . states ;
storm : : dd : : Bdd < Type > tmp = game . getInitialStates ( ) & & prob01 . min . first . states & & prob01 . max . first . states ;
if ( tmp = = game . getInitialStates ( ) ) {
if ( tmp = = game . getInitialStates ( ) ) {
getResultAfterQualitativeCheck < Type , ValueType > ( checkTask , game . getManager ( ) , game . getReachableStates ( ) , game . getInitialStates ( ) , true ) ;
return getResultAfterQualitativeCheck < Type , ValueType > ( checkTask , game . getManager ( ) , game . getReachableStates ( ) , game . getInitialStates ( ) , true ) ;
}
}
// If the result is 1 independent of the player 2 strategy, then we know the final result and can return it.
// If the result is 1 independent of the player 2 strategy, then we know the final result and can return it.
tmp = game . getInitialStates ( ) & & prob01 . min . second . states & & prob01 . max . second . states ;
tmp = game . getInitialStates ( ) & & prob01 . min . second . states & & prob01 . max . second . states ;
if ( tmp = = game . getInitialStates ( ) ) {
if ( tmp = = game . getInitialStates ( ) ) {
getResultAfterQualitativeCheck < Type , ValueType > ( checkTask , game . getManager ( ) , game . getReachableStates ( ) , game . getInitialStates ( ) , false ) ;
return getResultAfterQualitativeCheck < Type , ValueType > ( checkTask , game . getManager ( ) , game . getReachableStates ( ) , game . getInitialStates ( ) , false ) ;
}
}
// If we get here, the initial states were all identified as prob0/1 states, but the value (0 or 1)
// If we get here, the initial states were all identified as prob0/1 states, but the value (0 or 1)
// depends on whether player 2 is minimizing or maximizing. Therefore, we need to find a place to refine.
// depends on whether player 2 is minimizing or maximizing. Therefore, we need to find a place to refine.
refineAfterQualitativeCheck ( abstractor , game , prob01 , transitionMatrixBdd ) ;
refineAfterQualitativeCheck ( abstractor , game , prob01 , transitionMatrixBdd ) ;
}
// std::unique_ptr<storm::utility::solver::SymbolicGameSolverFactory<Type, ValueType>> gameSolverFactory = std::make_unique<storm::utility::solver::SymbolicGameSolverFactory<Type, ValueType>>();
// gameSolverFactory->create(game.getTransitionMatrix(), game.getReachableStates());
// storm::dd::Add<Type, ValueType> const& A, storm::dd::Bdd<Type> const& allRows, std::set<storm::expressions::Variable> const& rowMetaVariables, std::set<storm::expressions::Variable> const& columnMetaVariables, std::vector<std::pair<storm::expressions::Variable, storm::expressions::Variable>> const& rowColumnMetaVariablePairs, std::set<storm::expressions::Variable> const& player1Variables, std::set<storm::expressions::Variable> const& player2Variables
} else {
// 3. if the bounds suffice to complete checkTask, return result now .
// Do not numerically solve the game if there is a qualitative bound around.
// 4. if the bounds do not suffice
STORM_LOG_ASSERT ( false , " Quantiative refinement not yet there. :) " ) ;
}
}
STORM_LOG_ASSERT ( false , " This point must not be reached. " ) ;
return nullptr ;
return nullptr ;
}
}
@ -247,20 +254,22 @@ namespace storm {
STORM_LOG_ASSERT ( prob1Max . hasPlayer1Strategy ( ) , " Unable to proceed without strategy. " ) ;
STORM_LOG_ASSERT ( prob1Max . hasPlayer1Strategy ( ) , " Unable to proceed without strategy. " ) ;
STORM_LOG_ASSERT ( prob1Max . hasPlayer2Strategy ( ) , " Unable to proceed without strategy. " ) ;
STORM_LOG_ASSERT ( prob1Max . hasPlayer2Strategy ( ) , " Unable to proceed without strategy. " ) ;
STORM_LOG_DEBUG ( " Min: " < < prob0Min . states . getNonZeroCount ( ) < < " no states, " < < prob1Min . states . getNonZeroCount ( ) < < " yes states. " ) ;
STORM_LOG_DEBUG ( " Max: " < < prob0Max . states . getNonZeroCount ( ) < < " no states, " < < prob1Max . states . getNonZeroCount ( ) < < " yes states. " ) ;
STORM_LOG_TRACE ( " Min: " < < prob0Min . states . getNonZeroCount ( ) < < " no states, " < < prob1Min . states . getNonZeroCount ( ) < < " yes states. " ) ;
STORM_LOG_TRACE ( " Max: " < < prob0Max . states . getNonZeroCount ( ) < < " no states, " < < prob1Max . states . getNonZeroCount ( ) < < " yes states. " ) ;
return detail : : GameProb01Result < Type > ( prob0Min , prob1Min , prob0Max , prob1Max ) ;
return detail : : GameProb01Result < Type > ( prob0Min , prob1Min , prob0Max , prob1Max ) ;
}
}
template < storm : : dd : : DdType Type , typename ValueType >
template < storm : : dd : : DdType Type , typename ValueType >
storm : : expressions : : Expression GameBasedMdpModelChecker < Type , ValueType > : : getExpression ( storm : : logic : : Formula const & formula ) {
storm : : expressions : : Expression GameBasedMdpModelChecker < Type , ValueType > : : getExpression ( storm : : logic : : Formula const & formula ) {
STORM_LOG_THROW ( formula . isAtomicExpressionFormula ( ) | | formula . isAtomicLabelFormula ( ) , storm : : exceptions : : InvalidPropertyException , " The target states have to be given as label or an expression. " ) ;
STORM_LOG_THROW ( formula . isBooleanLiteralFormula ( ) | | formula . is AtomicExpressionFormula ( ) | | formula . isAtomicLabelFormula ( ) , storm : : exceptions : : InvalidPropertyException , " The target states have to be given as label or an expression. " ) ;
storm : : expressions : : Expression result ;
storm : : expressions : : Expression result ;
if ( formula . isAtomicLabelFormula ( ) ) {
if ( formula . isAtomicLabelFormula ( ) ) {
result = preprocessedProgram . getLabelExpression ( formula . asAtomicLabelFormula ( ) . getLabel ( ) ) ;
result = preprocessedProgram . getLabelExpression ( formula . asAtomicLabelFormula ( ) . getLabel ( ) ) ;
} else {
} else if ( formula . isAtomicExpressionFormula ( ) ) {
result = formula . asAtomicExpressionFormula ( ) . getExpression ( ) ;
result = formula . asAtomicExpressionFormula ( ) . getExpression ( ) ;
} else {
result = formula . asBooleanLiteralFormula ( ) . isTrueFormula ( ) ? originalProgram . getManager ( ) . boolean ( true ) : originalProgram . getManager ( ) . boolean ( false ) ;
}
}
return result ;
return result ;
}
}