X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=ginac%2Fcolor.cpp;h=b59e4b4ce1a030b340b1a248a6be6d4b070ef34e;hp=fc78506af58ff60576fffb476f95c7549e229647;hb=8bcccf834ad41e94a1a4f3a0304c2945b228b4f4;hpb=a8507b8af1c08d9b27d98d57f95c7ca1a8671e27 diff --git a/ginac/color.cpp b/ginac/color.cpp index fc78506a..b59e4b4c 100644 --- a/ginac/color.cpp +++ b/ginac/color.cpp @@ -1,8 +1,9 @@ /** @file color.cpp * * Implementation of GiNaC's color objects. - * No real implementation yet, to be done. - * + * No real implementation yet, to be done. */ + +/* * GiNaC Copyright (C) 1999 Johannes Gutenberg University Mainz, Germany * * This program is free software; you can redistribute it and/or modify @@ -26,7 +27,15 @@ #include #include -#include "ginac.h" +#include "color.h" +#include "ex.h" +#include "coloridx.h" +#include "ncmul.h" +#include "numeric.h" +#include "relational.h" +#include "debugmsg.h" + +namespace GiNaC { ////////// // default constructor, destructor, copy constructor assignment operator and helpers @@ -37,7 +46,7 @@ color::color() : type(invalid), representation_label(0) { debugmsg("color default constructor",LOGLEVEL_CONSTRUCT); - tinfo_key=TINFO_COLOR; + tinfo_key=TINFO_color; } color::~color() @@ -88,7 +97,7 @@ color::color(color_types const t, unsigned const rl) : type(t), representation_l { debugmsg("color constructor from color_types,unsigned",LOGLEVEL_CONSTRUCT); ASSERT(representation_label(&other); if (type==o->type) { if (representation_label==o->representation_label) { @@ -351,7 +360,7 @@ int color::compare_same_type(basic const & other) const bool color::is_equal_same_type(basic const & other) const { - ASSERT(other.tinfo() == TINFO_COLOR); + ASSERT(other.tinfo() == TINFO_color); const color *o = static_cast(&other); if (type!=o->type) return false; if (representation_label!=o->representation_label) return false; @@ -740,7 +749,7 @@ ex color_trace_of_one_representation_label(exvector const & v) v2.push_back(color_T(summation_index)); // don't care about the representation_label - // check this formula for SU(N) with N!=3 !!!!!!!!! + // FIXME: check this formula for SU(N) with N!=3 return numeric(1)/numeric(2*COLOR_THREE)*color_delta8(next_to_last_index,last_index) % color_trace_of_one_representation_label(v1) +numeric(1)/numeric(2)*color_h(next_to_last_index,last_index,summation_index) @@ -852,7 +861,7 @@ ex simplify_pure_color_string(ex const & e) } } - // TODO: higher contractions!!!!!!!!!!!!! + // FIXME: higher contractions return e; } @@ -938,7 +947,7 @@ ex brute_force_sum_color_indices(ex const & e) // increment counter[] l=iv_double.size()-1; - while ((l>=0)&&((++counter[l])>COLOR_EIGHT)) { + while ((l>=0)&&((++counter[l])>(int)COLOR_EIGHT)) { counter[l]=1; l--; } @@ -956,15 +965,4 @@ void append_exvector_to_exvector(exvector & dest, exvector const & source) } } - - - - - - - - - - - - +} // namespace GiNaC