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
|
// Copyright (C) 2005 Anders Logg.
// Licensed under the GNU LGPL Version 2.1.
//
// First added: 2005-11-02
// Last changed: 2005-11-09
#ifndef __CONTROLLER_H
#define __CONTROLLER_H
#include <dolfin/common/types.h>
namespace dolfin
{
/// Controller for adaptive time step selection, based on the list
/// of controllers presented in "Digital Filters in Adaptive
/// Time-Stepping" by Gustaf Soderlind (ACM TOMS 2003).
class Controller
{
public:
/// Create uninitialized controller
Controller();
/// Create controller with given initial state
Controller(real k, real tol, uint p, real kmax);
/// Destructor
~Controller();
/// Initialize controller
void init(real k, real tol, uint p, real kmax);
/// Reset controller
void reset(real k);
/// Default controller
real update(real e, real tol);
/// Controller H0211
real updateH0211(real e, real tol);
/// Controller H211PI
real updateH211PI(real e, real tol);
/// No control, simple formula
real updateSimple(real e, real tol);
/// Control by harmonic mean value
real updateHarmonic(real e, real tol);
/// Control by harmonic mean value (no history supplied)
static real updateHarmonic(real knew, real kold, real kmax);
private:
// Time step history
real k0, k1;
// Error history
real e0;
// Asymptotics: e ~ k^p
real p;
// Maximum time step
real kmax;
};
}
#endif
|