Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*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 2002

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

Search the Archive

Re: Table using as iterator a multiple of 10, 100, ...,10^n

  • To: mathgroup at smc.vnet.net
  • Subject: [mg37144] Re: [mg37131] Table using as iterator a multiple of 10, 100, ...,10^n
  • From: BobHanlon at aol.com
  • Date: Sun, 13 Oct 2002 05:56:26 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 10/12/2002 5:46:05 AM, guillerm at usal.es writes:

>I have build a table with this pattern:
>
>Flatten[{{{"d", "X", "Y", "Z"}},
>      Table[{t, x[t], y[t], z[t]}, {t, 1, 10}], 
>      Table[{t, x[t], y[t], z[t]}, {t, 20, 100, 10}], 
>      Table[{t, x[t], y[t], z[t]}, {t, 200, 1000, 100}]}, 1] // TableForm
>
>I would like obtain the same Output in a more elegant way. In other word,
>how 
>Can I avoid write "Table[{t, x[t], y[t], z[t]}" a few times.
>

Fit[{1, 20, 200}, {1, n, n^2}, n]

Flatten[
  Prepend[
    Table[{t, x[t], y[t], z[t]}, {n, 3}, 
      {t, (161*n^2)/2 - (445*n)/2 + 143, 10^n, 10^(n - 1)}],
    {{"d", "X", "Y", "Z"}}],
  1]


Bob Hanlon


  • Prev by Date: Re: Complex numbers
  • Next by Date: Re: Some list questions
  • Previous by thread: Re: Table using as iterator a multiple of 10, 100, ...,10^n
  • Next by thread: RE: Table using as iterator a multiple of 10, 100, ...,10^n