Jpp
Functions
JMatrix5S.cc File Reference
#include <string>
#include <iostream>
#include <iomanip>
#include "TRandom3.h"
#include "TMatrixTSym.h"
#include "JLang/JException.hh"
#include "JMath/JMatrix5S.hh"
#include "Jeep/JParser.hh"
#include "Jeep/JMessage.hh"
#include "Jeep/JTimer.hh"

Go to the source code of this file.

Functions

int main (int argc, char **argv)
 

Detailed Description

Example program to test inversion of symmetric matrix.

Author
mdejong

Definition in file JMatrix5S.cc.

Function Documentation

◆ main()

int main ( int  argc,
char **  argv 
)

Definition at line 22 of file JMatrix5S.cc.

23 {
24  using namespace std;
25 
26  double precision;
27  int numberOfEvents;
28  int debug;
29 
30  try {
31 
32  JParser<> zap("Example program to test inversion of symmetric matrix.");
33 
34  zap['e'] = make_field(precision) = 1.0e-6;
35  zap['n'] = make_field(numberOfEvents) = 1000;
36  zap['d'] = make_field(debug) = 3;
37 
38  zap(argc, argv);
39  }
40  catch(const exception &error) {
41  FATAL(error.what() << endl);
42  }
43 
44  using namespace JPP;
45 
46  ASSERT(numberOfEvents > 0);
47 
48  gRandom->SetSeed(0);
49 
50  const Double_t xmin = -1.0;
51  const Double_t xmax = +1.0;
52 
53  JTimer t1("Jpp");
54  JTimer t2("ROOT");
55 
56  for (int i = 0; i != numberOfEvents; ++i) {
57 
58  if (i%100 == 0) { STATUS(setw(8) << i << '\r'); DEBUG(endl); }
59 
60  JMatrix5D A(gRandom->Uniform(xmin,xmax), 0.0, 0.0, 0.0, 0.0,
61  gRandom->Uniform(xmin,xmax), gRandom->Uniform(xmin,xmax), 0.0, 0.0, 0.0,
62  gRandom->Uniform(xmin,xmax), gRandom->Uniform(xmin,xmax), gRandom->Uniform(xmin,xmax), 0.0, 0.0,
63  gRandom->Uniform(xmin,xmax), gRandom->Uniform(xmin,xmax), gRandom->Uniform(xmin,xmax), gRandom->Uniform(xmin,xmax), 0.0,
64  gRandom->Uniform(xmin,xmax), gRandom->Uniform(xmin,xmax), gRandom->Uniform(xmin,xmax), gRandom->Uniform(xmin,xmax), gRandom->Uniform(xmin,xmax));
65 
66  A.a01 = A.a10;
67  A.a02 = A.a20;
68  A.a03 = A.a30;
69  A.a04 = A.a40;
70  A.a12 = A.a21;
71  A.a13 = A.a31;
72  A.a14 = A.a41;
73  A.a23 = A.a32;
74  A.a24 = A.a42;
75  A.a34 = A.a43;
76 
77 
78  TMatrixTSym<double> R(5);
79 
80  R(0,0) = A.a00; R(0,1) = A.a01; R(0,2) = A.a02; R(0,3) = A.a03; R(0,4) = A.a04;
81  R(1,0) = A.a10; R(1,1) = A.a11; R(1,2) = A.a12; R(1,3) = A.a13; R(1,4) = A.a14;
82  R(2,0) = A.a20; R(2,1) = A.a21; R(2,2) = A.a22; R(2,3) = A.a23; R(2,4) = A.a24;
83  R(3,0) = A.a30; R(3,1) = A.a31; R(3,2) = A.a32; R(3,3) = A.a33; R(3,4) = A.a34;
84  R(4,0) = A.a40; R(4,1) = A.a41; R(4,2) = A.a42; R(4,3) = A.a43; R(4,4) = A.a44;
85 
86 
87  DEBUG("Matrix A" << endl);
88  DEBUG(A << endl);
89 
90  DEBUG("Determinant A " << A.getDeterminant() << endl);
91 
92  try {
93 
94  JMatrix5S B(A);
95 
96  t1.start();
97 
98  B.invert();
99 
100  t1.stop();
101 
102  t2.start();
103 
104  R.Invert();
105 
106  t2.stop();
107 
108  DEBUG("Matrix A^-1" << endl);
109  DEBUG(B << endl);
110 
111  DEBUG("Determinant A^-1 = " << B.getDeterminant() << endl);
112 
113  JMatrix5D C(A * B);
114 
115  DEBUG("Matrix A x A^-1" << endl);
116  DEBUG(C << endl);
117 
118  DEBUG("Determinant (A x A^-1) = " << C.getDeterminant() << endl);
119  DEBUG("Determinant A x Determinant A^-1 = " << A.getDeterminant() * B.getDeterminant() << endl);
120  DEBUG("A x A^-1 = I ? " << C.isIdentity(precision) << endl);
121 
122  if (!C.isIdentity(precision)) {
123  ERROR("Matrix A x A^-1 /= I" << endl);
124  }
125 
126  JMatrix5D D = C - JMatrix5D::getIdentity();
127 
128  DEBUG("Matrix D = C - I" << endl);
129  DEBUG(D << endl);
130 
131  ASSERT (C.isIdentity(precision));
132  }
133  catch (const JException& error) {
134  FATAL(error << endl);
135  }
136  }
137  STATUS(endl);
138 
139  if (numberOfEvents > 0) {
140 
141  const double factor = 1.0; // / numberOfEvents;
142 
143  t1.print(cout, factor, micro_t);
144  t2.print(cout, factor, micro_t);
145  }
146 
147  return 0;
148 }
ASSERT
#define ASSERT(A,...)
Assert macro.
Definition: JMessage.hh:90
JEEP::micro_t
micro
Definition: JScale.hh:29
JPARSER::JParser
Utility class to parse command line options.
Definition: JParser.hh:1493
JTOOLS::C
static const double C
Speed of light in vacuum [m/ns].
Definition: JConstants.hh:22
JPP
This name space includes all other name spaces (except KM3NETDAQ, KM3NET and ANTARES).
Definition: JAAnetToolkit.hh:37
ERROR
#define ERROR(A)
Definition: JMessage.hh:66
debug
int debug
debug level
Definition: JSirene.cc:59
STATUS
#define STATUS(A)
Definition: JMessage.hh:63
make_field
#define make_field(A,...)
macro to convert parameter to JParserTemplateElement object
Definition: JParser.hh:1954
DEBUG
#define DEBUG(A)
Message macros.
Definition: JMessage.hh:62
std
Definition: jaanetDictionary.h:36
FATAL
#define FATAL(A)
Definition: JMessage.hh:67