tempest/src/storm/utility/ExplicitExporter.cpp

#include "ExplicitExporter.h"

#include "storm/adapters/CarlAdapter.h"
#include "storm/utility/constants.h"
#include "storm/utility/macros.h"
#include "storm/exceptions/NotImplementedException.h"
#include "storm/models/sparse/Dtmc.h"
#include "storm/models/sparse/Mdp.h"
#include "storm/models/sparse/Ctmc.h"
#include "storm/models/sparse/MarkovAutomaton.h"

#include "storm/models/sparse/StandardRewardModel.h"


namespace storm {
    namespace exporter {
        template<typename ValueType>
        void explicitExportSparseModel(std::ostream& os, std::shared_ptr<storm::models::sparse::Model<ValueType>> sparseModel,  std::vector<std::string> const& parameters) {
            bool embedded = false;
            if(sparseModel->getType() == storm::models::ModelType::Ctmc || sparseModel->getType() == storm::models::ModelType::MarkovAutomaton) {
                STORM_LOG_WARN("This format only supports discrete time models");
                embedded = true;
            }
            
            STORM_LOG_THROW(embedded || sparseModel->getType() == storm::models::ModelType::Mdp || sparseModel->getType() == storm::models::ModelType::Dtmc , storm::exceptions::NotImplementedException, "This functionality is not yet implemented." );
            
            std::vector<ValueType> exitRates; // Only for CTMCs and MAs.
            if(sparseModel->getType() == storm::models::ModelType::Ctmc) {
                exitRates = sparseModel->template as<storm::models::sparse::Ctmc<ValueType>>()->getExitRateVector();
            } else if(sparseModel->getType() == storm::models::ModelType::MarkovAutomaton) {
                exitRates = sparseModel->template as<storm::models::sparse::MarkovAutomaton<ValueType>>()->getExitRates();
            }
            
            os << "// Exported by storm" << std::endl;
            os << "// Original model type: " << sparseModel->getType() << std::endl;
            os << "@type: mdp" << std::endl;
            os << "@parameters" << std::endl;
            for (auto const& p : parameters) {
               os << p << " ";
            }
            os << std::endl;
            os << "@nr_states" << std::endl  << sparseModel->getNumberOfStates() <<  std::endl;
            os << "@model" << std::endl;
            storm::storage::SparseMatrix<ValueType> const& matrix = sparseModel->getTransitionMatrix();
            
            for (typename storm::storage::SparseMatrix<ValueType>::index_type group = 0; group < matrix.getRowGroupCount(); ++group) {
                os << "state " << group;
                
                if (!embedded) {
                   bool first = true;
                   for (auto const& rewardModelEntry : sparseModel->getRewardModels()) {
                       if (first) {
                           os << " [";
                           first = false;
                       } else {
                           os << ", ";
                       }
                       
                       if(rewardModelEntry.second.hasStateRewards()) {
                           os << rewardModelEntry.second.getStateRewardVector().at(group);
                       } else {
                           os << "0";
                       }
                    }
                    
                    if (!first) {
                        os << "]";
                    }
                } else {
                    // We currently only support the expected time.
                    os << " [" << storm::utility::one<ValueType>()/exitRates.at(group) << "]";
                }
                
                for(auto const& label : sparseModel->getStateLabeling().getLabelsOfState(group)) {
                    os << " " << label;
                }
                os << std::endl;
                typename storm::storage::SparseMatrix<ValueType>::index_type start = matrix.hasTrivialRowGrouping() ? group : matrix.getRowGroupIndices()[group];
                typename storm::storage::SparseMatrix<ValueType>::index_type end = matrix.hasTrivialRowGrouping() ? group + 1 : matrix.getRowGroupIndices()[group + 1];
                
                
                for (typename storm::storage::SparseMatrix<ValueType>::index_type i = start; i < end; ++i) {
                    // Print the actual row.
                    os << "\taction " << i - start;
                    if (!embedded) {
                        bool first = true;
                        for (auto const& rewardModelEntry : sparseModel->getRewardModels()) {
                            if (first) {
                                os << " [";
                                first = false;
                            } else {
                                os << ", ";
                            }
                            
                            if(rewardModelEntry.second.hasStateActionRewards()) {
                                os << storm::utility::to_string(rewardModelEntry.second.getStateActionRewardVector().at(i));
                            } else {
                                os << "0";
                            }
                            
                        }
                        if (!first) {
                            os << "]";
                        }
                    } else {
                        // We currently only support the expected time.
                    }

                    
                    
                    if(sparseModel->hasChoiceLabeling()) {
                        //TODO
                    }
                    os << std::endl;
                    
                    
                    for(auto it = matrix.begin(i); it != matrix.end(i); ++it) {
                        ValueType prob = it->getValue();
                        if(embedded) {
                            prob = prob / exitRates.at(group);
                        }
                        os << "\t\t" << it->getColumn() << " : ";
                        os << storm::utility::to_string(prob) << std::endl;
                    }
                    
                }
            }
            
        }
        
        
        
        template void explicitExportSparseModel<double>(std::ostream& os, std::shared_ptr<storm::models::sparse::Model<double>> sparseModel, std::vector<std::string> const& parameters);
        
        template void explicitExportSparseModel<storm::RationalNumber>(std::ostream& os, std::shared_ptr<storm::models::sparse::Model<storm::RationalNumber>> sparseModel, std::vector<std::string> const& parameters);
        template void explicitExportSparseModel<storm::RationalFunction>(std::ostream& os, std::shared_ptr<storm::models::sparse::Model<storm::RationalFunction>> sparseModel, std::vector<std::string> const& parameters);
    }
}