05/01/2009, 08:34 PM

Oh Mathematica I can do

Then you can do regular tetration with this code:

which would calculate .

Code:

`CarlemanMatrix[series:SeriesData[x_, x0_, _, _, n_, 1]] := `

Table[D[Normal[series]^j, {x, k}]/k! /. {x -> x0}, {j, 0, n}, {k, 0, n}];

RegularIterate[series:SeriesData[x_, x0_, _, _, n_, 1], t_] :=

SeriesData[x, x0, MatrixPower[CarlemanMatrix[series], t][[2]], 0, n, 1];

Then you can do regular tetration with this code:

Code:

`tet = c + Normal[RegularIterate[Series[c^((x + c)/c) - c, {x, 0, 3}], y]]/.x->(1-c);`

tet /. {c -> 2, y -> 0.5}