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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
/* This file is part of the Gudhi Library - https://gudhi.inria.fr/ - which is released under MIT.
* See file LICENSE or go to https://gudhi.inria.fr/licensing/ for full license details.
* Author(s): Siargey Kachanovich
*
* Copyright (C) 2019 Inria
*
* Modification(s):
* - YYYY/MM Author: Description of the modification
*/
#ifndef FUNCTIONS_FUNCTION_SM_IN_RD_H_
#define FUNCTIONS_FUNCTION_SM_IN_RD_H_
#include <cstdlib> // for std::size_t
#include <Eigen/Dense>
namespace Gudhi {
namespace coxeter_triangulation {
/**
* \class Function_Sm_in_Rd
* \brief A class for the function that defines an m-dimensional implicit sphere embedded
* in the d-dimensional Euclidean space.
*/
struct Function_Sm_in_Rd {
/** \brief Value of the function at a specified point.
* @param[in] p The input point. The dimension needs to coincide with the ambient dimension.
*/
Eigen::VectorXd operator()(const Eigen::VectorXd& p) const {
Eigen::VectorXd x = p;
for (std::size_t i = 0; i < d_; ++i) x(i) -= center_[i];
Eigen::VectorXd result = Eigen::VectorXd::Zero(k_);
for (std::size_t i = 0; i < m_ + 1; ++i) result(0) += x(i) * x(i);
result(0) -= r_ * r_;
for (std::size_t j = 1; j < k_; ++j) result(j) = x(m_ + j);
return result;
}
/** \brief Returns the domain dimension. Same as the ambient dimension of the sphere. */
std::size_t amb_d() const { return d_; };
/** \brief Returns the codomain dimension. Same as the codimension of the sphere. */
std::size_t cod_d() const { return k_; };
/** \brief Returns a point on the sphere. */
Eigen::VectorXd seed() const {
Eigen::VectorXd result = Eigen::VectorXd::Zero(d_);
result(0) += r_;
for (std::size_t i = 0; i < d_; ++i) result(i) += center_[i];
return result;
}
/**
* \brief Constructor of the function that defines an m-dimensional implicit sphere embedded
* in the d-dimensional Euclidean space.
*
* @param[in] r The radius of the sphere.
* @param[in] m The dimension of the sphere.
* @param[in] d The ambient dimension of the sphere.
* @param[in] center The center of the sphere.
*/
Function_Sm_in_Rd(double r, std::size_t m, std::size_t d, Eigen::VectorXd center)
: m_(m), k_(d - m), d_(d), r_(r), center_(center) {}
/**
* \brief Constructor of the function that defines an m-dimensional implicit sphere embedded
* in the d-dimensional Euclidean space centered at the origin.
*
* @param[in] r The radius of the sphere.
* @param[in] m The dimension of the sphere.
* @param[in] d The ambient dimension of the sphere.
*/
Function_Sm_in_Rd(double r, std::size_t m, std::size_t d)
: m_(m), k_(d - m), d_(d), r_(r), center_(Eigen::VectorXd::Zero(d_)) {}
/**
* \brief Constructor of the function that defines an m-dimensional implicit sphere embedded
* in the (m+1)-dimensional Euclidean space.
*
* @param[in] r The radius of the sphere.
* @param[in] m The dimension of the sphere.
* @param[in] center The center of the sphere.
*/
Function_Sm_in_Rd(double r, std::size_t m, Eigen::VectorXd center)
: m_(m), k_(1), d_(m_ + 1), r_(r), center_(center) {}
/**
* \brief Constructor of the function that defines an m-dimensional implicit sphere embedded
* in the (m+1)-dimensional Euclidean space centered at the origin.
*
* @param[in] r The radius of the sphere.
* @param[in] m The dimension of the sphere.
*/
Function_Sm_in_Rd(double r, std::size_t m) : m_(m), k_(1), d_(m_ + 1), r_(r), center_(Eigen::VectorXd::Zero(d_)) {}
Function_Sm_in_Rd(const Function_Sm_in_Rd& rhs) : Function_Sm_in_Rd(rhs.r_, rhs.m_, rhs.d_, rhs.center_) {}
private:
std::size_t m_, k_, d_;
double r_;
Eigen::VectorXd center_;
};
} // namespace coxeter_triangulation
} // namespace Gudhi
#endif
|