DASSL-opts.h

Go to the documentation of this file.

// DO NOT EDIT!
// Generated automatically from liboctave/numeric/DASSL-opts.in.
 
#if ! defined (octave_DASSL_options_h)
#define octave_DASSL_options_h 1
 
#include <cmath>
 
#include <limits>
 
#include "DAE.h"
 
 
class
DASSL_options
{
public:
 
  DASSL_options ()
    : m_absolute_tolerance (),
      m_relative_tolerance (),
      m_compute_consistent_initial_condition (),
      m_enforce_nonnegativity_constraints (),
      m_initial_step_size (),
      m_maximum_order (),
      m_maximum_step_size (),
      m_step_limit (),
      m_reset ()
    {
      init ();
    }
 
  DASSL_options (const DASSL_options& opt)
    : m_absolute_tolerance (opt.m_absolute_tolerance),
      m_relative_tolerance (opt.m_relative_tolerance),
      m_compute_consistent_initial_condition (opt.m_compute_consistent_initial_condition),
      m_enforce_nonnegativity_constraints (opt.m_enforce_nonnegativity_constraints),
      m_initial_step_size (opt.m_initial_step_size),
      m_maximum_order (opt.m_maximum_order),
      m_maximum_step_size (opt.m_maximum_step_size),
      m_step_limit (opt.m_step_limit),
      m_reset (opt.m_reset)
    { }
 
  DASSL_options& operator = (const DASSL_options& opt)
    {
      if (this != &opt)
        {
          m_absolute_tolerance = opt.m_absolute_tolerance;
          m_relative_tolerance = opt.m_relative_tolerance;
          m_compute_consistent_initial_condition = opt.m_compute_consistent_initial_condition;
          m_enforce_nonnegativity_constraints = opt.m_enforce_nonnegativity_constraints;
          m_initial_step_size = opt.m_initial_step_size;
          m_maximum_order = opt.m_maximum_order;
          m_maximum_step_size = opt.m_maximum_step_size;
          m_step_limit = opt.m_step_limit;
          m_reset = opt.m_reset;
        }
 
      return *this;
    }
 
  ~DASSL_options () { }
 
  void init ()
    {
      m_absolute_tolerance.resize (dim_vector (1, 1));
      m_absolute_tolerance(0) = ::sqrt (std::numeric_limits<double>::epsilon ());
      m_relative_tolerance.resize (dim_vector (1, 1));
      m_relative_tolerance(0) = ::sqrt (std::numeric_limits<double>::epsilon ());
      m_compute_consistent_initial_condition = 0;
      m_enforce_nonnegativity_constraints = 0;
      m_initial_step_size = -1.0;
      m_maximum_order = -1;
      m_maximum_step_size = -1.0;
      m_step_limit = -1;
      m_reset = true;
    }
 
  void set_options (const DASSL_options& opt)
    {
      m_absolute_tolerance = opt.m_absolute_tolerance;
      m_relative_tolerance = opt.m_relative_tolerance;
      m_compute_consistent_initial_condition = opt.m_compute_consistent_initial_condition;
      m_enforce_nonnegativity_constraints = opt.m_enforce_nonnegativity_constraints;
      m_initial_step_size = opt.m_initial_step_size;
      m_maximum_order = opt.m_maximum_order;
      m_maximum_step_size = opt.m_maximum_step_size;
      m_step_limit = opt.m_step_limit;
      m_reset = opt.m_reset;
    }
 
  void set_default_options () { init (); }
 
  void set_absolute_tolerance (double val)
    {
      m_absolute_tolerance.resize (dim_vector (1, 1));
      m_absolute_tolerance(0) = (val > 0.0) ? val : ::sqrt (std::numeric_limits<double>::epsilon ());
      m_reset = true;
    }
 
  void set_absolute_tolerance (const Array<double>& val)
    { m_absolute_tolerance = val; m_reset = true; }
 
  void set_relative_tolerance (double val)
    {
      m_relative_tolerance.resize (dim_vector (1, 1));
      m_relative_tolerance(0) = (val > 0.0) ? val : ::sqrt (std::numeric_limits<double>::epsilon ());
      m_reset = true;
    }
 
  void set_relative_tolerance (const Array<double>& val)
    { m_relative_tolerance = val; m_reset = true; }
 
  void set_compute_consistent_initial_condition (octave_idx_type val)
    { m_compute_consistent_initial_condition = val; m_reset = true; }
 
  void set_enforce_nonnegativity_constraints (octave_idx_type val)
    { m_enforce_nonnegativity_constraints = val; m_reset = true; }
 
  void set_initial_step_size (double val)
    { m_initial_step_size = (val >= 0.0) ? val : -1.0; m_reset = true; }
 
  void set_maximum_order (octave_idx_type val)
    { m_maximum_order = val; m_reset = true; }
 
  void set_maximum_step_size (double val)
    { m_maximum_step_size = (val >= 0.0) ? val : -1.0; m_reset = true; }
 
  void set_step_limit (octave_idx_type val)
    { m_step_limit = (val >= 0) ? val : -1; m_reset = true; }
  Array<double> absolute_tolerance () const
    { return m_absolute_tolerance; }
 
  Array<double> relative_tolerance () const
    { return m_relative_tolerance; }
 
  octave_idx_type compute_consistent_initial_condition () const
    { return m_compute_consistent_initial_condition; }
 
  octave_idx_type enforce_nonnegativity_constraints () const
    { return m_enforce_nonnegativity_constraints; }
 
  double initial_step_size () const
    { return m_initial_step_size; }
 
  octave_idx_type maximum_order () const
    { return m_maximum_order; }
 
  double maximum_step_size () const
    { return m_maximum_step_size; }
 
  octave_idx_type step_limit () const
    { return m_step_limit; }
 
private:
 
  Array<double> m_absolute_tolerance;
  Array<double> m_relative_tolerance;
  octave_idx_type m_compute_consistent_initial_condition;
  octave_idx_type m_enforce_nonnegativity_constraints;
  double m_initial_step_size;
  octave_idx_type m_maximum_order;
  double m_maximum_step_size;
  octave_idx_type m_step_limit;
 
protected:
 
  bool m_reset;
};
 
#endif