1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
// Copyright (C) 2005 Anders Logg.
// Licensed under the GNU LGPL Version 2.1.
//
// First added: 2005-11-04
// Last changed: 2005-12-09
#include <dolfin/ParameterSystem.h>
#include <dolfin/Adaptivity.h>
using namespace dolfin;
//-----------------------------------------------------------------------------
Adaptivity::Adaptivity(const ODE& ode, const Method& method)
: ode(ode), method(method)
{
tol = get("ODE tolerance");
_kmax = get("ODE maximum time step");
beta = get("ODE interval threshold");
safety = get("ODE safety factor");
kfixed = get("ODE fixed time step");
safety_old = safety;
safety_max = safety;
num_rejected = 0;
_accept = true;
// Scale tolerance with the square root of the number of components
//tol /= sqrt(static_cast<real>(ode.size()));
}
//-----------------------------------------------------------------------------
Adaptivity::~Adaptivity()
{
dolfin_info("Number of rejected time steps: %d", num_rejected);
}
//-----------------------------------------------------------------------------
bool Adaptivity::accept()
{
if ( _accept )
{
safety_old = safety;
safety = Controller::updateHarmonic(safety_max, safety_old, safety_max);
//cout << "---------------------- Time step ok -----------------------" << endl;
}
else
{
if ( safety > safety_old )
{
safety_max = 0.9*safety_old;
safety_old = safety;
safety = safety_max;
}
else
{
safety_old = safety;
safety = 0.5*safety;
}
num_rejected++;
}
//dolfin_info("safefy factor = %.3e", safety);
return _accept;
}
//-----------------------------------------------------------------------------
real Adaptivity::threshold() const
{
return beta;
}
//-----------------------------------------------------------------------------
real Adaptivity::kmax() const
{
return _kmax;
}
//-----------------------------------------------------------------------------
|