WOLFRAM

Services & Resources / Wolfram Forums / MathGroup Archive

MathGroup Archive 2011

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

Search the Archive

How to do quickest

  • To: mathgroup at smc.vnet.net
  • Subject: [mg123046] How to do quickest
  • From: Artur <grafix at csl.pl>
  • Date: Mon, 21 Nov 2011 04:29:38 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Reply-to: grafix at csl.pl
Dear Mathematica Gurus,
How to do quickest following procedure (which is very slowly):

qq = {}; Do[y = Round[Sqrt[x^3]];
  If[(x^3 - y^2) != 0,
   kk = m /. Solve[{4 m^2 + 6 m n + n^2 ==
         x, (19 m^2 + 9 m n + n^2) Sqrt[m^2 + n^2] == y}, {m, n}][[1]];
    ll = CoefficientList[MinimalPolynomial[kk][[1]], #1];
   lll = Length[ll];
   If[lll < 12, Print[{x/(x^3 - y^2)^2, kk, x, y, x^3 - y^2}];
    If[Length[ll] == 3, Print[{kk, x, y}]]]], {x, 2, 1000000}];
  qq


(*Best wishes Artur*)
  • Prev by Date: Help: Regular expressions
  • Next by Date: Mathematica 8 Serial Port Comm.
  • Previous by thread: Re: Help: Regular expressions
  • Next by thread: Re: How to do quickest