SSPIRK33.hxx

Go to the documentation of this file.

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\
 * Copyright (c) 2025, Davide Stocco and Enrico Bertolazzi.                                      *
 *                                                                                               *
 * The Sandals project is distributed under the BSD 2-Clause License.                            *
 *                                                                                               *
 * Davide Stocco                                                               Enrico Bertolazzi *
 * University of Trento                                                     University of Trento *
 * e-mail: davide.stocco@unitn.it                             e-mail: enrico.bertolazzi@unitn.it *
\* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
 
#pragma once
 
#ifndef SANDALS_SSPIRK33_HXX
#define SANDALS_SSPIRK33_HXX
 
namespace Sandals
{
  class SSPIRK33Tableau : public Tableau<3>
  {
  public:
    using Tableau<3>::Type;
    using Tableau<3>::Vector;
    using Tableau<3>::Matrix;

    SSPIRK33Tableau() {
      this->name  = "SSPIRK33";
      this->type  = Type::DIRK;
      this->order = 3;
      Real t_1{1.0/2.0};
      Real t_2{std::sqrt(2.0)/4.0};
      Real t_3{1.0/3.0};
      Real t_4{t_1-t_2};
      Real t_5{t_1+t_2};
      this->A << t_4, 0.0, 0.0,
                 t_2, t_4, 0.0,
                 t_2, t_2, t_4;
      this->b << t_3, t_3, t_3;
      this->c << t_4, t_1, t_5;
    }
  }; // class SSPIRK33Tableau

  template <Integer N, Integer M = 0>
  class SSPIRK33 : public RungeKutta<3, N, M>
  {
  public:
    using System = typename Implicit<N, M>::Pointer; 

    SSPIRK33() : RungeKutta<3, N, M>(SSPIRK33Tableau()) {}

    SSPIRK33(System t_system) : RungeKutta<3, N, M>(SSPIRK33Tableau(), t_system) {}
 
  }; // class SSPIRK33
 
} // namespace Sandals
 
#endif // SANDALS_SSPIRK33_HXX