RelativeError.h

Go to the documentation of this file.

// -*- C++ -*-

// Copyright (C) 2002 Ralf Deiterding
// Brandenburgische Universitaet Cottbus
//
// Copyright (C) 2003-2007 California Institute of Technology
// Ralf Deiterding, ralf@amroc.net

#ifndef AMROC_RELATIVE_ERROR_H
#define AMROC_RELATIVE_ERROR_H

#include "StdCriterion.h"

#define VizServer 0

template <class VectorType, class FixupType, class FlagType, int dim> class AMRSolverBase;

template <class VectorType, class Fixup, class FlagType, int dim>
class RelativeError : 
  public StdCriterion<VectorType,FlagType,dim> {
  typedef typename VectorType::InternalDataType DataType;
  typedef StdCriterion<VectorType,FlagType,dim> base;
public:
  typedef AMRSolverBase<VectorType,FixupType,FlagType,dim> solver_type;
  typedef typename base::vec_grid_fct_type vec_grid_fct_type;  
  typedef typename base::grid_fct_type grid_fct_type;
  typedef typename base::flag_fct_type flag_fct_type;
  typedef typename base::max_vector_type max_vector_type;

  RelativeError(solver_type& solver) : base(), _Solver(solver) {
    base::SetShadowCriterion(true);
    base::SetUpdateShadow(true);
    Order = std::pow(2.0,static_cast<DataType>(solver.NMethodOrder())+1.0) - 2.0;
    Maxv = static_cast<DataType>(0.0);
    Tol = static_cast<DataType>(0.0);
    Sc = static_cast<DataType>(0.0);
    ScTol = static_cast<DataType>(0.0);
  }

  virtual ~RelativeError() {}
  
  virtual void register_at(ControlDevice& Ctrl) {}
  virtual void register_at(ControlDevice& Ctrl, const std::string& prefix) {
    base::LocCtrl = Ctrl.getSubDevice(prefix+"RelativeError");
    char Name[16];
    for (int d=0; d<max_vector_type::Length(); d++) {
      std::sprintf(Name,"Max(%d)",d+1);
      RegisterAt(base::LocCtrl,Name,Maxv(d));
      std::sprintf(Name,"Tol(%d)",d+1);
      RegisterAt(base::LocCtrl,Name,Tol(d));
      std::sprintf(Name,"ScTol(%d)",d+1);     
      RegisterAt(base::LocCtrl,Name,ScTol(d));
      std::sprintf(Name,"MaxLev(%d)",d+1);
      RegisterAt(base::LocCtrl,Name,base::_MaxLevel[d]);
    }    
    RegisterAt(base::LocCtrl,"Output",base::_Output);
  }

  virtual void update() { 
    Sc = ScTol*Maxv;
    int d=max_vector_type::Length();
    for (; d>0; d--) 
      if (Tol(d-1)>static_cast<DataType>(0.0) &&
          Sc(d-1)>static_cast<DataType>(0.0)) 
        break;
    if (d>0) {
      base::SetNcnt(d);
      base::SetIsUsed(true);
    }
    else 
      base::SetIsUsed(false);
  }

  virtual bool SetFlags(vec_grid_fct_type& u, grid_fct_type& work, flag_fct_type& flags, 
                        const int& cnt, const int& Time, const int& Level, const double& t,
                        const FlagType& FlagValue) {
    if (Tol(cnt)<=0.0 || Sc(cnt)<=0.0) return false;
    int TStep = TimeStep(work,Level);
    if (Time==0 || (base::MaxLevel(cnt)<Level && base::MaxLevel(cnt)>=0)) {
      if (base::OutputFlags()) {
        forall(work,Time,Level,c)
          work(Time+TStep,Level,c) = static_cast<DataType>(0.0);
        end_forall 
      }
      return true;
    }

    forall(u,Time,Level,c)
      equals_from(work(Time,Level,c), u(Time,Level,c), cnt);
      equals_from(work(Time+TStep,Level,c), u(Time+TStep,Level,c), cnt);
      work(Time+TStep,Level,c).minus(work(Time,Level,c));
      base::Abs(work(Time+TStep,Level,c));
    end_forall 

    if (base::OutputFlags() && Solver_().LastOutputTime()==Time && Level==0) {
      DataType Maxv = MaxVal(work, Time, 0);
      if (MY_PROC == VizServer) 
        std::cout << " Max(" << cnt+1 << ") on L0=" << Maxv << "  ";   
    }
          
    forall(u,Time,Level,c)
      base::Abs(work(Time,Level,c));
      base::Max(work(Time,Level,c),Sc(cnt));
      work(Time+TStep,Level,c).divide(work(Time,Level,c));
      work(Time+TStep,Level,c).divide(Order);
    end_forall 

    base::FlagByValue(work, flags, Time, Level, Tol(cnt), FlagValue);
    return true;
  }

  virtual void OutputName(char* name, int cnt) { std::sprintf(name,"relerr_%d",cnt+1); }
  inline solver_type& Solver_() { return _Solver; }
  inline const solver_type& Solver_() const { return _Solver; }

  solver_type& _Solver;
  max_vector_type Tol, ScTol, Sc, Maxv;
  DataType Order;
};

#endif

---