Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Bug ???

• To: mathgroup at smc.vnet.net
• Subject: [mg81824] Re: [mg81805] Bug ???
• From: DrMajorBob <drmajorbob at bigfoot.com>
• Date: Thu, 4 Oct 2007 04:25:46 -0400 (EDT)
• References: <200710020928.FAA28247@smc.vnet.net> <200710030635.CAA29450@smc.vnet.net> <17963969.1191418741067.JavaMail.root@m35>
• Reply-to: drmajorbob at bigfoot.com

a = {}; Do[k = n^2 - Floor[n^2 (2/3)]^2;
  If[k == 0, AppendTo[a, {k, n^2}]], {n, 1, 1000}]; a

{{0, 4}}

See the difference?

Bobby

On Wed, 03 Oct 2007 05:34:20 -0500, Artur <grafix at csl.pl> wrote:

> Why doesn't work:
> a={};Do[k=n^2-(Floor[n^2(2/3)])^2;If[k=0,
> AppendTo[a,{k,n^2}]],{n,1,1000}];a
> but working
> a={};Do[k=n^2-(Floor[n^2(2/3)])^2;If[k<1,
> AppendTo[a,{k,n^2}]],{n,1,1000}];a
>
> Artur Jasinski, Poland
>
>
>



-- 

DrMajorBob at bigfoot.com

• References:
  • help with polynomial solutions
    • From: "Jules P. Aronson" <aronson@nlm.nih.gov>
  • Re: help with polynomial solutions
    • From: Andrzej Kozlowski <akoz@mimuw.edu.pl>