X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?a=blobdiff_plain;ds=sidebyside;f=ginac%2Finifcns.h;h=73fff2167cae0314acf09b32f8abbc20d042c9ed;hb=6d383491ac7fdc612ebc15778a2db01dbc5660d6;hp=75599ea9bfe5e759dedff6ec631bb819b87bfad6;hpb=5b090bb7e4951b48a28c20ba21bf9810c86eb0ca;p=ginac.git diff --git a/ginac/inifcns.h b/ginac/inifcns.h index 75599ea9..73fff216 100644 --- a/ginac/inifcns.h +++ b/ginac/inifcns.h @@ -3,7 +3,7 @@ * Interface to GiNaC's initially known functions. */ /* - * GiNaC Copyright (C) 1999-2000 Johannes Gutenberg University Mainz, Germany + * GiNaC Copyright (C) 1999-2001 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 @@ -26,12 +26,16 @@ #include "function.h" #include "ex.h" -#ifndef NO_NAMESPACE_GINAC namespace GiNaC { -#endif // ndef NO_NAMESPACE_GINAC /** Absolute value. */ DECLARE_FUNCTION_1P(abs) + +/** Complex sign. */ +DECLARE_FUNCTION_1P(csgn) + +/** Eta function: log(a*b) == log(a) + log(b) + eta(a, b). */ +DECLARE_FUNCTION_2P(eta) /** Sine. */ DECLARE_FUNCTION_1P(sin) @@ -84,16 +88,16 @@ DECLARE_FUNCTION_1P(Li2) /** Trilogarithm. */ DECLARE_FUNCTION_1P(Li3) -// overloading at work: we cannot use the macros +// overloading at work: we cannot use the macros here /** Riemann's Zeta-function. */ extern const unsigned function_index_zeta1; inline function zeta(const ex & p1) { - return function(function_index_zeta1, p1); + return function(function_index_zeta1, p1); } /** Derivatives of Riemann's Zeta-function. */ extern const unsigned function_index_zeta2; inline function zeta(const ex & p1, const ex & p2) { - return function(function_index_zeta2, p1, p2); + return function(function_index_zeta2, p1, p2); } /** Gamma-function. */ @@ -103,18 +107,18 @@ DECLARE_FUNCTION_1P(tgamma) /** Beta-function. */ DECLARE_FUNCTION_2P(beta) -// overloading at work: we cannot use the macros +// overloading at work: we cannot use the macros here /** Psi-function (aka digamma-function). */ extern const unsigned function_index_psi1; inline function psi(const ex & p1) { - return function(function_index_psi1, p1); + return function(function_index_psi1, p1); } /** Derivatives of Psi-function (aka polygamma-functions). */ extern const unsigned function_index_psi2; inline function psi(const ex & p1, const ex & p2) { - return function(function_index_psi2, p1, p2); + return function(function_index_psi2, p1, p2); } - + /** Factorial function. */ DECLARE_FUNCTION_1P(factorial) @@ -133,11 +137,9 @@ ex ncpower(const ex &basis, unsigned exponent); inline bool is_order_function(const ex & e) { - return is_ex_the_function(e, Order); + return is_ex_the_function(e, Order); } -#ifndef NO_NAMESPACE_GINAC } // namespace GiNaC -#endif // ndef NO_NAMESPACE_GINAC #endif // ndef __GINAC_INIFCNS_H__