v0.14.0
Functions
test_T3as.cpp File Reference
#include "../../../src/FTensor.hpp"
#include "../test_for_zero.hpp"
#include <iostream>

Go to the source code of this file.

Functions

void test_T3as_01 (const Dg< double, 3, 3 > &t3dg_2, Tensor3_antisymmetric< double, 3, 3 > &t3as_1)
 
void test_T3as_02 (const Dg< double, 3, 3 > &t3dg_2, Tensor3_antisymmetric< double, 3, 3 > &t3as_1)
 
void test_T3as_03 (const Dg< double, 3, 3 > &t3dg_2, Tensor3_antisymmetric< double, 3, 3 > &t3as_1)
 
void test_T3as_04 (Tensor3_antisymmetric< double, 3, 3 > &t3as_1, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_3)
 
void test_T3as_05 (Tensor3_antisymmetric< double, 3, 3 > &t3as_1, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_3)
 
void test_T3as_06 (Dg< double, 3, 3 > &t3dg_1, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
 
void test_T3as_07 (Tensor3_antisymmetric< double, 3, 3 > &t3as_1, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
 
void test_T3as_08 (Tensor3_antisymmetric< double, 3, 3 > &t3as_1, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
 
void test_T3as_09 (const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
 
void test_T3as_10 (const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
 
void test_T3as_11 (const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
 
void test_T3as_12 (const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
 
void test_T3as_13 (const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
 
void test_T3as_14 (const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
 
void test_T3as (const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, Dg< double, 3, 3 > &t3dg_1, const Dg< double, 3, 3 > &t3dg_2, Tensor3_antisymmetric< double, 3, 3 > &t3as_1, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_3)
 

Function Documentation

◆ test_T3as()

void test_T3as ( const Tensor1< double, 3 > &  t1_2,
const Tensor2< double, 3, 3 > &  t2_2,
Dg< double, 3, 3 > &  t3dg_1,
const Dg< double, 3, 3 > &  t3dg_2,
Tensor3_antisymmetric< double, 3, 3 > &  t3as_1,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_2,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_3 
)

Definition at line 44 of file test_T3as.cpp.

50 {
51  test_T3as_01(t3dg_2, t3as_1);
52  test_T3as_02(t3dg_2, t3as_1);
53  test_T3as_03(t3dg_2, t3as_1);
54  test_T3as_04(t3as_1, t3as_2, t3as_3);
55  test_T3as_05(t3as_1, t3as_2, t3as_3);
56  test_T3as_06(t3dg_1, t3as_2);
57  test_T3as_07(t3as_1, t3as_2);
58  test_T3as_08(t3as_1, t3as_2);
59  test_T3as_09(t1_2, t2_2, t3as_2);
60  test_T3as_10(t1_2, t2_2, t3as_2);
61  test_T3as_11(t1_2, t2_2, t3as_2);
62  test_T3as_12(t1_2, t2_2, t3as_2);
63  test_T3as_13(t1_2, t2_2, t3as_2);
64  test_T3as_14(t1_2, t2_2, t3as_2);
65 }

◆ test_T3as_01()

void test_T3as_01 ( const Dg< double, 3, 3 > &  t3dg_2,
Tensor3_antisymmetric< double, 3, 3 > &  t3as_1 
)

Definition at line 7 of file test_T3as_01.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  t3as_1(i, j, k) = (t3dg_2(i, j, k) && t3dg_2(i, k, j));
19 
20  test_for_zero(t3as_1(0, 0, 0) - (t3dg_2(0, 0, 0) - t3dg_2(0, 0, 0)),
21  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(0,0,0)");
22  test_for_zero(t3as_1(0, 0, 1) - (t3dg_2(0, 0, 1) - t3dg_2(0, 1, 0)),
23  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(0,0,1)");
24  test_for_zero(t3as_1(0, 0, 2) - (t3dg_2(0, 0, 2) - t3dg_2(0, 2, 0)),
25  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(0,0,2)");
26  test_for_zero(t3as_1(0, 1, 0) - (t3dg_2(0, 1, 0) - t3dg_2(0, 0, 1)),
27  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(0,1,0)");
28  test_for_zero(t3as_1(0, 1, 1) - (t3dg_2(0, 1, 1) - t3dg_2(0, 1, 1)),
29  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(0,1,1)");
30  test_for_zero(t3as_1(0, 1, 2) - (t3dg_2(0, 1, 2) - t3dg_2(0, 2, 1)),
31  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(0,1,2)");
32  test_for_zero(t3as_1(0, 2, 0) - (t3dg_2(0, 2, 0) - t3dg_2(0, 0, 2)),
33  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(0,2,0)");
34  test_for_zero(t3as_1(0, 2, 1) - (t3dg_2(0, 2, 1) - t3dg_2(0, 1, 2)),
35  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(0,2,1)");
36  test_for_zero(t3as_1(0, 2, 2) - (t3dg_2(0, 2, 2) - t3dg_2(0, 2, 2)),
37  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(0,2,2)");
38  test_for_zero(t3as_1(1, 0, 0) - (t3dg_2(1, 0, 0) - t3dg_2(1, 0, 0)),
39  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(1,0,0)");
40  test_for_zero(t3as_1(1, 0, 1) - (t3dg_2(1, 0, 1) - t3dg_2(1, 1, 0)),
41  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(1,0,1)");
42  test_for_zero(t3as_1(1, 0, 2) - (t3dg_2(1, 0, 2) - t3dg_2(1, 2, 0)),
43  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(1,0,2)");
44  test_for_zero(t3as_1(1, 1, 0) - (t3dg_2(1, 1, 0) - t3dg_2(1, 0, 1)),
45  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(1,1,0)");
46  test_for_zero(t3as_1(1, 1, 1) - (t3dg_2(1, 1, 1) - t3dg_2(1, 1, 1)),
47  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(1,1,1)");
48  test_for_zero(t3as_1(1, 1, 2) - (t3dg_2(1, 1, 2) - t3dg_2(1, 2, 1)),
49  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(1,1,2)");
50  test_for_zero(t3as_1(1, 2, 0) - (t3dg_2(1, 2, 0) - t3dg_2(1, 0, 2)),
51  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(1,2,0)");
52  test_for_zero(t3as_1(1, 2, 1) - (t3dg_2(1, 2, 1) - t3dg_2(1, 1, 2)),
53  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(1,2,1)");
54  test_for_zero(t3as_1(1, 2, 2) - (t3dg_2(1, 2, 2) - t3dg_2(1, 2, 2)),
55  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(1,2,2)");
56  test_for_zero(t3as_1(2, 0, 0) - (t3dg_2(2, 0, 0) - t3dg_2(2, 0, 0)),
57  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(2,0,0)");
58  test_for_zero(t3as_1(2, 0, 1) - (t3dg_2(2, 0, 1) - t3dg_2(2, 1, 0)),
59  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(2,0,1)");
60  test_for_zero(t3as_1(2, 0, 2) - (t3dg_2(2, 0, 2) - t3dg_2(2, 2, 0)),
61  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(2,0,2)");
62  test_for_zero(t3as_1(2, 1, 0) - (t3dg_2(2, 1, 0) - t3dg_2(2, 0, 1)),
63  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(2,1,0)");
64  test_for_zero(t3as_1(2, 1, 1) - (t3dg_2(2, 1, 1) - t3dg_2(2, 1, 1)),
65  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(2,1,1)");
66  test_for_zero(t3as_1(2, 1, 2) - (t3dg_2(2, 1, 2) - t3dg_2(2, 2, 1)),
67  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(2,1,2)");
68  test_for_zero(t3as_1(2, 2, 0) - (t3dg_2(2, 2, 0) - t3dg_2(2, 0, 2)),
69  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(2,2,0)");
70  test_for_zero(t3as_1(2, 2, 1) - (t3dg_2(2, 2, 1) - t3dg_2(2, 1, 2)),
71  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(2,2,1)");
72  test_for_zero(t3as_1(2, 2, 2) - (t3dg_2(2, 2, 2) - t3dg_2(2, 2, 2)),
73  "T3as(i,j,k)=T3dg(i,j,k) && T3dg(i,k,j)(2,2,2)");
74 }

◆ test_T3as_02()

void test_T3as_02 ( const Dg< double, 3, 3 > &  t3dg_2,
Tensor3_antisymmetric< double, 3, 3 > &  t3as_1 
)

Definition at line 7 of file test_T3as_02.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  t3as_1(j, i, k) = (t3dg_2(i, j, k) && t3dg_2(k, j, i));
19  test_for_zero(t3as_1(0, 0, 0) - (t3dg_2(0, 0, 0) - t3dg_2(0, 0, 0)),
20  "T3dg(i,j,k) && T3dg(k,j,i)(0,0,0)");
21  test_for_zero(t3as_1(0, 0, 1) - (t3dg_2(0, 0, 1) - t3dg_2(1, 0, 0)),
22  "T3dg(i,j,k) && T3dg(k,j,i)(0,0,1)");
23  test_for_zero(t3as_1(0, 0, 2) - (t3dg_2(0, 0, 2) - t3dg_2(2, 0, 0)),
24  "T3dg(i,j,k) && T3dg(k,j,i)(0,0,2)");
25  test_for_zero(t3as_1(1, 0, 0) - (t3dg_2(0, 1, 0) - t3dg_2(0, 1, 0)),
26  "T3dg(i,j,k) && T3dg(k,j,i)(0,1,0)");
27  test_for_zero(t3as_1(1, 0, 1) - (t3dg_2(0, 1, 1) - t3dg_2(1, 1, 0)),
28  "T3dg(i,j,k) && T3dg(k,j,i)(0,1,1)");
29  test_for_zero(t3as_1(1, 0, 2) - (t3dg_2(0, 1, 2) - t3dg_2(2, 1, 0)),
30  "T3dg(i,j,k) && T3dg(k,j,i)(0,1,2)");
31  test_for_zero(t3as_1(2, 0, 0) - (t3dg_2(0, 2, 0) - t3dg_2(0, 2, 0)),
32  "T3dg(i,j,k) && T3dg(k,j,i)(0,2,0)");
33  test_for_zero(t3as_1(2, 0, 1) - (t3dg_2(0, 2, 1) - t3dg_2(1, 2, 0)),
34  "T3dg(i,j,k) && T3dg(k,j,i)(0,2,1)");
35  test_for_zero(t3as_1(2, 0, 2) - (t3dg_2(0, 2, 2) - t3dg_2(2, 2, 0)),
36  "T3dg(i,j,k) && T3dg(k,j,i)(0,2,2)");
37  test_for_zero(t3as_1(0, 1, 0) - (t3dg_2(1, 0, 0) - t3dg_2(0, 0, 1)),
38  "T3dg(i,j,k) && T3dg(k,j,i)(1,0,0)");
39  test_for_zero(t3as_1(0, 1, 1) - (t3dg_2(1, 0, 1) - t3dg_2(1, 0, 1)),
40  "T3dg(i,j,k) && T3dg(k,j,i)(1,0,1)");
41  test_for_zero(t3as_1(0, 1, 2) - (t3dg_2(1, 0, 2) - t3dg_2(2, 0, 1)),
42  "T3dg(i,j,k) && T3dg(k,j,i)(1,0,2)");
43  test_for_zero(t3as_1(1, 1, 0) - (t3dg_2(1, 1, 0) - t3dg_2(0, 1, 1)),
44  "T3dg(i,j,k) && T3dg(k,j,i)(1,1,0)");
45  test_for_zero(t3as_1(1, 1, 1) - (t3dg_2(1, 1, 1) - t3dg_2(1, 1, 1)),
46  "T3dg(i,j,k) && T3dg(k,j,i)(1,1,1)");
47  test_for_zero(t3as_1(1, 1, 2) - (t3dg_2(1, 1, 2) - t3dg_2(2, 1, 1)),
48  "T3dg(i,j,k) && T3dg(k,j,i)(1,1,2)");
49  test_for_zero(t3as_1(2, 1, 0) - (t3dg_2(1, 2, 0) - t3dg_2(0, 2, 1)),
50  "T3dg(i,j,k) && T3dg(k,j,i)(1,2,0)");
51  test_for_zero(t3as_1(2, 1, 1) - (t3dg_2(1, 2, 1) - t3dg_2(1, 2, 1)),
52  "T3dg(i,j,k) && T3dg(k,j,i)(1,2,1)");
53  test_for_zero(t3as_1(2, 1, 2) - (t3dg_2(1, 2, 2) - t3dg_2(2, 2, 1)),
54  "T3dg(i,j,k) && T3dg(k,j,i)(1,2,2)");
55  test_for_zero(t3as_1(0, 2, 0) - (t3dg_2(2, 0, 0) - t3dg_2(0, 0, 2)),
56  "T3dg(i,j,k) && T3dg(k,j,i)(2,0,0)");
57  test_for_zero(t3as_1(0, 2, 1) - (t3dg_2(2, 0, 1) - t3dg_2(1, 0, 2)),
58  "T3dg(i,j,k) && T3dg(k,j,i)(2,0,1)");
59  test_for_zero(t3as_1(0, 2, 2) - (t3dg_2(2, 0, 2) - t3dg_2(2, 0, 2)),
60  "T3dg(i,j,k) && T3dg(k,j,i)(2,0,2)");
61  test_for_zero(t3as_1(1, 2, 0) - (t3dg_2(2, 1, 0) - t3dg_2(0, 1, 2)),
62  "T3dg(i,j,k) && T3dg(k,j,i)(2,1,0)");
63  test_for_zero(t3as_1(1, 2, 1) - (t3dg_2(2, 1, 1) - t3dg_2(1, 1, 2)),
64  "T3dg(i,j,k) && T3dg(k,j,i)(2,1,1)");
65  test_for_zero(t3as_1(1, 2, 2) - (t3dg_2(2, 1, 2) - t3dg_2(2, 1, 2)),
66  "T3dg(i,j,k) && T3dg(k,j,i)(2,1,2)");
67  test_for_zero(t3as_1(2, 2, 0) - (t3dg_2(2, 2, 0) - t3dg_2(0, 2, 2)),
68  "T3dg(i,j,k) && T3dg(k,j,i)(2,2,0)");
69  test_for_zero(t3as_1(2, 2, 1) - (t3dg_2(2, 2, 1) - t3dg_2(1, 2, 2)),
70  "T3dg(i,j,k) && T3dg(k,j,i)(2,2,1)");
71  test_for_zero(t3as_1(2, 2, 2) - (t3dg_2(2, 2, 2) - t3dg_2(2, 2, 2)),
72  "T3dg(i,j,k) && T3dg(k,j,i)(2,2,2)");
73 }

◆ test_T3as_03()

void test_T3as_03 ( const Dg< double, 3, 3 > &  t3dg_2,
Tensor3_antisymmetric< double, 3, 3 > &  t3as_1 
)

Definition at line 7 of file test_T3as_03.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  t3as_1(i, k, j) = (t3dg_2(i, j, k) && t3dg_2(i, k, j));
19  test_for_zero(t3as_1(0, 0, 0) - (t3dg_2(0, 0, 0) - t3dg_2(0, 0, 0)),
20  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(0,0,0)");
21  test_for_zero(t3as_1(0, 1, 0) - (t3dg_2(0, 0, 1) - t3dg_2(0, 1, 0)),
22  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(0,0,1)");
23  test_for_zero(t3as_1(0, 2, 0) - (t3dg_2(0, 0, 2) - t3dg_2(0, 2, 0)),
24  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(0,0,2)");
25  test_for_zero(t3as_1(0, 0, 1) - (t3dg_2(0, 1, 0) - t3dg_2(0, 0, 1)),
26  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(0,1,0)");
27  test_for_zero(t3as_1(0, 1, 1) - (t3dg_2(0, 1, 1) - t3dg_2(0, 1, 1)),
28  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(0,1,1)");
29  test_for_zero(t3as_1(0, 2, 1) - (t3dg_2(0, 1, 2) - t3dg_2(0, 2, 1)),
30  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(0,1,2)");
31  test_for_zero(t3as_1(0, 0, 2) - (t3dg_2(0, 2, 0) - t3dg_2(0, 0, 2)),
32  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(0,2,0)");
33  test_for_zero(t3as_1(0, 1, 2) - (t3dg_2(0, 2, 1) - t3dg_2(0, 1, 2)),
34  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(0,2,1)");
35  test_for_zero(t3as_1(0, 2, 2) - (t3dg_2(0, 2, 2) - t3dg_2(0, 2, 2)),
36  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(0,2,2)");
37  test_for_zero(t3as_1(1, 0, 0) - (t3dg_2(1, 0, 0) - t3dg_2(1, 0, 0)),
38  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(1,0,0)");
39  test_for_zero(t3as_1(1, 1, 0) - (t3dg_2(1, 0, 1) - t3dg_2(1, 1, 0)),
40  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(1,0,1)");
41  test_for_zero(t3as_1(1, 2, 0) - (t3dg_2(1, 0, 2) - t3dg_2(1, 2, 0)),
42  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(1,0,2)");
43  test_for_zero(t3as_1(1, 0, 1) - (t3dg_2(1, 1, 0) - t3dg_2(1, 0, 1)),
44  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(1,1,0)");
45  test_for_zero(t3as_1(1, 1, 1) - (t3dg_2(1, 1, 1) - t3dg_2(1, 1, 1)),
46  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(1,1,1)");
47  test_for_zero(t3as_1(1, 2, 1) - (t3dg_2(1, 1, 2) - t3dg_2(1, 2, 1)),
48  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(1,1,2)");
49  test_for_zero(t3as_1(1, 0, 2) - (t3dg_2(1, 2, 0) - t3dg_2(1, 0, 2)),
50  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(1,2,0)");
51  test_for_zero(t3as_1(1, 1, 2) - (t3dg_2(1, 2, 1) - t3dg_2(1, 1, 2)),
52  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(1,2,1)");
53  test_for_zero(t3as_1(1, 2, 2) - (t3dg_2(1, 2, 2) - t3dg_2(1, 2, 2)),
54  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(1,2,2)");
55  test_for_zero(t3as_1(2, 0, 0) - (t3dg_2(2, 0, 0) - t3dg_2(2, 0, 0)),
56  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(2,0,0)");
57  test_for_zero(t3as_1(2, 1, 0) - (t3dg_2(2, 0, 1) - t3dg_2(2, 1, 0)),
58  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(2,0,1)");
59  test_for_zero(t3as_1(2, 2, 0) - (t3dg_2(2, 0, 2) - t3dg_2(2, 2, 0)),
60  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(2,0,2)");
61  test_for_zero(t3as_1(2, 0, 1) - (t3dg_2(2, 1, 0) - t3dg_2(2, 0, 1)),
62  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(2,1,0)");
63  test_for_zero(t3as_1(2, 1, 1) - (t3dg_2(2, 1, 1) - t3dg_2(2, 1, 1)),
64  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(2,1,1)");
65  test_for_zero(t3as_1(2, 2, 1) - (t3dg_2(2, 1, 2) - t3dg_2(2, 2, 1)),
66  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(2,1,2)");
67  test_for_zero(t3as_1(2, 0, 2) - (t3dg_2(2, 2, 0) - t3dg_2(2, 0, 2)),
68  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(2,2,0)");
69  test_for_zero(t3as_1(2, 1, 2) - (t3dg_2(2, 2, 1) - t3dg_2(2, 1, 2)),
70  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(2,2,1)");
71  test_for_zero(t3as_1(2, 2, 2) - (t3dg_2(2, 2, 2) - t3dg_2(2, 2, 2)),
72  "T3as(i,k,j)=T3dg(i,j,k) && T3dg(i,k,j)(2,2,2)");
73 }

◆ test_T3as_04()

void test_T3as_04 ( Tensor3_antisymmetric< double, 3, 3 > &  t3as_1,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_2,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_3 
)

Definition at line 7 of file test_T3as_04.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  t3as_1(i, j, k) = t3as_2(i, j, k) + t3as_3(i, j, k);
20  test_for_zero(t3as_1(0, 0, 0) - (t3as_2(0, 0, 0) + t3as_3(0, 0, 0)),
21  "T3as(i,j,k) + T3as(i,j,k)(0,0,0)");
22  test_for_zero(t3as_1(0, 0, 1) - (t3as_2(0, 0, 1) + t3as_3(0, 0, 1)),
23  "T3as(i,j,k) + T3as(i,j,k)(0,0,1)");
24  test_for_zero(t3as_1(0, 0, 2) - (t3as_2(0, 0, 2) + t3as_3(0, 0, 2)),
25  "T3as(i,j,k) + T3as(i,j,k)(0,0,2)");
26  test_for_zero(t3as_1(0, 1, 0) - (t3as_2(0, 1, 0) + t3as_3(0, 1, 0)),
27  "T3as(i,j,k) + T3as(i,j,k)(0,1,0)");
28  test_for_zero(t3as_1(0, 1, 1) - (t3as_2(0, 1, 1) + t3as_3(0, 1, 1)),
29  "T3as(i,j,k) + T3as(i,j,k)(0,1,1)");
30  test_for_zero(t3as_1(0, 1, 2) - (t3as_2(0, 1, 2) + t3as_3(0, 1, 2)),
31  "T3as(i,j,k) + T3as(i,j,k)(0,1,2)");
32  test_for_zero(t3as_1(0, 2, 0) - (t3as_2(0, 2, 0) + t3as_3(0, 2, 0)),
33  "T3as(i,j,k) + T3as(i,j,k)(0,2,0)");
34  test_for_zero(t3as_1(0, 2, 1) - (t3as_2(0, 2, 1) + t3as_3(0, 2, 1)),
35  "T3as(i,j,k) + T3as(i,j,k)(0,2,1)");
36  test_for_zero(t3as_1(0, 2, 2) - (t3as_2(0, 2, 2) + t3as_3(0, 2, 2)),
37  "T3as(i,j,k) + T3as(i,j,k)(0,2,2)");
38  test_for_zero(t3as_1(1, 0, 0) - (t3as_2(1, 0, 0) + t3as_3(1, 0, 0)),
39  "T3as(i,j,k) + T3as(i,j,k)(1,0,0)");
40  test_for_zero(t3as_1(1, 0, 1) - (t3as_2(1, 0, 1) + t3as_3(1, 0, 1)),
41  "T3as(i,j,k) + T3as(i,j,k)(1,0,1)");
42  test_for_zero(t3as_1(1, 0, 2) - (t3as_2(1, 0, 2) + t3as_3(1, 0, 2)),
43  "T3as(i,j,k) + T3as(i,j,k)(1,0,2)");
44  test_for_zero(t3as_1(1, 1, 0) - (t3as_2(1, 1, 0) + t3as_3(1, 1, 0)),
45  "T3as(i,j,k) + T3as(i,j,k)(1,1,0)");
46  test_for_zero(t3as_1(1, 1, 1) - (t3as_2(1, 1, 1) + t3as_3(1, 1, 1)),
47  "T3as(i,j,k) + T3as(i,j,k)(1,1,1)");
48  test_for_zero(t3as_1(1, 1, 2) - (t3as_2(1, 1, 2) + t3as_3(1, 1, 2)),
49  "T3as(i,j,k) + T3as(i,j,k)(1,1,2)");
50  test_for_zero(t3as_1(1, 2, 0) - (t3as_2(1, 2, 0) + t3as_3(1, 2, 0)),
51  "T3as(i,j,k) + T3as(i,j,k)(1,2,0)");
52  test_for_zero(t3as_1(1, 2, 1) - (t3as_2(1, 2, 1) + t3as_3(1, 2, 1)),
53  "T3as(i,j,k) + T3as(i,j,k)(1,2,1)");
54  test_for_zero(t3as_1(1, 2, 2) - (t3as_2(1, 2, 2) + t3as_3(1, 2, 2)),
55  "T3as(i,j,k) + T3as(i,j,k)(1,2,2)");
56  test_for_zero(t3as_1(2, 0, 0) - (t3as_2(2, 0, 0) + t3as_3(2, 0, 0)),
57  "T3as(i,j,k) + T3as(i,j,k)(2,0,0)");
58  test_for_zero(t3as_1(2, 0, 1) - (t3as_2(2, 0, 1) + t3as_3(2, 0, 1)),
59  "T3as(i,j,k) + T3as(i,j,k)(2,0,1)");
60  test_for_zero(t3as_1(2, 0, 2) - (t3as_2(2, 0, 2) + t3as_3(2, 0, 2)),
61  "T3as(i,j,k) + T3as(i,j,k)(2,0,2)");
62  test_for_zero(t3as_1(2, 1, 0) - (t3as_2(2, 1, 0) + t3as_3(2, 1, 0)),
63  "T3as(i,j,k) + T3as(i,j,k)(2,1,0)");
64  test_for_zero(t3as_1(2, 1, 1) - (t3as_2(2, 1, 1) + t3as_3(2, 1, 1)),
65  "T3as(i,j,k) + T3as(i,j,k)(2,1,1)");
66  test_for_zero(t3as_1(2, 1, 2) - (t3as_2(2, 1, 2) + t3as_3(2, 1, 2)),
67  "T3as(i,j,k) + T3as(i,j,k)(2,1,2)");
68  test_for_zero(t3as_1(2, 2, 0) - (t3as_2(2, 2, 0) + t3as_3(2, 2, 0)),
69  "T3as(i,j,k) + T3as(i,j,k)(2,2,0)");
70  test_for_zero(t3as_1(2, 2, 1) - (t3as_2(2, 2, 1) + t3as_3(2, 2, 1)),
71  "T3as(i,j,k) + T3as(i,j,k)(2,2,1)");
72  test_for_zero(t3as_1(2, 2, 2) - (t3as_2(2, 2, 2) + t3as_3(2, 2, 2)),
73  "T3as(i,j,k) + T3as(i,j,k)(2,2,2)");
74 }

◆ test_T3as_05()

void test_T3as_05 ( Tensor3_antisymmetric< double, 3, 3 > &  t3as_1,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_2,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_3 
)

Definition at line 7 of file test_T3as_05.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  t3as_1(i, j, k) = t3as_2(i, j, k) + t3as_3(i, k, j);
20  test_for_zero(t3as_1(0, 0, 0) - (t3as_2(0, 0, 0) - t3as_3(0, 0, 0)),
21  "T3as(i,j,k) + T3as(i,k,j)(0,0,0)");
22  test_for_zero(t3as_1(0, 0, 1) - (t3as_2(0, 0, 1) - t3as_3(0, 0, 1)),
23  "T3as(i,j,k) + T3as(i,k,j)(0,0,1)");
24  test_for_zero(t3as_1(0, 0, 2) - (t3as_2(0, 0, 2) - t3as_3(0, 0, 2)),
25  "T3as(i,j,k) + T3as(i,k,j)(0,0,2)");
26  test_for_zero(t3as_1(0, 1, 0) - (t3as_2(0, 1, 0) - t3as_3(0, 1, 0)),
27  "T3as(i,j,k) + T3as(i,k,j)(0,1,0)");
28  test_for_zero(t3as_1(0, 1, 1) - (t3as_2(0, 1, 1) - t3as_3(0, 1, 1)),
29  "T3as(i,j,k) + T3as(i,k,j)(0,1,1)");
30  test_for_zero(t3as_1(0, 1, 2) - (t3as_2(0, 1, 2) - t3as_3(0, 1, 2)),
31  "T3as(i,j,k) + T3as(i,k,j)(0,1,2)");
32  test_for_zero(t3as_1(0, 2, 0) - (t3as_2(0, 2, 0) - t3as_3(0, 2, 0)),
33  "T3as(i,j,k) + T3as(i,k,j)(0,2,0)");
34  test_for_zero(t3as_1(0, 2, 1) - (t3as_2(0, 2, 1) - t3as_3(0, 2, 1)),
35  "T3as(i,j,k) + T3as(i,k,j)(0,2,1)");
36  test_for_zero(t3as_1(0, 2, 2) - (t3as_2(0, 2, 2) - t3as_3(0, 2, 2)),
37  "T3as(i,j,k) + T3as(i,k,j)(0,2,2)");
38  test_for_zero(t3as_1(1, 0, 0) - (t3as_2(1, 0, 0) - t3as_3(1, 0, 0)),
39  "T3as(i,j,k) + T3as(i,k,j)(1,0,0)");
40  test_for_zero(t3as_1(1, 0, 1) - (t3as_2(1, 0, 1) - t3as_3(1, 0, 1)),
41  "T3as(i,j,k) + T3as(i,k,j)(1,0,1)");
42  test_for_zero(t3as_1(1, 0, 2) - (t3as_2(1, 0, 2) - t3as_3(1, 0, 2)),
43  "T3as(i,j,k) + T3as(i,k,j)(1,0,2)");
44  test_for_zero(t3as_1(1, 1, 0) - (t3as_2(1, 1, 0) - t3as_3(1, 1, 0)),
45  "T3as(i,j,k) + T3as(i,k,j)(1,1,0)");
46  test_for_zero(t3as_1(1, 1, 1) - (t3as_2(1, 1, 1) - t3as_3(1, 1, 1)),
47  "T3as(i,j,k) + T3as(i,k,j)(1,1,1)");
48  test_for_zero(t3as_1(1, 1, 2) - (t3as_2(1, 1, 2) - t3as_3(1, 1, 2)),
49  "T3as(i,j,k) + T3as(i,k,j)(1,1,2)");
50  test_for_zero(t3as_1(1, 2, 0) - (t3as_2(1, 2, 0) - t3as_3(1, 2, 0)),
51  "T3as(i,j,k) + T3as(i,k,j)(1,2,0)");
52  test_for_zero(t3as_1(1, 2, 1) - (t3as_2(1, 2, 1) - t3as_3(1, 2, 1)),
53  "T3as(i,j,k) + T3as(i,k,j)(1,2,1)");
54  test_for_zero(t3as_1(1, 2, 2) - (t3as_2(1, 2, 2) - t3as_3(1, 2, 2)),
55  "T3as(i,j,k) + T3as(i,k,j)(1,2,2)");
56  test_for_zero(t3as_1(2, 0, 0) - (t3as_2(2, 0, 0) - t3as_3(2, 0, 0)),
57  "T3as(i,j,k) + T3as(i,k,j)(2,0,0)");
58  test_for_zero(t3as_1(2, 0, 1) - (t3as_2(2, 0, 1) - t3as_3(2, 0, 1)),
59  "T3as(i,j,k) + T3as(i,k,j)(2,0,1)");
60  test_for_zero(t3as_1(2, 0, 2) - (t3as_2(2, 0, 2) - t3as_3(2, 0, 2)),
61  "T3as(i,j,k) + T3as(i,k,j)(2,0,2)");
62  test_for_zero(t3as_1(2, 1, 0) - (t3as_2(2, 1, 0) - t3as_3(2, 1, 0)),
63  "T3as(i,j,k) + T3as(i,k,j)(2,1,0)");
64  test_for_zero(t3as_1(2, 1, 1) - (t3as_2(2, 1, 1) - t3as_3(2, 1, 1)),
65  "T3as(i,j,k) + T3as(i,k,j)(2,1,1)");
66  test_for_zero(t3as_1(2, 1, 2) - (t3as_2(2, 1, 2) - t3as_3(2, 1, 2)),
67  "T3as(i,j,k) + T3as(i,k,j)(2,1,2)");
68  test_for_zero(t3as_1(2, 2, 0) - (t3as_2(2, 2, 0) - t3as_3(2, 2, 0)),
69  "T3as(i,j,k) + T3as(i,k,j)(2,2,0)");
70  test_for_zero(t3as_1(2, 2, 1) - (t3as_2(2, 2, 1) - t3as_3(2, 2, 1)),
71  "T3as(i,j,k) + T3as(i,k,j)(2,2,1)");
72  test_for_zero(t3as_1(2, 2, 2) - (t3as_2(2, 2, 2) - t3as_3(2, 2, 2)),
73  "T3as(i,j,k) + T3as(i,k,j)(2,2,2)");
74 }

◆ test_T3as_06()

void test_T3as_06 ( Dg< double, 3, 3 > &  t3dg_1,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_2 
)

Definition at line 7 of file test_T3as_06.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  t3dg_1(i, k, j) = (t3as_2(i, j, k) || t3as_2(k, j, i));
19  test_for_zero(t3dg_1(0, 0, 0) - (t3as_2(0, 0, 0) + t3as_2(0, 0, 0)),
20  "T3as(i,j,k) || T3as(k,j,i)(0,0,0)");
21  test_for_zero(t3dg_1(0, 1, 0) - (t3as_2(0, 0, 1) + t3as_2(1, 0, 0)),
22  "T3as(i,j,k) || T3as(k,j,i)(0,0,1)");
23  test_for_zero(t3dg_1(0, 2, 0) - (t3as_2(0, 0, 2) + t3as_2(2, 0, 0)),
24  "T3as(i,j,k) || T3as(k,j,i)(0,0,2)");
25  test_for_zero(t3dg_1(0, 0, 1) - (t3as_2(0, 1, 0) + t3as_2(0, 1, 0)),
26  "T3as(i,j,k) || T3as(k,j,i)(0,1,0)");
27  test_for_zero(t3dg_1(0, 1, 1) - (t3as_2(0, 1, 1) + t3as_2(1, 1, 0)),
28  "T3as(i,j,k) || T3as(k,j,i)(0,1,1)");
29  test_for_zero(t3dg_1(0, 2, 1) - (t3as_2(0, 1, 2) + t3as_2(2, 1, 0)),
30  "T3as(i,j,k) || T3as(k,j,i)(0,1,2)");
31  test_for_zero(t3dg_1(0, 0, 2) - (t3as_2(0, 2, 0) + t3as_2(0, 2, 0)),
32  "T3as(i,j,k) || T3as(k,j,i)(0,2,0)");
33  test_for_zero(t3dg_1(0, 1, 2) - (t3as_2(0, 2, 1) + t3as_2(1, 2, 0)),
34  "T3as(i,j,k) || T3as(k,j,i)(0,2,1)");
35  test_for_zero(t3dg_1(0, 2, 2) - (t3as_2(0, 2, 2) + t3as_2(2, 2, 0)),
36  "T3as(i,j,k) || T3as(k,j,i)(0,2,2)");
37  test_for_zero(t3dg_1(1, 0, 0) - (t3as_2(1, 0, 0) + t3as_2(0, 0, 1)),
38  "T3as(i,j,k) || T3as(k,j,i)(1,0,0)");
39  test_for_zero(t3dg_1(1, 1, 0) - (t3as_2(1, 0, 1) + t3as_2(1, 0, 1)),
40  "T3as(i,j,k) || T3as(k,j,i)(1,0,1)");
41  test_for_zero(t3dg_1(1, 2, 0) - (t3as_2(1, 0, 2) + t3as_2(2, 0, 1)),
42  "T3as(i,j,k) || T3as(k,j,i)(1,0,2)");
43  test_for_zero(t3dg_1(1, 0, 1) - (t3as_2(1, 1, 0) + t3as_2(0, 1, 1)),
44  "T3as(i,j,k) || T3as(k,j,i)(1,1,0)");
45  test_for_zero(t3dg_1(1, 1, 1) - (t3as_2(1, 1, 1) + t3as_2(1, 1, 1)),
46  "T3as(i,j,k) || T3as(k,j,i)(1,1,1)");
47  test_for_zero(t3dg_1(1, 2, 1) - (t3as_2(1, 1, 2) + t3as_2(2, 1, 1)),
48  "T3as(i,j,k) || T3as(k,j,i)(1,1,2)");
49  test_for_zero(t3dg_1(1, 0, 2) - (t3as_2(1, 2, 0) + t3as_2(0, 2, 1)),
50  "T3as(i,j,k) || T3as(k,j,i)(1,2,0)");
51  test_for_zero(t3dg_1(1, 1, 2) - (t3as_2(1, 2, 1) + t3as_2(1, 2, 1)),
52  "T3as(i,j,k) || T3as(k,j,i)(1,2,1)");
53  test_for_zero(t3dg_1(1, 2, 2) - (t3as_2(1, 2, 2) + t3as_2(2, 2, 1)),
54  "T3as(i,j,k) || T3as(k,j,i)(1,2,2)");
55  test_for_zero(t3dg_1(2, 0, 0) - (t3as_2(2, 0, 0) + t3as_2(0, 0, 2)),
56  "T3as(i,j,k) || T3as(k,j,i)(2,0,0)");
57  test_for_zero(t3dg_1(2, 1, 0) - (t3as_2(2, 0, 1) + t3as_2(1, 0, 2)),
58  "T3as(i,j,k) || T3as(k,j,i)(2,0,1)");
59  test_for_zero(t3dg_1(2, 2, 0) - (t3as_2(2, 0, 2) + t3as_2(2, 0, 2)),
60  "T3as(i,j,k) || T3as(k,j,i)(2,0,2)");
61  test_for_zero(t3dg_1(2, 0, 1) - (t3as_2(2, 1, 0) + t3as_2(0, 1, 2)),
62  "T3as(i,j,k) || T3as(k,j,i)(2,1,0)");
63  test_for_zero(t3dg_1(2, 1, 1) - (t3as_2(2, 1, 1) + t3as_2(1, 1, 2)),
64  "T3as(i,j,k) || T3as(k,j,i)(2,1,1)");
65  test_for_zero(t3dg_1(2, 2, 1) - (t3as_2(2, 1, 2) + t3as_2(2, 1, 2)),
66  "T3as(i,j,k) || T3as(k,j,i)(2,1,2)");
67  test_for_zero(t3dg_1(2, 0, 2) - (t3as_2(2, 2, 0) + t3as_2(0, 2, 2)),
68  "T3as(i,j,k) || T3as(k,j,i)(2,2,0)");
69  test_for_zero(t3dg_1(2, 1, 2) - (t3as_2(2, 2, 1) + t3as_2(1, 2, 2)),
70  "T3as(i,j,k) || T3as(k,j,i)(2,2,1)");
71  test_for_zero(t3dg_1(2, 2, 2) - (t3as_2(2, 2, 2) + t3as_2(2, 2, 2)),
72  "T3as(i,j,k) || T3as(k,j,i)(2,2,2)");
73 }

◆ test_T3as_07()

void test_T3as_07 ( Tensor3_antisymmetric< double, 3, 3 > &  t3as_1,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_2 
)

Definition at line 7 of file test_T3as_07.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  t3as_1(i, j, k) = t3as_2(i, j, k) * 10;
19  test_for_zero(t3as_1(0, 0, 0) - (t3as_2(0, 0, 0) * 10), "T3as*T(0,0,0)");
20  test_for_zero(t3as_1(0, 0, 1) - (t3as_2(0, 0, 1) * 10), "T3as*T(0,0,1)");
21  test_for_zero(t3as_1(0, 0, 2) - (t3as_2(0, 0, 2) * 10), "T3as*T(0,0,2)");
22  test_for_zero(t3as_1(0, 1, 0) - (t3as_2(0, 1, 0) * 10), "T3as*T(0,1,0)");
23  test_for_zero(t3as_1(0, 1, 1) - (t3as_2(0, 1, 1) * 10), "T3as*T(0,1,1)");
24  test_for_zero(t3as_1(0, 1, 2) - (t3as_2(0, 1, 2) * 10), "T3as*T(0,1,2)");
25  test_for_zero(t3as_1(0, 2, 0) - (t3as_2(0, 2, 0) * 10), "T3as*T(0,2,0)");
26  test_for_zero(t3as_1(0, 2, 1) - (t3as_2(0, 2, 1) * 10), "T3as*T(0,2,1)");
27  test_for_zero(t3as_1(0, 2, 2) - (t3as_2(0, 2, 2) * 10), "T3as*T(0,2,2)");
28  test_for_zero(t3as_1(1, 0, 0) - (t3as_2(1, 0, 0) * 10), "T3as*T(1,0,0)");
29  test_for_zero(t3as_1(1, 0, 1) - (t3as_2(1, 0, 1) * 10), "T3as*T(1,0,1)");
30  test_for_zero(t3as_1(1, 0, 2) - (t3as_2(1, 0, 2) * 10), "T3as*T(1,0,2)");
31  test_for_zero(t3as_1(1, 1, 0) - (t3as_2(1, 1, 0) * 10), "T3as*T(1,1,0)");
32  test_for_zero(t3as_1(1, 1, 1) - (t3as_2(1, 1, 1) * 10), "T3as*T(1,1,1)");
33  test_for_zero(t3as_1(1, 1, 2) - (t3as_2(1, 1, 2) * 10), "T3as*T(1,1,2)");
34  test_for_zero(t3as_1(1, 2, 0) - (t3as_2(1, 2, 0) * 10), "T3as*T(1,2,0)");
35  test_for_zero(t3as_1(1, 2, 1) - (t3as_2(1, 2, 1) * 10), "T3as*T(1,2,1)");
36  test_for_zero(t3as_1(1, 2, 2) - (t3as_2(1, 2, 2) * 10), "T3as*T(1,2,2)");
37  test_for_zero(t3as_1(2, 0, 0) - (t3as_2(2, 0, 0) * 10), "T3as*T(2,0,0)");
38  test_for_zero(t3as_1(2, 0, 1) - (t3as_2(2, 0, 1) * 10), "T3as*T(2,0,1)");
39  test_for_zero(t3as_1(2, 0, 2) - (t3as_2(2, 0, 2) * 10), "T3as*T(2,0,2)");
40  test_for_zero(t3as_1(2, 1, 0) - (t3as_2(2, 1, 0) * 10), "T3as*T(2,1,0)");
41  test_for_zero(t3as_1(2, 1, 1) - (t3as_2(2, 1, 1) * 10), "T3as*T(2,1,1)");
42  test_for_zero(t3as_1(2, 1, 2) - (t3as_2(2, 1, 2) * 10), "T3as*T(2,1,2)");
43  test_for_zero(t3as_1(2, 2, 0) - (t3as_2(2, 2, 0) * 10), "T3as*T(2,2,0)");
44  test_for_zero(t3as_1(2, 2, 1) - (t3as_2(2, 2, 1) * 10), "T3as*T(2,2,1)");
45  test_for_zero(t3as_1(2, 2, 2) - (t3as_2(2, 2, 2) * 10), "T3as*T(2,2,2)");
46 }

◆ test_T3as_08()

void test_T3as_08 ( Tensor3_antisymmetric< double, 3, 3 > &  t3as_1,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_2 
)

Definition at line 7 of file test_T3as_08.cpp.

9 {
10  Index<'i', 3> i;
11  Index<'j', 3> j;
12  Index<'k', 3> k;
13 
14  Number<0> N0;
15  Number<1> N1;
16  Number<2> N2;
17 
18  t3as_1(i, j, k) = 5 * t3as_2(i, j, k);
19  test_for_zero(t3as_1(0, 0, 0) - (t3as_2(0, 0, 0) * 5), "T*T3as(0,0,0)");
20  test_for_zero(t3as_1(0, 0, 1) - (t3as_2(0, 0, 1) * 5), "T*T3as(0,0,1)");
21  test_for_zero(t3as_1(0, 0, 2) - (t3as_2(0, 0, 2) * 5), "T*T3as(0,0,2)");
22  test_for_zero(t3as_1(0, 1, 0) - (t3as_2(0, 1, 0) * 5), "T*T3as(0,1,0)");
23  test_for_zero(t3as_1(0, 1, 1) - (t3as_2(0, 1, 1) * 5), "T*T3as(0,1,1)");
24  test_for_zero(t3as_1(0, 1, 2) - (t3as_2(0, 1, 2) * 5), "T*T3as(0,1,2)");
25  test_for_zero(t3as_1(0, 2, 0) - (t3as_2(0, 2, 0) * 5), "T*T3as(0,2,0)");
26  test_for_zero(t3as_1(0, 2, 1) - (t3as_2(0, 2, 1) * 5), "T*T3as(0,2,1)");
27  test_for_zero(t3as_1(0, 2, 2) - (t3as_2(0, 2, 2) * 5), "T*T3as(0,2,2)");
28  test_for_zero(t3as_1(1, 0, 0) - (t3as_2(1, 0, 0) * 5), "T*T3as(1,0,0)");
29  test_for_zero(t3as_1(1, 0, 1) - (t3as_2(1, 0, 1) * 5), "T*T3as(1,0,1)");
30  test_for_zero(t3as_1(1, 0, 2) - (t3as_2(1, 0, 2) * 5), "T*T3as(1,0,2)");
31  test_for_zero(t3as_1(1, 1, 0) - (t3as_2(1, 1, 0) * 5), "T*T3as(1,1,0)");
32  test_for_zero(t3as_1(1, 1, 1) - (t3as_2(1, 1, 1) * 5), "T*T3as(1,1,1)");
33  test_for_zero(t3as_1(1, 1, 2) - (t3as_2(1, 1, 2) * 5), "T*T3as(1,1,2)");
34  test_for_zero(t3as_1(1, 2, 0) - (t3as_2(1, 2, 0) * 5), "T*T3as(1,2,0)");
35  test_for_zero(t3as_1(1, 2, 1) - (t3as_2(1, 2, 1) * 5), "T*T3as(1,2,1)");
36  test_for_zero(t3as_1(1, 2, 2) - (t3as_2(1, 2, 2) * 5), "T*T3as(1,2,2)");
37  test_for_zero(t3as_1(2, 0, 0) - (t3as_2(2, 0, 0) * 5), "T*T3as(2,0,0)");
38  test_for_zero(t3as_1(2, 0, 1) - (t3as_2(2, 0, 1) * 5), "T*T3as(2,0,1)");
39  test_for_zero(t3as_1(2, 0, 2) - (t3as_2(2, 0, 2) * 5), "T*T3as(2,0,2)");
40  test_for_zero(t3as_1(2, 1, 0) - (t3as_2(2, 1, 0) * 5), "T*T3as(2,1,0)");
41  test_for_zero(t3as_1(2, 1, 1) - (t3as_2(2, 1, 1) * 5), "T*T3as(2,1,1)");
42  test_for_zero(t3as_1(2, 1, 2) - (t3as_2(2, 1, 2) * 5), "T*T3as(2,1,2)");
43  test_for_zero(t3as_1(2, 2, 0) - (t3as_2(2, 2, 0) * 5), "T*T3as(2,2,0)");
44  test_for_zero(t3as_1(2, 2, 1) - (t3as_2(2, 2, 1) * 5), "T*T3as(2,2,1)");
45  test_for_zero(t3as_1(2, 2, 2) - (t3as_2(2, 2, 2) * 5), "T*T3as(2,2,2)");
46 }

◆ test_T3as_09()

void test_T3as_09 ( const Tensor1< double, 3 > &  t1_2,
const Tensor2< double, 3, 3 > &  t2_2,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_2 
)

Definition at line 7 of file test_T3as_09.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  test_for_zero(t3as_2(i, j, k) * (t2_2(i, j) * t1_2(k))
20  - (t3as_2(0, 1, 0) * t2_2(0, 1) * t1_2(0)
21  + t3as_2(1, 1, 0) * t2_2(1, 1) * t1_2(0)
22  + t3as_2(2, 1, 0) * t2_2(2, 1) * t1_2(0)
23  + t3as_2(0, 2, 0) * t2_2(0, 2) * t1_2(0)
24  + t3as_2(1, 2, 0) * t2_2(1, 2) * t1_2(0)
25  + t3as_2(2, 2, 0) * t2_2(2, 2) * t1_2(0)
26  + t3as_2(0, 0, 1) * t2_2(0, 0) * t1_2(1)
27  + t3as_2(1, 0, 1) * t2_2(1, 0) * t1_2(1)
28  + t3as_2(2, 0, 1) * t2_2(2, 0) * t1_2(1)
29  + t3as_2(0, 2, 1) * t2_2(0, 2) * t1_2(1)
30  + t3as_2(1, 2, 1) * t2_2(1, 2) * t1_2(1)
31  + t3as_2(2, 2, 1) * t2_2(2, 2) * t1_2(1)
32  + t3as_2(0, 0, 2) * t2_2(0, 0) * t1_2(2)
33  + t3as_2(1, 0, 2) * t2_2(1, 0) * t1_2(2)
34  + t3as_2(2, 0, 2) * t2_2(2, 0) * t1_2(2)
35  + t3as_2(0, 1, 2) * t2_2(0, 1) * t1_2(2)
36  + t3as_2(1, 1, 2) * t2_2(1, 1) * t1_2(2)
37  + t3as_2(2, 1, 2) * t2_2(2, 1) * t1_2(2)),
38  "T3as(i,j,k)*T3dg(i,j,k)");
39  test_for_zero((t2_2(i, j) * t1_2(k) * t3as_2(i, j, k))
40  - (t3as_2(0, 1, 0) * t2_2(0, 1) * t1_2(0)
41  + t3as_2(1, 1, 0) * t2_2(1, 1) * t1_2(0)
42  + t3as_2(2, 1, 0) * t2_2(2, 1) * t1_2(0)
43  + t3as_2(0, 2, 0) * t2_2(0, 2) * t1_2(0)
44  + t3as_2(1, 2, 0) * t2_2(1, 2) * t1_2(0)
45  + t3as_2(2, 2, 0) * t2_2(2, 2) * t1_2(0)
46  + t3as_2(0, 0, 1) * t2_2(0, 0) * t1_2(1)
47  + t3as_2(1, 0, 1) * t2_2(1, 0) * t1_2(1)
48  + t3as_2(2, 0, 1) * t2_2(2, 0) * t1_2(1)
49  + t3as_2(0, 2, 1) * t2_2(0, 2) * t1_2(1)
50  + t3as_2(1, 2, 1) * t2_2(1, 2) * t1_2(1)
51  + t3as_2(2, 2, 1) * t2_2(2, 2) * t1_2(1)
52  + t3as_2(0, 0, 2) * t2_2(0, 0) * t1_2(2)
53  + t3as_2(1, 0, 2) * t2_2(1, 0) * t1_2(2)
54  + t3as_2(2, 0, 2) * t2_2(2, 0) * t1_2(2)
55  + t3as_2(0, 1, 2) * t2_2(0, 1) * t1_2(2)
56  + t3as_2(1, 1, 2) * t2_2(1, 1) * t1_2(2)
57  + t3as_2(2, 1, 2) * t2_2(2, 1) * t1_2(2)),
58  "T3dg(i,j,k)*T3as(i,j,k)");
59 }

◆ test_T3as_10()

void test_T3as_10 ( const Tensor1< double, 3 > &  t1_2,
const Tensor2< double, 3, 3 > &  t2_2,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_2 
)

Definition at line 7 of file test_T3as_10.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  test_for_zero(t3as_2(i, j, k) * (t2_2(i, k) * t1_2(j))
20  - (t3as_2(0, 1, 0) * t2_2(0, 0) * t1_2(1)
21  + t3as_2(1, 1, 0) * t2_2(1, 0) * t1_2(1)
22  + t3as_2(2, 1, 0) * t2_2(2, 0) * t1_2(1)
23  + t3as_2(0, 2, 0) * t2_2(0, 0) * t1_2(2)
24  + t3as_2(1, 2, 0) * t2_2(1, 0) * t1_2(2)
25  + t3as_2(2, 2, 0) * t2_2(2, 0) * t1_2(2)
26  + t3as_2(0, 0, 1) * t2_2(0, 1) * t1_2(0)
27  + t3as_2(1, 0, 1) * t2_2(1, 1) * t1_2(0)
28  + t3as_2(2, 0, 1) * t2_2(2, 1) * t1_2(0)
29  + t3as_2(0, 2, 1) * t2_2(0, 1) * t1_2(2)
30  + t3as_2(1, 2, 1) * t2_2(1, 1) * t1_2(2)
31  + t3as_2(2, 2, 1) * t2_2(2, 1) * t1_2(2)
32  + t3as_2(0, 0, 2) * t2_2(0, 2) * t1_2(0)
33  + t3as_2(1, 0, 2) * t2_2(1, 2) * t1_2(0)
34  + t3as_2(2, 0, 2) * t2_2(2, 2) * t1_2(0)
35  + t3as_2(0, 1, 2) * t2_2(0, 2) * t1_2(1)
36  + t3as_2(1, 1, 2) * t2_2(1, 2) * t1_2(1)
37  + t3as_2(2, 1, 2) * t2_2(2, 2) * t1_2(1)),
38  "T3as(i,j,k)*T3dg(i,k,j)");
39  test_for_zero((t2_2(i, k) * t1_2(j) * t3as_2(i, j, k))
40  - (t3as_2(0, 1, 0) * t2_2(0, 0) * t1_2(1)
41  + t3as_2(1, 1, 0) * t2_2(1, 0) * t1_2(1)
42  + t3as_2(2, 1, 0) * t2_2(2, 0) * t1_2(1)
43  + t3as_2(0, 2, 0) * t2_2(0, 0) * t1_2(2)
44  + t3as_2(1, 2, 0) * t2_2(1, 0) * t1_2(2)
45  + t3as_2(2, 2, 0) * t2_2(2, 0) * t1_2(2)
46  + t3as_2(0, 0, 1) * t2_2(0, 1) * t1_2(0)
47  + t3as_2(1, 0, 1) * t2_2(1, 1) * t1_2(0)
48  + t3as_2(2, 0, 1) * t2_2(2, 1) * t1_2(0)
49  + t3as_2(0, 2, 1) * t2_2(0, 1) * t1_2(2)
50  + t3as_2(1, 2, 1) * t2_2(1, 1) * t1_2(2)
51  + t3as_2(2, 2, 1) * t2_2(2, 1) * t1_2(2)
52  + t3as_2(0, 0, 2) * t2_2(0, 2) * t1_2(0)
53  + t3as_2(1, 0, 2) * t2_2(1, 2) * t1_2(0)
54  + t3as_2(2, 0, 2) * t2_2(2, 2) * t1_2(0)
55  + t3as_2(0, 1, 2) * t2_2(0, 2) * t1_2(1)
56  + t3as_2(1, 1, 2) * t2_2(1, 2) * t1_2(1)
57  + t3as_2(2, 1, 2) * t2_2(2, 2) * t1_2(1)),
58  "T3dg(i,k,j)*T3as(i,j,k)");
59 }

◆ test_T3as_11()

void test_T3as_11 ( const Tensor1< double, 3 > &  t1_2,
const Tensor2< double, 3, 3 > &  t2_2,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_2 
)

Definition at line 7 of file test_T3as_11.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  test_for_zero(t3as_2(i, j, k) * (t2_2(k, i) * t1_2(j))
20  - (t3as_2(0, 1, 0) * t2_2(0, 0) * t1_2(1)
21  + t3as_2(1, 1, 0) * t2_2(0, 1) * t1_2(1)
22  + t3as_2(2, 1, 0) * t2_2(0, 2) * t1_2(1)
23  + t3as_2(0, 2, 0) * t2_2(0, 0) * t1_2(2)
24  + t3as_2(1, 2, 0) * t2_2(0, 1) * t1_2(2)
25  + t3as_2(2, 2, 0) * t2_2(0, 2) * t1_2(2)
26  + t3as_2(0, 0, 1) * t2_2(1, 0) * t1_2(0)
27  + t3as_2(1, 0, 1) * t2_2(1, 1) * t1_2(0)
28  + t3as_2(2, 0, 1) * t2_2(1, 2) * t1_2(0)
29  + t3as_2(0, 2, 1) * t2_2(1, 0) * t1_2(2)
30  + t3as_2(1, 2, 1) * t2_2(1, 1) * t1_2(2)
31  + t3as_2(2, 2, 1) * t2_2(1, 2) * t1_2(2)
32  + t3as_2(0, 0, 2) * t2_2(2, 0) * t1_2(0)
33  + t3as_2(1, 0, 2) * t2_2(2, 1) * t1_2(0)
34  + t3as_2(2, 0, 2) * t2_2(2, 2) * t1_2(0)
35  + t3as_2(0, 1, 2) * t2_2(2, 0) * t1_2(1)
36  + t3as_2(1, 1, 2) * t2_2(2, 1) * t1_2(1)
37  + t3as_2(2, 1, 2) * t2_2(2, 2) * t1_2(1)),
38  "T3as(i,j,k)*T3dg(k,i,j)");
39  test_for_zero((t2_2(k, i) * t1_2(j) * t3as_2(i, j, k))
40  - (t3as_2(0, 1, 0) * t2_2(0, 0) * t1_2(1)
41  + t3as_2(1, 1, 0) * t2_2(0, 1) * t1_2(1)
42  + t3as_2(2, 1, 0) * t2_2(0, 2) * t1_2(1)
43  + t3as_2(0, 2, 0) * t2_2(0, 0) * t1_2(2)
44  + t3as_2(1, 2, 0) * t2_2(0, 1) * t1_2(2)
45  + t3as_2(2, 2, 0) * t2_2(0, 2) * t1_2(2)
46  + t3as_2(0, 0, 1) * t2_2(1, 0) * t1_2(0)
47  + t3as_2(1, 0, 1) * t2_2(1, 1) * t1_2(0)
48  + t3as_2(2, 0, 1) * t2_2(1, 2) * t1_2(0)
49  + t3as_2(0, 2, 1) * t2_2(1, 0) * t1_2(2)
50  + t3as_2(1, 2, 1) * t2_2(1, 1) * t1_2(2)
51  + t3as_2(2, 2, 1) * t2_2(1, 2) * t1_2(2)
52  + t3as_2(0, 0, 2) * t2_2(2, 0) * t1_2(0)
53  + t3as_2(1, 0, 2) * t2_2(2, 1) * t1_2(0)
54  + t3as_2(2, 0, 2) * t2_2(2, 2) * t1_2(0)
55  + t3as_2(0, 1, 2) * t2_2(2, 0) * t1_2(1)
56  + t3as_2(1, 1, 2) * t2_2(2, 1) * t1_2(1)
57  + t3as_2(2, 1, 2) * t2_2(2, 2) * t1_2(1)),
58  "T3dg(k,i,j)*T3as(i,j,k)");
59 }

◆ test_T3as_12()

void test_T3as_12 ( const Tensor1< double, 3 > &  t1_2,
const Tensor2< double, 3, 3 > &  t2_2,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_2 
)

Definition at line 7 of file test_T3as_12.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  test_for_zero(t3as_2(i, j, k) * (t2_2(j, i) * t1_2(k))
20  - (t3as_2(0, 1, 0) * t2_2(1, 0) * t1_2(0)
21  + t3as_2(1, 1, 0) * t2_2(1, 1) * t1_2(0)
22  + t3as_2(2, 1, 0) * t2_2(1, 2) * t1_2(0)
23  + t3as_2(0, 2, 0) * t2_2(2, 0) * t1_2(0)
24  + t3as_2(1, 2, 0) * t2_2(2, 1) * t1_2(0)
25  + t3as_2(2, 2, 0) * t2_2(2, 2) * t1_2(0)
26  + t3as_2(0, 0, 1) * t2_2(0, 0) * t1_2(1)
27  + t3as_2(1, 0, 1) * t2_2(0, 1) * t1_2(1)
28  + t3as_2(2, 0, 1) * t2_2(0, 2) * t1_2(1)
29  + t3as_2(0, 2, 1) * t2_2(2, 0) * t1_2(1)
30  + t3as_2(1, 2, 1) * t2_2(2, 1) * t1_2(1)
31  + t3as_2(2, 2, 1) * t2_2(2, 2) * t1_2(1)
32  + t3as_2(0, 0, 2) * t2_2(0, 0) * t1_2(2)
33  + t3as_2(1, 0, 2) * t2_2(0, 1) * t1_2(2)
34  + t3as_2(2, 0, 2) * t2_2(0, 2) * t1_2(2)
35  + t3as_2(0, 1, 2) * t2_2(1, 0) * t1_2(2)
36  + t3as_2(1, 1, 2) * t2_2(1, 1) * t1_2(2)
37  + t3as_2(2, 1, 2) * t2_2(1, 2) * t1_2(2)),
38  "T3as(i,j,k)*T3dg(j,i,k)");
39  test_for_zero((t2_2(j, i) * t1_2(k) * t3as_2(i, j, k))
40  - (t3as_2(0, 1, 0) * t2_2(1, 0) * t1_2(0)
41  + t3as_2(1, 1, 0) * t2_2(1, 1) * t1_2(0)
42  + t3as_2(2, 1, 0) * t2_2(1, 2) * t1_2(0)
43  + t3as_2(0, 2, 0) * t2_2(2, 0) * t1_2(0)
44  + t3as_2(1, 2, 0) * t2_2(2, 1) * t1_2(0)
45  + t3as_2(2, 2, 0) * t2_2(2, 2) * t1_2(0)
46  + t3as_2(0, 0, 1) * t2_2(0, 0) * t1_2(1)
47  + t3as_2(1, 0, 1) * t2_2(0, 1) * t1_2(1)
48  + t3as_2(2, 0, 1) * t2_2(0, 2) * t1_2(1)
49  + t3as_2(0, 2, 1) * t2_2(2, 0) * t1_2(1)
50  + t3as_2(1, 2, 1) * t2_2(2, 1) * t1_2(1)
51  + t3as_2(2, 2, 1) * t2_2(2, 2) * t1_2(1)
52  + t3as_2(0, 0, 2) * t2_2(0, 0) * t1_2(2)
53  + t3as_2(1, 0, 2) * t2_2(0, 1) * t1_2(2)
54  + t3as_2(2, 0, 2) * t2_2(0, 2) * t1_2(2)
55  + t3as_2(0, 1, 2) * t2_2(1, 0) * t1_2(2)
56  + t3as_2(1, 1, 2) * t2_2(1, 1) * t1_2(2)
57  + t3as_2(2, 1, 2) * t2_2(1, 2) * t1_2(2)),
58  "T3dg(j,i,k)*T3as(i,j,k)");
59 }

◆ test_T3as_13()

void test_T3as_13 ( const Tensor1< double, 3 > &  t1_2,
const Tensor2< double, 3, 3 > &  t2_2,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_2 
)

Definition at line 7 of file test_T3as_13.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  test_for_zero(t3as_2(i, j, k) * (t2_2(k, j) * t1_2(i))
20  - (t3as_2(0, 1, 0) * t2_2(0, 1) * t1_2(0)
21  + t3as_2(1, 1, 0) * t2_2(0, 1) * t1_2(1)
22  + t3as_2(2, 1, 0) * t2_2(0, 1) * t1_2(2)
23  + t3as_2(0, 2, 0) * t2_2(0, 2) * t1_2(0)
24  + t3as_2(1, 2, 0) * t2_2(0, 2) * t1_2(1)
25  + t3as_2(2, 2, 0) * t2_2(0, 2) * t1_2(2)
26  + t3as_2(0, 0, 1) * t2_2(1, 0) * t1_2(0)
27  + t3as_2(1, 0, 1) * t2_2(1, 0) * t1_2(1)
28  + t3as_2(2, 0, 1) * t2_2(1, 0) * t1_2(2)
29  + t3as_2(0, 2, 1) * t2_2(1, 2) * t1_2(0)
30  + t3as_2(1, 2, 1) * t2_2(1, 2) * t1_2(1)
31  + t3as_2(2, 2, 1) * t2_2(1, 2) * t1_2(2)
32  + t3as_2(0, 0, 2) * t2_2(2, 0) * t1_2(0)
33  + t3as_2(1, 0, 2) * t2_2(2, 0) * t1_2(1)
34  + t3as_2(2, 0, 2) * t2_2(2, 0) * t1_2(2)
35  + t3as_2(0, 1, 2) * t2_2(2, 1) * t1_2(0)
36  + t3as_2(1, 1, 2) * t2_2(2, 1) * t1_2(1)
37  + t3as_2(2, 1, 2) * t2_2(2, 1) * t1_2(2)),
38  "T3as(i,j,k)*T3dg(k,j,i)");
39  test_for_zero((t2_2(k, j) * t1_2(i) * t3as_2(i, j, k))
40  - (t3as_2(0, 1, 0) * t2_2(0, 1) * t1_2(0)
41  + t3as_2(1, 1, 0) * t2_2(0, 1) * t1_2(1)
42  + t3as_2(2, 1, 0) * t2_2(0, 1) * t1_2(2)
43  + t3as_2(0, 2, 0) * t2_2(0, 2) * t1_2(0)
44  + t3as_2(1, 2, 0) * t2_2(0, 2) * t1_2(1)
45  + t3as_2(2, 2, 0) * t2_2(0, 2) * t1_2(2)
46  + t3as_2(0, 0, 1) * t2_2(1, 0) * t1_2(0)
47  + t3as_2(1, 0, 1) * t2_2(1, 0) * t1_2(1)
48  + t3as_2(2, 0, 1) * t2_2(1, 0) * t1_2(2)
49  + t3as_2(0, 2, 1) * t2_2(1, 2) * t1_2(0)
50  + t3as_2(1, 2, 1) * t2_2(1, 2) * t1_2(1)
51  + t3as_2(2, 2, 1) * t2_2(1, 2) * t1_2(2)
52  + t3as_2(0, 0, 2) * t2_2(2, 0) * t1_2(0)
53  + t3as_2(1, 0, 2) * t2_2(2, 0) * t1_2(1)
54  + t3as_2(2, 0, 2) * t2_2(2, 0) * t1_2(2)
55  + t3as_2(0, 1, 2) * t2_2(2, 1) * t1_2(0)
56  + t3as_2(1, 1, 2) * t2_2(2, 1) * t1_2(1)
57  + t3as_2(2, 1, 2) * t2_2(2, 1) * t1_2(2)),
58  "T3dg(k,j,i)*T3as(i,j,k)");
59 }

◆ test_T3as_14()

void test_T3as_14 ( const Tensor1< double, 3 > &  t1_2,
const Tensor2< double, 3, 3 > &  t2_2,
const Tensor3_antisymmetric< double, 3, 3 > &  t3as_2 
)

Definition at line 7 of file test_T3as_14.cpp.

10 {
11  Index<'i', 3> i;
12  Index<'j', 3> j;
13  Index<'k', 3> k;
14 
15  Number<0> N0;
16  Number<1> N1;
17  Number<2> N2;
18 
19  test_for_zero(t3as_2(i, j, k) * (t2_2(j, k) * t1_2(i))
20  - (t3as_2(0, 1, 0) * t2_2(1, 0) * t1_2(0)
21  + t3as_2(1, 1, 0) * t2_2(1, 0) * t1_2(1)
22  + t3as_2(2, 1, 0) * t2_2(1, 0) * t1_2(2)
23  + t3as_2(0, 2, 0) * t2_2(2, 0) * t1_2(0)
24  + t3as_2(1, 2, 0) * t2_2(2, 0) * t1_2(1)
25  + t3as_2(2, 2, 0) * t2_2(2, 0) * t1_2(2)
26  + t3as_2(0, 0, 1) * t2_2(0, 1) * t1_2(0)
27  + t3as_2(1, 0, 1) * t2_2(0, 1) * t1_2(1)
28  + t3as_2(2, 0, 1) * t2_2(0, 1) * t1_2(2)
29  + t3as_2(0, 2, 1) * t2_2(2, 1) * t1_2(0)
30  + t3as_2(1, 2, 1) * t2_2(2, 1) * t1_2(1)
31  + t3as_2(2, 2, 1) * t2_2(2, 1) * t1_2(2)
32  + t3as_2(0, 0, 2) * t2_2(0, 2) * t1_2(0)
33  + t3as_2(1, 0, 2) * t2_2(0, 2) * t1_2(1)
34  + t3as_2(2, 0, 2) * t2_2(0, 2) * t1_2(2)
35  + t3as_2(0, 1, 2) * t2_2(1, 2) * t1_2(0)
36  + t3as_2(1, 1, 2) * t2_2(1, 2) * t1_2(1)
37  + t3as_2(2, 1, 2) * t2_2(1, 2) * t1_2(2)),
38  "T3as(i,j,k)*T3dg(j,k,i)");
39  test_for_zero((t2_2(j, k) * t1_2(i) * t3as_2(i, j, k))
40  - (t3as_2(0, 1, 0) * t2_2(1, 0) * t1_2(0)
41  + t3as_2(1, 1, 0) * t2_2(1, 0) * t1_2(1)
42  + t3as_2(2, 1, 0) * t2_2(1, 0) * t1_2(2)
43  + t3as_2(0, 2, 0) * t2_2(2, 0) * t1_2(0)
44  + t3as_2(1, 2, 0) * t2_2(2, 0) * t1_2(1)
45  + t3as_2(2, 2, 0) * t2_2(2, 0) * t1_2(2)
46  + t3as_2(0, 0, 1) * t2_2(0, 1) * t1_2(0)
47  + t3as_2(1, 0, 1) * t2_2(0, 1) * t1_2(1)
48  + t3as_2(2, 0, 1) * t2_2(0, 1) * t1_2(2)
49  + t3as_2(0, 2, 1) * t2_2(2, 1) * t1_2(0)
50  + t3as_2(1, 2, 1) * t2_2(2, 1) * t1_2(1)
51  + t3as_2(2, 2, 1) * t2_2(2, 1) * t1_2(2)
52  + t3as_2(0, 0, 2) * t2_2(0, 2) * t1_2(0)
53  + t3as_2(1, 0, 2) * t2_2(0, 2) * t1_2(1)
54  + t3as_2(2, 0, 2) * t2_2(0, 2) * t1_2(2)
55  + t3as_2(0, 1, 2) * t2_2(1, 2) * t1_2(0)
56  + t3as_2(1, 1, 2) * t2_2(1, 2) * t1_2(1)
57  + t3as_2(2, 1, 2) * t2_2(1, 2) * t1_2(2)),
58  "T3dg(j,k,i)*T3as(i,j,k)");
59 }
test_T3as_11
void test_T3as_11(const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
Definition: test_T3as_11.cpp:7
test_T3as_01
void test_T3as_01(const Dg< double, 3, 3 > &t3dg_2, Tensor3_antisymmetric< double, 3, 3 > &t3as_1)
Definition: test_T3as_01.cpp:7
test_T3as_13
void test_T3as_13(const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
Definition: test_T3as_13.cpp:7
test_T3as_04
void test_T3as_04(Tensor3_antisymmetric< double, 3, 3 > &t3as_1, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_3)
Definition: test_T3as_04.cpp:7
test_T3as_10
void test_T3as_10(const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
Definition: test_T3as_10.cpp:7
FTensor::Number< 0 >
test_T3as_12
void test_T3as_12(const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
Definition: test_T3as_12.cpp:7
test_for_zero
void test_for_zero(const T &t, const std::string &s)
Definition: test_for_zero.hpp:7
test_T3as_03
void test_T3as_03(const Dg< double, 3, 3 > &t3dg_2, Tensor3_antisymmetric< double, 3, 3 > &t3as_1)
Definition: test_T3as_03.cpp:7
test_T3as_09
void test_T3as_09(const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
Definition: test_T3as_09.cpp:7
test_T3as_08
void test_T3as_08(Tensor3_antisymmetric< double, 3, 3 > &t3as_1, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
Definition: test_T3as_08.cpp:7
i
FTensor::Index< 'i', SPACE_DIM > i
Definition: hcurl_divergence_operator_2d.cpp:27
FTensor::Index< 'i', 3 >
test_T3as_06
void test_T3as_06(Dg< double, 3, 3 > &t3dg_1, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
Definition: test_T3as_06.cpp:7
test_T3as_07
void test_T3as_07(Tensor3_antisymmetric< double, 3, 3 > &t3as_1, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
Definition: test_T3as_07.cpp:7
test_T3as_02
void test_T3as_02(const Dg< double, 3, 3 > &t3dg_2, Tensor3_antisymmetric< double, 3, 3 > &t3as_1)
Definition: test_T3as_02.cpp:7
j
FTensor::Index< 'j', 3 > j
Definition: matrix_function.cpp:19
test_T3as_14
void test_T3as_14(const Tensor1< double, 3 > &t1_2, const Tensor2< double, 3, 3 > &t2_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2)
Definition: test_T3as_14.cpp:7
k
FTensor::Index< 'k', 3 > k
Definition: matrix_function.cpp:20
test_T3as_05
void test_T3as_05(Tensor3_antisymmetric< double, 3, 3 > &t3as_1, const Tensor3_antisymmetric< double, 3, 3 > &t3as_2, const Tensor3_antisymmetric< double, 3, 3 > &t3as_3)
Definition: test_T3as_05.cpp:7
Generated by Doxygen 1.8.17 and hosted at University of Glasgow