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