X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=ginac%2Fnumeric.h;h=c5086f433cac0142f542799cf39c85c9750247ea;hp=30d4edf34116f5bc9b675845a9d64604b0dd4b45;hb=9df145c8bfa8ce9f2cbe6c05673481b6ca4c4c22;hpb=4afb5bbe2c0b0a60928120a042997ba7d89e8f5c diff --git a/ginac/numeric.h b/ginac/numeric.h index 30d4edf3..c5086f43 100644 --- a/ginac/numeric.h +++ b/ginac/numeric.h @@ -3,7 +3,7 @@ * Makes the interface to the underlying bignum package available. */ /* - * GiNaC Copyright (C) 1999 Johannes Gutenberg University Mainz, Germany + * GiNaC Copyright (C) 1999-2000 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 @@ -24,15 +24,15 @@ #define __GINAC_NUMERIC_H__ #include -#include -#include +#include "basic.h" +#include "ex.h" class cl_N; // We want to include cln.h only in numeric.cpp in order to // avoid namespace pollution and keep compile-time low. -#ifndef NO_GINAC_NAMESPACE +#ifndef NO_NAMESPACE_GINAC namespace GiNaC { -#endif // ndef NO_GINAC_NAMESPACE +#endif // ndef NO_NAMESPACE_GINAC #define HASHVALUE_NUMERIC 0x80000001U @@ -52,7 +52,7 @@ public: _numeric_digits(); _numeric_digits& operator=(long prec); operator long(); - void print(ostream & os) const; + void print(std::ostream & os) const; // member variables private: long digits; @@ -63,24 +63,27 @@ private: * hierarchy. Objects of this type may directly be created by the user.*/ class numeric : public basic { + GINAC_DECLARE_REGISTERED_CLASS(numeric, basic) + // friends - friend numeric exp(const numeric & x); - friend numeric log(const numeric & x); - friend numeric sin(const numeric & x); - friend numeric cos(const numeric & x); - friend numeric tan(const numeric & x); - friend numeric asin(const numeric & x); - friend numeric acos(const numeric & x); - friend numeric atan(const numeric & x); - friend numeric atan(const numeric & y, const numeric & x); - friend numeric sinh(const numeric & x); - friend numeric cosh(const numeric & x); - friend numeric tanh(const numeric & x); - friend numeric asinh(const numeric & x); - friend numeric acosh(const numeric & x); - friend numeric atanh(const numeric & x); - friend numeric zeta(const numeric & x); - friend numeric bernoulli(const numeric & n); + friend const numeric exp(const numeric & x); + friend const numeric log(const numeric & x); + friend const numeric sin(const numeric & x); + friend const numeric cos(const numeric & x); + friend const numeric tan(const numeric & x); + friend const numeric asin(const numeric & x); + friend const numeric acos(const numeric & x); + friend const numeric atan(const numeric & x); + friend const numeric atan(const numeric & y, const numeric & x); + friend const numeric sinh(const numeric & x); + friend const numeric cosh(const numeric & x); + friend const numeric tanh(const numeric & x); + friend const numeric asinh(const numeric & x); + friend const numeric acosh(const numeric & x); + friend const numeric atanh(const numeric & x); + friend const numeric Li2(const numeric & x); + friend const numeric zeta(const numeric & x); + friend const numeric fibonacci(const numeric & n); friend numeric abs(const numeric & x); friend numeric mod(const numeric & a, const numeric & b); friend numeric smod(const numeric & a, const numeric & b); @@ -114,30 +117,30 @@ public: explicit numeric(unsigned long i); explicit numeric(long numer, long denom); explicit numeric(double d); - explicit numeric(char const *); - numeric(cl_N const & z); - + explicit numeric(const char *); + numeric(const cl_N & z); + // functions overriding virtual functions from bases classes public: basic * duplicate() const; - void print(ostream & os, unsigned precedence=0) const; - void printraw(ostream & os) const; - void printtree(ostream & os, unsigned indent) const; - void printcsrc(ostream & os, unsigned type, unsigned precedence=0) const; + void print(std::ostream & os, unsigned precedence=0) const; + void printraw(std::ostream & os) const; + void printtree(std::ostream & os, unsigned indent) const; + void printcsrc(std::ostream & os, unsigned type, unsigned precedence=0) const; bool info(unsigned inf) const; + bool has(const ex & other) const; + ex eval(int level=0) const; ex evalf(int level=0) const; - ex diff(symbol const & s) const; ex normal(lst &sym_lst, lst &repl_lst, int level=0) const; + ex to_rational(lst &repl_lst) const; numeric integer_content(void) const; ex smod(const numeric &xi) const; numeric max_coefficient(void) const; protected: - int compare_same_type(basic const & other) const; - bool is_equal_same_type(basic const & other) const; - unsigned calchash(void) const { - hashvalue=HASHVALUE_NUMERIC; - return HASHVALUE_NUMERIC; - } + ex derivative(const symbol & s) const; + int compare_same_type(const basic & other) const; + bool is_equal_same_type(const basic & other) const; + unsigned calchash(void) const; // new virtual functions which can be overridden by derived classes // (none) @@ -159,9 +162,10 @@ public: const numeric & operator=(long i); const numeric & operator=(unsigned long i); const numeric & operator=(double d); - const numeric & operator=(char const * s); + const numeric & operator=(const char * s); numeric inverse(void) const; int csgn(void) const; + ::cl_N* clnptr(void) const { return value; } /**< ptr to representation. */ int compare(const numeric & other) const; bool is_equal(const numeric & other) const; bool is_zero(void) const; @@ -184,55 +188,62 @@ public: bool operator>(const numeric & other) const; bool operator>=(const numeric & other) const; int to_int(void) const; + long to_long(void) const; double to_double(void) const; - numeric real(void) const; - numeric imag(void) const; - numeric numer(void) const; - numeric denom(void) const; + const numeric real(void) const; + const numeric imag(void) const; + const numeric numer(void) const; + const numeric denom(void) const; int int_length(void) const; // member variables protected: static unsigned precedence; - cl_N *value; + ::cl_N *value; }; // global constants extern const numeric some_numeric; extern const numeric I; -extern type_info const & typeid_numeric; +extern const type_info & typeid_numeric; extern _numeric_digits Digits; -#define is_a_numeric_hash(x) ((x)==HASHVALUE_NUMERIC) +//#define is_a_numeric_hash(x) ((x)==HASHVALUE_NUMERIC) // may have to be changed to ((x)>=0x80000000U) +// has been changed +//#define is_a_numeric_hash(x) ((x)&0x80000000U) + // global functions -numeric exp(const numeric & x); -numeric log(const numeric & x); -numeric sin(const numeric & x); -numeric cos(const numeric & x); -numeric tan(const numeric & x); -numeric asin(const numeric & x); -numeric acos(const numeric & x); -numeric atan(const numeric & x); -numeric atan(const numeric & y, const numeric & x); -numeric sinh(const numeric & x); -numeric cosh(const numeric & x); -numeric tanh(const numeric & x); -numeric asinh(const numeric & x); -numeric acosh(const numeric & x); -numeric atanh(const numeric & x); -numeric zeta(const numeric & x); -numeric gamma(const numeric & x); -numeric psi(const numeric & x); -numeric psi(const numeric & n, const numeric & x); -numeric factorial(const numeric & n); -numeric doublefactorial(const numeric & n); -numeric binomial(const numeric & n, const numeric & k); -numeric bernoulli(const numeric & n); +const numeric exp(const numeric & x); +const numeric log(const numeric & x); +const numeric sin(const numeric & x); +const numeric cos(const numeric & x); +const numeric tan(const numeric & x); +const numeric asin(const numeric & x); +const numeric acos(const numeric & x); +const numeric atan(const numeric & x); +const numeric atan(const numeric & y, const numeric & x); +const numeric sinh(const numeric & x); +const numeric cosh(const numeric & x); +const numeric tanh(const numeric & x); +const numeric asinh(const numeric & x); +const numeric acosh(const numeric & x); +const numeric atanh(const numeric & x); +const numeric Li2(const numeric & x); +const numeric zeta(const numeric & x); +const numeric lgamma(const numeric & x); +const numeric tgamma(const numeric & x); +const numeric psi(const numeric & x); +const numeric psi(const numeric & n, const numeric & x); +const numeric factorial(const numeric & n); +const numeric doublefactorial(const numeric & n); +const numeric binomial(const numeric & n, const numeric & k); +const numeric bernoulli(const numeric & n); +const numeric fibonacci(const numeric & n); numeric abs(const numeric & x); numeric mod(const numeric & a, const numeric & b); @@ -247,13 +258,6 @@ numeric isqrt(const numeric & x); numeric gcd(const numeric & a, const numeric & b); numeric lcm(const numeric & a, const numeric & b); -/** Exception thrown by numeric members to signal failure */ -struct numeric_fail -{ - int failval; - numeric_fail(int n) { failval = n; } -}; - // wrapper functions around member functions inline numeric pow(const numeric & x, const numeric & y) { return x.power(y); } @@ -261,7 +265,7 @@ inline numeric pow(const numeric & x, const numeric & y) inline numeric inverse(const numeric & x) { return x.inverse(); } -inline bool csgn(const numeric & x) +inline int csgn(const numeric & x) { return x.csgn(); } inline bool is_zero(const numeric & x) @@ -300,32 +304,34 @@ inline bool is_cinteger(const numeric & x) inline bool is_crational(const numeric & x) { return x.is_crational(); } -inline numeric real(const numeric & x) +inline const numeric real(const numeric & x) { return x.real(); } -inline numeric imag(const numeric & x) +inline const numeric imag(const numeric & x) { return x.imag(); } -inline numeric numer(const numeric & x) +inline const numeric numer(const numeric & x) { return x.numer(); } -inline numeric denom(const numeric & x) +inline const numeric denom(const numeric & x) { return x.denom(); } // numeric evaluation functions for class constant objects: ex PiEvalf(void); -ex EulerGammaEvalf(void); +ex EulerEvalf(void); ex CatalanEvalf(void); + // utility functions inline const numeric &ex_to_numeric(const ex &e) { return static_cast(*e.bp); } -#ifndef NO_GINAC_NAMESPACE + +#ifndef NO_NAMESPACE_GINAC } // namespace GiNaC -#endif // ndef NO_GINAC_NAMESPACE +#endif // ndef NO_NAMESPACE_GINAC #endif // ndef __GINAC_NUMERIC_H__