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