Jpp - the software that should make you happy
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
Functions
JMatrix4S.cc File Reference

Example program to test inversion of symmetric matrix. More...

#include <string>
#include <iostream>
#include <iomanip>
#include "TRandom3.h"
#include "TMatrixTSym.h"
#include "JLang/JException.hh"
#include "JMath/JMatrix4S.hh"
#include "JMath/JMathTestkit.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 JMatrix4S.cc.

Function Documentation

int main ( int  argc,
char **  argv 
)

Definition at line 23 of file JMatrix4S.cc.

24 {
25  using namespace std;
26  using namespace JPP;
27 
28  double precision;
29  int numberOfEvents;
30  int debug;
31 
32  try {
33 
34  JParser<> zap("Example program to test inversion of symmetric matrix.");
35 
36  zap['e'] = make_field(precision) = 1.0e-6;
37  zap['n'] = make_field(numberOfEvents) = 1000;
38  zap['d'] = make_field(debug) = 3;
39 
40  zap(argc, argv);
41  }
42  catch(const exception &error) {
43  FATAL(error.what() << endl);
44  }
45 
46 
47  ASSERT(numberOfEvents > 0);
48 
49  gRandom->SetSeed(0);
50 
51  JTimer t1("Jpp");
52  JTimer t2("ROOT");
53 
54  for (int i = 0; i != numberOfEvents; ++i) {
55 
56  if (i%100 == 0) { STATUS(setw(8) << i << '\r'); DEBUG(endl); }
57 
58  JMatrix4S A = getRandom<JMatrix4S>();
59 
60  TMatrixTSym<double> R(4);
61 
62  R(0,0) = A.a00; R(0,1) = A.a01; R(0,2) = A.a02; R(0,3) = A.a03;
63  R(1,0) = A.a10; R(1,1) = A.a11; R(1,2) = A.a12; R(1,3) = A.a13;
64  R(2,0) = A.a20; R(2,1) = A.a21; R(2,2) = A.a22; R(2,3) = A.a23;
65  R(3,0) = A.a30; R(3,1) = A.a31; R(3,2) = A.a32; R(3,3) = A.a33;
66 
67 
68  DEBUG("Matrix A" << endl);
69  DEBUG(A << endl);
70 
71  DEBUG("Determinant A " << A.getDeterminant() << endl);
72 
73  try {
74 
75  JMatrix4S B(A);
76 
77  t1.start();
78 
79  for (int i = 11; i != 0; --i) {
80  B.invert();
81  }
82 
83  t1.stop();
84 
85  t2.start();
86 
87  for (int i = 11; i != 0; --i) {
88  R.Invert();
89  }
90 
91  t2.stop();
92 
93  DEBUG("Matrix A^-1" << endl);
94  DEBUG(B << endl);
95 
96  DEBUG("Determinant A^-1 = " << B.getDeterminant() << endl);
97 
98  JMatrix4D C(A * B);
99 
100  DEBUG("Matrix A x A^-1" << endl);
101  DEBUG(C << endl);
102 
103  DEBUG("Determinant (A x A^-1) = " << C.getDeterminant() << endl);
104  DEBUG("Determinant A x Determinant A^-1 = " << A.getDeterminant() * B.getDeterminant() << endl);
105  DEBUG("A x A^-1 = I ? " << C.isIdentity(precision) << endl);
106 
107  if (!C.isIdentity(precision)) {
108  ERROR("Matrix A x A^-1 /= I" << endl);
109  }
110 
111  JMatrix4D D = C - JMatrix4D::getIdentity();
112 
113  DEBUG("Matrix D = C - I" << endl);
114  DEBUG(D << endl);
115 
116  ASSERT(C.isIdentity(precision));
117  }
118  catch (const JException& error) {
119  FATAL(error << endl);
120  }
121  }
122  STATUS(endl);
123 
124  if (numberOfEvents > 0) {
125 
126  const double factor = 1.0; // / numberOfEvents;
127 
128  t1.print(cout, factor, micro_t);
129  t2.print(cout, factor, micro_t);
130  }
131 
132  return 0;
133 }
Utility class to parse command line options.
Definition: JParser.hh:1500
do echo Generating $dir eval D
Definition: JDrawLED.sh:50
micro
Definition: JScale.hh:29
#define STATUS(A)
Definition: JMessage.hh:63
static const double C
Physics constants.
#define ASSERT(A,...)
Assert macro.
Definition: JMessage.hh:90
#define make_field(A,...)
macro to convert parameter to JParserTemplateElement object
Definition: JParser.hh:1961
#define ERROR(A)
Definition: JMessage.hh:66
int debug
debug level
Definition: JSirene.cc:63
#define FATAL(A)
Definition: JMessage.hh:67
then echo Variable JPP_DIR undefined exit fi source $JPP_DIR setenv sh $JPP_DIR set_variable NORTH set_variable EAST set_variable SOUTH set_variable WEST set_variable WORKDIR tmp set_variable R set_variable CT set_variable YMAX set_variable YMIN if do_usage *then usage $script[distance] fi case set_variable R
Definition: JDrawLED.sh:35
then usage $script< input_file >< detector_file > fi set_variable OUTPUT_DIR set_variable SELECTOR JDAQTimesliceL1 set_variable DEBUG case set_variable DEBUG
source $JPP_DIR setenv csh $JPP_DIR eval JShellParser o a A