X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=ginac%2Fidx.h;h=930994d18f93bc5c8ae78151e58ee4e247dcc298;hp=b6e63e0717f8538cc9e9c8c25004c043ed775412;hb=54c255c38e731711086e6dd34e2d5d6d184e504b;hpb=5ef801553eb39aed7bd2df9dd1aff9d752c3ea9d diff --git a/ginac/idx.h b/ginac/idx.h index b6e63e07..930994d1 100644 --- a/ginac/idx.h +++ b/ginac/idx.h @@ -3,7 +3,7 @@ * Interface to GiNaC's indices. */ /* - * GiNaC Copyright (C) 1999-2003 Johannes Gutenberg University Mainz, Germany + * GiNaC Copyright (C) 1999-2007 Johannes Gutenberg University Mainz, Germany * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -17,7 +17,7 @@ * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA */ #ifndef __GINAC_IDX_H__ @@ -48,7 +48,6 @@ public: // functions overriding virtual functions from base classes public: - void print(const print_context & c, unsigned level = 0) const; bool info(unsigned inf) const; size_t nops() const; ex op(size_t i) const; @@ -59,6 +58,7 @@ public: protected: ex derivative(const symbol & s) const; bool match_same_type(const basic & other) const; + unsigned calchash() const; // new virtual functions in this class public: @@ -93,6 +93,12 @@ public: * If this is undecidable, throw an exception. */ ex minimal_dim(const idx & other) const; +protected: + void print_index(const print_context & c, unsigned level) const; + void do_print(const print_context & c, unsigned level) const; + void do_print_latex(const print_latex & c, unsigned level) const; + void do_print_tree(const print_tree & c, unsigned level) const; + protected: ex value; /**< Expression that constitutes the index (numeric or symbolic name) */ ex dim; /**< Dimension of space (can be symbolic or numeric) */ @@ -117,7 +123,6 @@ public: // functions overriding virtual functions from base classes public: - void print(const print_context & c, unsigned level = 0) const; bool is_dummy_pair_same_type(const basic & other) const; protected: @@ -134,6 +139,10 @@ public: /** Make a new index with the same value but the opposite variance. */ ex toggle_variance() const; +protected: + void do_print(const print_context & c, unsigned level) const; + void do_print_tree(const print_tree & c, unsigned level) const; + // member variables protected: bool covariant; /**< x.mu, default is contravariant: x~mu */ @@ -162,8 +171,9 @@ public: // functions overriding virtual functions from base classes public: - void print(const print_context & c, unsigned level = 0) const; bool is_dummy_pair_same_type(const basic & other) const; + // complex conjugation + ex conjugate() const { return toggle_dot(); } protected: bool match_same_type(const basic & other) const; @@ -184,6 +194,11 @@ public: * dottedness. */ ex toggle_variance_dot() const; +protected: + void do_print(const print_context & c, unsigned level) const; + void do_print_latex(const print_latex & c, unsigned level) const; + void do_print_tree(const print_tree & c, unsigned level) const; + // member variables protected: bool dotted; @@ -192,24 +207,6 @@ protected: // utility functions -/** Specialization of is_exactly_a(obj) for idx objects. */ -template<> inline bool is_exactly_a(const basic & obj) -{ - return obj.tinfo()==TINFO_idx; -} - -/** Specialization of is_exactly_a(obj) for varidx objects. */ -template<> inline bool is_exactly_a(const basic & obj) -{ - return obj.tinfo()==TINFO_varidx; -} - -/** Specialization of is_exactly_a(obj) for spinidx objects. */ -template<> inline bool is_exactly_a(const basic & obj) -{ - return obj.tinfo()==TINFO_spinidx; -} - /** Check whether two indices form a dummy pair. */ bool is_dummy_pair(const idx & i1, const idx & i2);