Simple Series to calculate tan(x)

[Dieter]

(09-07-2016 05:59 PM)Namir Wrote:  I found a simple series to calculate tan(x):

Code:

...
  K = 0
  Do
    K = K + 1
    Term = 1 / ((2 * K - 1) ^ 2 - X2)
    Sum = Sum + Term
  Loop Until Abs(Term) < TOLER
...

This should run faster as is uses less arithmetics and avoids a power function:

Code:

...
  K = 1
  Do
    Term = 1 / (K * K - X2)
    Sum = Sum + Term
    K = K + 2
  Loop Until Abs(Term) < TOLER
...

Dieter