Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*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 2005

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

Search the Archive

Re: Streamline output to avoid redundancy

  • To: mathgroup at smc.vnet.net
  • Subject: [mg61168] Re: Streamline output to avoid redundancy
  • From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
  • Date: Tue, 11 Oct 2005 06:19:16 -0400 (EDT)
  • Organization: Uni Leipzig
  • References: <difr2e$fc9$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

Flatten[Table[If[(x^3 - 1)/(x - 1) == (y^n - 
1)/(y - 1) && x != y,
{{x, y, n}}], {x, 2, 100}, {y, 2, 100}, {n, 1, 
101, 2}] , 3] /.
Null :> Sequence[]


Regards

  Jens

"Diana" <diana53xiii at earthlink.remove13.net> 
schrieb im Newsbeitrag 
news:difr2e$fc9$1 at smc.vnet.net...
| Mathematica folks,
|
| I am starting some research on working with 
solutions of Diophantine
| Equations. I am wanting to streamline the 
programming of solutions to
| eliminate nulls and redundant strings.
|
| For example, if I code the following:
|
| Table[If[(x^3-1)/(x-1)==(y^n-1)/(y-1) && x!=y,
| {{x,y,n},}],{x,2,1000},{y,2,1000},{n,1,1001,2}]
|
| I get pages of output, and then need to do a 
Union of the result. Is there a
| way to streamline this?
|
| Thanks,
|
| Diana
|
| -- 
| 
=====================================================
| "God made the integers, all else is the work of 
man."
| L. Kronecker, Jahresber. DMV 2, S. 19.
| 



  • Prev by Date: Re: region bounded by surfaces
  • Next by Date: Re: surface intersection
  • Previous by thread: Streamline output to avoid redundancy
  • Next by thread: Maximum y-value in a list of xy pairs