Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

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/


  • Prev by Date: Re: defining a function with D
  • Next by Date: Re: Get rid of onion-like parentheses
  • Previous by thread: Re: Table using as iterator a multiple of 10, 100, ...,10^n
  • Next by thread: Re: Mathematica 4.2: Problem with online help.