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