Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Mathematica program for tetration based on the series with q-binomial coefficients
#1
A Mathematica program to compute tetration for and  based on the formula with q-binomial coefficients from http://mathoverflow.net/q/259278/9550.

Increase Terms and/or WorkingPrecision option values to get more digits. Examples of values computed using this program are http://goo.gl/MLfEMC and http://goo.gl/LVRkk7.

Code:
ClearAll[Tetration];
Options[Tetration] = {Terms -> 40, WorkingPrecision -> 100};
Tetration[_, -1, OptionsPattern[]] = 0;
Tetration[a_, n_Integer /; n >= 0, OptionsPattern[]] := Power @@ Table[a, {n}];
Tetration[a_ /; 1 < a < E^(1/E), z_ /; Re[z] > -2, OptionsPattern[]] :=
  With[{q = -ProductLog[-Log[a]]},
  With[{limit = SequenceLimit[N[Accumulate[Table[Sum[(-1)^(n + k) q^Binomial[n - k, 2] QBinomial[z, n, q] QBinomial[n, k, q] Tetration[a, k], {k, 0, n}], {n, 0, OptionValue[Terms]}]], OptionValue[WorkingPrecision]]]},
   SetPrecision[limit, 3/4 Precision[limit]]]];
   
(* Examples:
   Tetration[Log[3], 1/2]
   Tetration[Log[3], 1/2, Terms -> 50, WorkingPrecision -> 150] *)
Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
Wink new fatou.gp program sheldonison 12 4,770 08/08/2017, 12:32 AM
Last Post: sheldonison
  complex base tetration program sheldonison 23 19,189 10/26/2016, 10:02 AM
Last Post: Gottfried
  C++ program for generatin complex map in EPS format MorgothV8 0 1,133 09/17/2014, 04:14 PM
Last Post: MorgothV8
  Computations with the double-exp series mike3 0 1,378 04/20/2010, 07:32 PM
Last Post: mike3
  Mathematica notebooks Daniel 0 1,308 08/14/2007, 11:00 PM
Last Post: Daniel



Users browsing this thread: 1 Guest(s)