Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
"game" - to calculate 1.00...001 ^^ 0.5 = ?
#24
andydude Wrote:Oh Mathematica I can do
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];
I don't run because I got 2 messages errors (SeriesData::sdatc: "Coefficient specification _ in \
SeriesData[x_,x0_,_,_,n_,1] is not a list.").

andydude Wrote: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}
which would calculate .
I got calculate w/ only 6 digits. I don't get more than 6 digits after I tried N[tet /. {c -> 2, y -> 0.5},20].
Reply


Messages In This Thread
RE: "game" - to calculate 1.00...001 ^^ 0.5 = ? - by nuninho1980 - 05/01/2009, 11:07 PM



Users browsing this thread: 1 Guest(s)