TpsMath.h

Go to the documentation of this file.

#ifndef CLASSIC_TpsMath_HH
#define CLASSIC_TpsMath_HH
 
// ------------------------------------------------------------------------
// $RCSfile: TpsMath.h,v $
// ------------------------------------------------------------------------
// $Revision: 1.1.1.1 $
// ------------------------------------------------------------------------
// Copyright: see Copyright.readme
// ------------------------------------------------------------------------
//
// Overloaded template functions:
//   Elementary functions acting on Tps<T> objects.
//
// ------------------------------------------------------------------------
// Class category: Algebra
// ------------------------------------------------------------------------
//
// $Date: 2000/03/27 09:32:32 $
// $Author: fci $
//
// ------------------------------------------------------------------------
 
#include "Algebra/Tps.h"
#include "Utilities/DomainError.h"
#include <cmath>
 
 
// Class Tps; global functions acting on Tps objects.
// ------------------------------------------------------------------------
 
template <class T> Tps<T> pow(const Tps<T> &x, int y);
 
template <class T> Tps<T> sqrt(const Tps<T> &x);
 
template <class T> Tps<T> sin(const Tps<T> &x);
 
template <class T> Tps<T> cos(const Tps<T> &x);
 
template <class T> Tps<T> tan(const Tps<T> &x);
 
template <class T> Tps<T> cot(const Tps<T> &x);
 
template <class T> Tps<T> sec(const Tps<T> &x);
 
template <class T> Tps<T> csc(const Tps<T> &x);
 
template <class T> Tps<T> exp(const Tps<T> &x);
 
template <class T> Tps<T> log(const Tps<T> &x);
 
template <class T> Tps<T> sinh(const Tps<T> &x);
 
template <class T> Tps<T> cosh(const Tps<T> &x);
 
template <class T> Tps<T> tanh(const Tps<T> &x);
 
 
// Implementation
// ------------------------------------------------------------------------
 
template <class T>
Tps<T> pow(const Tps<T> &x, int y) {
    Tps<T> z(T(1));
 
    if(y > 0) {
        while(y-- > 0) z = z * x;
    } else if(y < 0) {
        Tps<T> t = x.inverse();
        while(y++ < 0) z = z * t;
    }
 
    return z;
}
 
 
template <class T>
Tps<T> sqrt(const Tps<T> &x) {
    T aZero = x[0];
    if(aZero <= 0.0) throw DomainError("sqrt(const Tps &)");
 
    // Build Taylor series.
    int cut = x.getTruncOrder();
    T *series = new T[cut+1];
    series[0] = sqrt(aZero);
 
    for(int i = 1; i <= cut; i++) {
        series[i] = (series[i-1] * double(3 - 2 * i)) / (aZero * double(2 * i));
    }
 
    Tps<T> z = x.Taylor(series, cut);
    delete [] series;
    return z;
}
 
 
template <class T>
Tps<T> sin(const Tps<T> &x) {
    T aZero = x[0];
    int cut = x.getTruncOrder();
    T *series = new T[cut+1];
    series[0] = sin(aZero);
    series[1] = cos(aZero);
 
    for(int i = 2; i <= cut; i++) {
        series[i] = - series[i-2] / double(i * (i - 1));
    }
 
    Tps<T> z = x.Taylor(series, cut);
    delete [] series;
    return z;
}
 
 
template <class T>
Tps<T> cos(const Tps<T> &x) {
    T aZero = x[0];
    int cut = x.getTruncOrder();
    T *series = new T[cut+1];
    series[0] =   cos(aZero);
    series[1] = - sin(aZero);
 
    for(int i = 2; i <= cut; i++) {
        series[i] = - series[i-2] / double(i * (i - 1));
    }
 
    Tps<T> z = x.Taylor(series, cut);
    delete [] series;
    return z;
}
 
 
template <class T>
Tps<T> tan(const Tps<T> &x) {
    return sin(x) / cos(x);
}
 
 
template <class T>
Tps<T> sec(const Tps<T> &x) {
    return cos(x).inverse();
}
 
 
template <class T>
Tps<T> csc(const Tps<T> &x) {
    return sin(x).inverse();
}
 
 
template <class T>
Tps<T> exp(const Tps<T> &x) {
    T aZero = x[0];
    int cut = x.getTruncOrder();
    T *series = new T[cut+1];
    series[0] = exp(aZero);
 
    for(int i = 1; i <= cut; i++) {
        series[i] = series[i-1] / double(i);
    }
 
    Tps<T> z = x.Taylor(series, cut);
    delete [] series;
    return z;
}
 
 
template <class T>
Tps<T> log(const Tps<T> &x) {
    T aZero = x[0];
    if(aZero <= 0) throw DomainError("log(const Tps &)");
 
    int cut = x.getTruncOrder();
    double power;
    T *series = new T[cut+1];
    series[0] = log(aZero);
    series[1] = power = T(1) / aZero;
 
    for(int i = 2; i <= cut; i++) {
        power = - power / aZero;
        series[i] = power / double(i);
    }
 
    Tps<T> z = x.Taylor(series, cut);
    delete [] series;
    return z;
}
 
 
template <class T>
Tps<T> sinh(const Tps<T> &x) {
    T aZero = x[0];
    int cut = x.getTruncOrder();
    T *series = new T[cut+1];
    series[0] = sinh(aZero);
    series[1] = cosh(aZero);
 
    for(int i = 2; i <= cut; i++) {
        series[i] = series[i-2] / double(i * (i - 1));
    }
 
    Tps<T> z = x.Taylor(series, cut);
    delete [] series;
    return z;
}
 
 
template <class T>
Tps<T> cosh(const Tps<T> &x) {
    T aZero = x[0];
    int cut = x.getTruncOrder();
    T *series = new T[cut+1];;
    series[0] = cosh(aZero);
    series[1] = sinh(aZero);
 
    for(int i = 2; i <= cut; i++) {
        series[i] = series[i-2] / double(i * (i - 1));
    }
 
    Tps<T> z = x.Taylor(series, cut);
    delete [] series;
    return z;
}
 
 
template <class T>
Tps<T> tanh(const Tps<T> &x) {
    return sinh(x) / cosh(x);
}
 
#endif // CLASSIC_TpsMath_HH