v0.14.0
Loading...
Searching...
No Matches
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_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_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_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
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_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_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_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
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
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
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_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_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_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
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_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}
i
FTensor::Index< 'i', SPACE_DIM > i
Definition hcurl_divergence_operator_2d.cpp:27
j
FTensor::Index< 'j', 3 > j
Definition matrix_function.cpp:19
k
FTensor::Index< 'k', 3 > k
Definition matrix_function.cpp:20
test_for_zero
void test_for_zero(const T &t, const std::string &s)
Definition test_for_zero.hpp:7

◆ 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}
Generated by Doxygen 1.12.0 and hosted at University of Glasgow