Re: Table using as iterator a multiple of 10, 100, ...,10^n
- To: mathgroup at smc.vnet.net
- Subject: [mg37171] Re: Table using as iterator a multiple of 10, 100, ...,10^n
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 15 Oct 2002 04:17:41 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <ao8ool$bo7$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
Flatten[{{{"d", "X", "Y", "Z"}},
Flatten[Table[{t, x[t], y[t], z[t]},
Evaluate[{t, Sequence @@ #}]] & /@ {{1, 10}, {20, 100,
10}, {200, 1000, 100}}, 1]}, 1] // TableForm
???
Regards
Jens
guillerm at usal.es wrote:
>
> Dear friends,
> 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.
>
> Thans
>
> Guillermo
> Sanchez
>
> ---------------------------------------------
> This message was sent using Endymion MailMan.
> http://www.endymion.com/products/mailman/