/Users/barrand/private/dev/softinex/old/inexlib-1.2/inlib/inlib/a6d

Go to the documentation of this file.

// Copyright (C) 2010, Guy Barrand. All rights reserved.
// See the file inlib.license for terms.

#ifndef inlib_a6d
#define inlib_a6d

#include "a6"

namespace inlib {
namespace a6d {

// From the vector representation of the Lorentz group :
//   VecRep_k = eta * E4_k  
// with k in [0,6[
// We must have :
//  [VecRep_j,VecRep_k] = Lorentz_Group_const(j,k,l) * VecRep_l
class lorentz_group_constants : public a6::cbm<double> {
public:
  lorentz_group_constants(){
    set_value(0,1,2,1);
    set_value(0,2,1,1);
    set_value(0,3,4,1);
    set_value(0,4,3,1);

    set_value(1,2,0,-1);
    set_value(1,3,5,1);
    set_value(1,5,3,1);

    set_value(2,4,5,-1);
    set_value(2,5,4,1);

    set_value(3,4,0,-1);
    set_value(3,5,1,-1);

    set_value(4,5,2,-1);

    // Antysym parts :
    set_value(1,0,2,-1);
    set_value(2,0,1,-1);
    set_value(3,0,4,-1);
    set_value(4,0,3,-1);

    set_value(2,1,0,1);
    set_value(3,1,5,-1);
    set_value(5,1,3,-1);
  
    set_value(4,2,5,1);
    set_value(5,2,4,-1);
  
    set_value(4,3,0,1);
    set_value(5,3,1,1);
  
    set_value(5,4,2,1);
  }
};

// From the vector representation of the Lorentz group :
//   VecRep_k = eta * E4_k  
// with k in [0,6[
class lorentz_vec_metric : public sqm<double> {
public:
  lorentz_vec_metric(): sqm<double>(6){
    set_value(0,0, 2);
    set_value(1,1, 2);
    set_value(2,2,-2);
    set_value(3,3, 2);
    set_value(4,4,-2);
    set_value(5,5,-2);
  }
};

// From the vector representation of the Lorentz group :
//   VecRep_k = eta * Ek  (and not E4_k)
// with k in [0,6[
// We must have :
//  [VecRep_j,VecRep_k] = Lorentz_Group_const(j,k,l) * VecRep_l
class eta_E_lorentz_group_constants : public a6::cbm<double> {
public:
  eta_E_lorentz_group_constants(){
    set_value(0,1,2, 1);
    set_value(0,2,1,-1);
    set_value(0,3,4,-1);
    set_value(0,4,3, 1);
  
    set_value(1,2,0, 1);
    set_value(1,3,5, 1);
    set_value(1,5,3,-1);
  
    set_value(2,4,5,-1);
    set_value(2,5,4, 1);
  
    set_value(3,4,0, 1);
    set_value(3,5,1,-1);
  
    set_value(4,5,2, 1);
  
    // Antysym parts :
    set_value(1,0,2,-1);
    set_value(2,0,1, 1);
    set_value(3,0,4, 1);
    set_value(4,0,3,-1);
  
    set_value(2,1,0,-1);
    set_value(3,1,5,-1);
    set_value(5,1,3, 1);
  
    set_value(4,2,5, 1);
    set_value(5,2,4,-1);
  
    set_value(4,3,0,-1);
    set_value(5,3,1, 1);
  
    set_value(5,4,2,-1);
  }
};

}}

#endif