MathGroup Archive 2008

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

Search the Archive

Re: Timing


Who know how change bellow procedure to received reasonable timing?

Part:
Expand[((3 + 2 Sqrt[2])^(2^(n - 1) - 1) - (3 - 2 Sqrt[2])^(2^(n - 1) - 
1))/(4 Sqrt[2])]/(2^n - 1)
is every time integer
> Timing[Do[ If[IntegerQ[Expand[((3 + 2 Sqrt[2])^(2^(n - 1) - 1) - (3 - 
> 2 Sqrt[2])^(2^(n - 1) - 1))/(4 Sqrt[2])]/(2^n - 1)],
>   Print[n]], {n, 1, 17}]]
>
I will be greatfull for any help! (Mayby some N[] or Floor[N[]]  or 
Int[N[]] will be quickest

Best wishes
Artur


  • Prev by Date: Re: Polygon cutter
  • Next by Date: Re: Sorting 3 points
  • Previous by thread: New Presentations Version
  • Next by thread: Re: Re: Timing