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

*To*: mathgroup at smc.vnet.net*Subject*: [mg37153] RE: [mg37131] Table using as iterator a multiple of 10, 100, ...,10^n*From*: "David Park" <djmp at earthlink.net>*Date*: Sun, 13 Oct 2002 05:56:44 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Guillermo, This might be considered slightly better.. TableForm[{#, x[#], y[#], z[#]} & /@ Join[Range[10], Range[20, 100, 10], Range[200, 1000, 100]], TableHeadings -> {None, {"d", "X", "Y", "Z"}}] David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: guillerm at usal.es [mailto:guillerm at usal.es] To: mathgroup at smc.vnet.net 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/