Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Limit

  • To: mathgroup at smc.vnet.net
  • Subject: [mg64772] Re: Limit
  • From: Takamura <franek at nospam.onet.pl>
  • Date: Thu, 2 Mar 2006 19:27:45 -0500 (EST)
  • References: <dtrvmt$lv0$1@smc.vnet.net> <du6m5g$58r$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Takamura wrote:
> Sinan Kapçak wrote:
>  
>>i want to find the value of the limit 
>>
>>1+(2/(3+(4/(5+(6/(7+... 
>>
>>how can i do that with Mathematica?
>>
> 
> Table[{i, 1 + N[FromContinuedFraction[Table[(j + 1)/j, {j, 2, i, 2}]], 
> 100]}, {i, 450, 500, 10}]
> Last[%][[2]]
> 

I'm sorry . This answers is wrong

to be so
g[n_] := FromContinuedFraction[Insert[a = 1; Table[a = j/a; (j + 1)/a, 
{j, 2, 2n, 2}], 1, 1]]
Table[{i, N[g[i], 100]}, {i, 55, 60}]
Last[%][[2]] - 1/(Sqrt[E] - 1)

0.x 10^-100

this is the same result which ealier send Daniel Lichtblau with function 
Fold

-- 
   takamura


  • Prev by Date: Re: simplifying a summation / integral
  • Next by Date: Re: No mesh with Graphics3D
  • Previous by thread: Re: Limit
  • Next by thread: Re: Re: General--Making the DisplayFormula style in ArticleModern look like Traditional