Skip to content
Snippets Groups Projects
Select Git revision
1 result Searching

ComputingTasks.hh

Blame
  • Forked from Dynare / preprocessor
    Source project has a limited visibility.
    Shocks.cc 6.71 KiB
    /*
     * Copyright (C) 2003-2009 Dynare Team
     *
     * This file is part of Dynare.
     *
     * Dynare is free software: you can redistribute it and/or modify
     * it under the terms of the GNU General Public License as published by
     * the Free Software Foundation, either version 3 of the License, or
     * (at your option) any later version.
     *
     * Dynare is distributed in the hope that it will be useful,
     * but WITHOUT ANY WARRANTY; without even the implied warranty of
     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     * GNU General Public License for more details.
     *
     * You should have received a copy of the GNU General Public License
     * along with Dynare.  If not, see <http://www.gnu.org/licenses/>.
     */
    
    using namespace std;
    
    #include <iostream>
    
    #include "Shocks.hh"
    
    AbstractShocksStatement::AbstractShocksStatement(bool mshocks_arg,
                                                     const det_shocks_type &det_shocks_arg,
                                                     const var_and_std_shocks_type &var_shocks_arg,
                                                     const var_and_std_shocks_type &std_shocks_arg,
                                                     const covar_and_corr_shocks_type &covar_shocks_arg,
                                                     const covar_and_corr_shocks_type &corr_shocks_arg,
                                                     const SymbolTable &symbol_table_arg) :
      mshocks(mshocks_arg),
      det_shocks(det_shocks_arg),
      var_shocks(var_shocks_arg),
      std_shocks(std_shocks_arg),
      covar_shocks(covar_shocks_arg),
      corr_shocks(corr_shocks_arg),
      symbol_table(symbol_table_arg)
    {
    }
    
    void
    AbstractShocksStatement::writeDetShocks(ostream &output) const
    {
      int exo_det_length = 0;
    
      for(det_shocks_type::const_iterator it = det_shocks.begin();
          it != det_shocks.end(); it++)
        {
          int id = symbol_table.getTypeSpecificID(it->first) + 1;
          bool exo_det = (symbol_table.getType(it->first) == eExogenousDet);
          int set_shocks_index = ((int) mshocks) + 2 * ((int) exo_det);
    
          for (unsigned int i = 0; i < it->second.size(); i++)
            {
              const int &period1 = it->second[i].period1;
              const int &period2 = it->second[i].period2;
              const NodeID value = it->second[i].value;
    
              if (period1 == period2)
                {
                  output << "set_shocks(" << set_shocks_index << "," << period1
                         << ", " << id << ", ";
                  value->writeOutput(output);
                  output << ");" << endl;
                }
              else
                {
                  output << "set_shocks(" << set_shocks_index << "," << period1