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
78
79
80
81
|
/*
//
// Copyright 1997-2009 Torsten Rohlfing
//
// Copyright 2004-2011 SRI International
//
// This file is part of the Computational Morphometry Toolkit.
//
// http://www.nitrc.org/projects/cmtk/
//
// The Computational Morphometry Toolkit is free software: you can
// redistribute it and/or modify it under the terms of the GNU General Public
// License as published by the Free Software Foundation, either version 3 of
// the License, or (at your option) any later version.
//
// The Computational Morphometry Toolkit is distributed in the hope that it
// will be useful, but WITHOUT ANY WARRANTY; without even the implied
// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License along
// with the Computational Morphometry Toolkit. If not, see
// <http://www.gnu.org/licenses/>.
//
// $Revision: 5436 $
//
// $LastChangedDate: 2018-12-10 19:01:20 -0800 (Mon, 10 Dec 2018) $
//
// $LastChangedBy: torstenrohlfing $
//
*/
#include "cmtkFunctional.h"
namespace
cmtk
{
/** \addtogroup Base */
//@{
Functional::ReturnType
Functional::EvaluateWithGradient
( Self::ParameterVectorType& v, Self::ParameterVectorType& g, const Types::Coordinate step )
{
const Self::ReturnType baseValue = this->EvaluateAt( v );
for ( size_t dim = 0; dim < this->VariableParamVectorDim(); ++dim )
{
const Types::Coordinate stepScale = this->GetParamStep( dim, step );
if ( stepScale <= 0 )
{
g[dim] = 0;
}
else
{
const Types::Coordinate v0 = v[dim];
v[dim] += stepScale;
const Self::ReturnType upper = this->EvaluateAt( v );
v[dim] = v0 - stepScale;
const Self::ReturnType lower = this->EvaluateAt( v );
v[dim] = v0;
if ( (upper > baseValue) || (lower > baseValue) )
{
g[dim] = upper-lower;
}
else
{
g[dim] = 0;
}
}
}
return baseValue;
}
} // namespace cmtk
|
