v0.14.0
test_T3dg_16.cpp
Go to the documentation of this file.
1 #include "../../../src/FTensor.hpp"
2 #include "../test_for_zero.hpp"
3 #include <iostream>
4 using namespace FTensor;
5 using namespace std;
6 
7 void test_T3dg_16(Dg<double, 3, 3> &t3dg_1, const Dg<double, 3, 3> &t3dg_2)
8 {
9  Index<'i', 3> i;
10  Index<'j', 3> j;
11  Index<'k', 3> k;
12 
13  Number<0> N0;
14  Number<1> N1;
15  Number<2> N2;
16 
17  /* Dg tests */
18 
19  t3dg_1(i, j, k) = t3dg_2(i, j, k) * 10;
20  test_for_zero(t3dg_1(0, 0, 0) - t3dg_2(0, 0, 0) * 10, "T3dg*T(0,0,0)");
21  test_for_zero(t3dg_1(0, 0, 1) - t3dg_2(0, 0, 1) * 10, "T3dg*T(0,0,1)");
22  test_for_zero(t3dg_1(0, 0, 2) - t3dg_2(0, 0, 2) * 10, "T3dg*T(0,0,2)");
23  test_for_zero(t3dg_1(0, 1, 0) - t3dg_2(0, 1, 0) * 10, "T3dg*T(0,1,0)");
24  test_for_zero(t3dg_1(0, 1, 1) - t3dg_2(0, 1, 1) * 10, "T3dg*T(0,1,1)");
25  test_for_zero(t3dg_1(0, 1, 2) - t3dg_2(0, 1, 2) * 10, "T3dg*T(0,1,2)");
26  test_for_zero(t3dg_1(0, 2, 0) - t3dg_2(0, 2, 0) * 10, "T3dg*T(0,2,0)");
27  test_for_zero(t3dg_1(0, 2, 1) - t3dg_2(0, 2, 1) * 10, "T3dg*T(0,2,1)");
28  test_for_zero(t3dg_1(0, 2, 2) - t3dg_2(0, 2, 2) * 10, "T3dg*T(0,2,2)");
29  test_for_zero(t3dg_1(1, 0, 0) - t3dg_2(1, 0, 0) * 10, "T3dg*T(1,0,0)");
30  test_for_zero(t3dg_1(1, 0, 1) - t3dg_2(1, 0, 1) * 10, "T3dg*T(1,0,1)");
31  test_for_zero(t3dg_1(1, 0, 2) - t3dg_2(1, 0, 2) * 10, "T3dg*T(1,0,2)");
32  test_for_zero(t3dg_1(1, 1, 0) - t3dg_2(1, 1, 0) * 10, "T3dg*T(1,1,0)");
33  test_for_zero(t3dg_1(1, 1, 1) - t3dg_2(1, 1, 1) * 10, "T3dg*T(1,1,1)");
34  test_for_zero(t3dg_1(1, 1, 2) - t3dg_2(1, 1, 2) * 10, "T3dg*T(1,1,2)");
35  test_for_zero(t3dg_1(1, 2, 0) - t3dg_2(1, 2, 0) * 10, "T3dg*T(1,2,0)");
36  test_for_zero(t3dg_1(1, 2, 1) - t3dg_2(1, 2, 1) * 10, "T3dg*T(1,2,1)");
37  test_for_zero(t3dg_1(1, 2, 2) - t3dg_2(1, 2, 2) * 10, "T3dg*T(1,2,2)");
38  test_for_zero(t3dg_1(2, 0, 0) - t3dg_2(2, 0, 0) * 10, "T3dg*T(2,0,0)");
39  test_for_zero(t3dg_1(2, 0, 1) - t3dg_2(2, 0, 1) * 10, "T3dg*T(2,0,1)");
40  test_for_zero(t3dg_1(2, 0, 2) - t3dg_2(2, 0, 2) * 10, "T3dg*T(2,0,2)");
41  test_for_zero(t3dg_1(2, 1, 0) - t3dg_2(2, 1, 0) * 10, "T3dg*T(2,1,0)");
42  test_for_zero(t3dg_1(2, 1, 1) - t3dg_2(2, 1, 1) * 10, "T3dg*T(2,1,1)");
43  test_for_zero(t3dg_1(2, 1, 2) - t3dg_2(2, 1, 2) * 10, "T3dg*T(2,1,2)");
44  test_for_zero(t3dg_1(2, 2, 0) - t3dg_2(2, 2, 0) * 10, "T3dg*T(2,2,0)");
45  test_for_zero(t3dg_1(2, 2, 1) - t3dg_2(2, 2, 1) * 10, "T3dg*T(2,2,1)");
46  test_for_zero(t3dg_1(2, 2, 2) - t3dg_2(2, 2, 2) * 10, "T3dg*T(2,2,2)");
47 
48  t3dg_1(i, j, k) = t3dg_2(i, j, k) / 10;
49  test_for_zero(t3dg_1(0, 0, 0) - t3dg_2(0, 0, 0) / 10, "T3dg/T(0,0,0)");
50  test_for_zero(t3dg_1(0, 0, 1) - t3dg_2(0, 0, 1) / 10, "T3dg/T(0,0,1)");
51  test_for_zero(t3dg_1(0, 0, 2) - t3dg_2(0, 0, 2) / 10, "T3dg/T(0,0,2)");
52  test_for_zero(t3dg_1(0, 1, 0) - t3dg_2(0, 1, 0) / 10, "T3dg/T(0,1,0)");
53  test_for_zero(t3dg_1(0, 1, 1) - t3dg_2(0, 1, 1) / 10, "T3dg/T(0,1,1)");
54  test_for_zero(t3dg_1(0, 1, 2) - t3dg_2(0, 1, 2) / 10, "T3dg/T(0,1,2)");
55  test_for_zero(t3dg_1(0, 2, 0) - t3dg_2(0, 2, 0) / 10, "T3dg/T(0,2,0)");
56  test_for_zero(t3dg_1(0, 2, 1) - t3dg_2(0, 2, 1) / 10, "T3dg/T(0,2,1)");
57  test_for_zero(t3dg_1(0, 2, 2) - t3dg_2(0, 2, 2) / 10, "T3dg/T(0,2,2)");
58  test_for_zero(t3dg_1(1, 0, 0) - t3dg_2(1, 0, 0) / 10, "T3dg/T(1,0,0)");
59  test_for_zero(t3dg_1(1, 0, 1) - t3dg_2(1, 0, 1) / 10, "T3dg/T(1,0,1)");
60  test_for_zero(t3dg_1(1, 0, 2) - t3dg_2(1, 0, 2) / 10, "T3dg/T(1,0,2)");
61  test_for_zero(t3dg_1(1, 1, 0) - t3dg_2(1, 1, 0) / 10, "T3dg/T(1,1,0)");
62  test_for_zero(t3dg_1(1, 1, 1) - t3dg_2(1, 1, 1) / 10, "T3dg/T(1,1,1)");
63  test_for_zero(t3dg_1(1, 1, 2) - t3dg_2(1, 1, 2) / 10, "T3dg/T(1,1,2)");
64  test_for_zero(t3dg_1(1, 2, 0) - t3dg_2(1, 2, 0) / 10, "T3dg/T(1,2,0)");
65  test_for_zero(t3dg_1(1, 2, 1) - t3dg_2(1, 2, 1) / 10, "T3dg/T(1,2,1)");
66  test_for_zero(t3dg_1(1, 2, 2) - t3dg_2(1, 2, 2) / 10, "T3dg/T(1,2,2)");
67  test_for_zero(t3dg_1(2, 0, 0) - t3dg_2(2, 0, 0) / 10, "T3dg/T(2,0,0)");
68  test_for_zero(t3dg_1(2, 0, 1) - t3dg_2(2, 0, 1) / 10, "T3dg/T(2,0,1)");
69  test_for_zero(t3dg_1(2, 0, 2) - t3dg_2(2, 0, 2) / 10, "T3dg/T(2,0,2)");
70  test_for_zero(t3dg_1(2, 1, 0) - t3dg_2(2, 1, 0) / 10, "T3dg/T(2,1,0)");
71  test_for_zero(t3dg_1(2, 1, 1) - t3dg_2(2, 1, 1) / 10, "T3dg/T(2,1,1)");
72  test_for_zero(t3dg_1(2, 1, 2) - t3dg_2(2, 1, 2) / 10, "T3dg/T(2,1,2)");
73  test_for_zero(t3dg_1(2, 2, 0) - t3dg_2(2, 2, 0) / 10, "T3dg/T(2,2,0)");
74  test_for_zero(t3dg_1(2, 2, 1) - t3dg_2(2, 2, 1) / 10, "T3dg/T(2,2,1)");
75  test_for_zero(t3dg_1(2, 2, 2) - t3dg_2(2, 2, 2) / 10, "T3dg/T(2,2,2)");
76 }
FTensor
JSON compatible output.
Definition: Christof_constructor.hpp:6
FTensor::Number< 0 >
test_for_zero
void test_for_zero(const T &t, const std::string &s)
Definition: test_for_zero.hpp:7
i
FTensor::Index< 'i', SPACE_DIM > i
Definition: hcurl_divergence_operator_2d.cpp:27
FTensor::Index< 'i', 3 >
FTensor::Dg
Definition: Dg_value.hpp:9
std
Definition: enable_if.hpp:5
j
FTensor::Index< 'j', 3 > j
Definition: matrix_function.cpp:19
k
FTensor::Index< 'k', 3 > k
Definition: matrix_function.cpp:20
test_T3dg_16
void test_T3dg_16(Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2)
Definition: test_T3dg_16.cpp:7
Generated by Doxygen 1.8.17 and hosted at University of Glasgow