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

MathGroup Archive 2007

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

Search the Archive

RE: About Table

  • To: mathgroup at smc.vnet.net
  • Subject: [mg74992] RE: [mg74954] About Table
  • From: "David Annetts" <davidannetts at aapt.net.au>
  • Date: Fri, 13 Apr 2007 02:13:11 -0400 (EDT)
  • References: <200704120856.EAA25776@smc.vnet.net>

Hi,

> My questions are as follows:
> First I have a list is{3,6,9,4.4,6.7,5,3,6.2,3.7,5.2,6.3,9,10,12,13.2}
> Then I want to have tableform is as follows:
>     0      0       3
>     0     0.5     6
>     0       1      9
>     0     1.5    4.4
>     0       2     6.7
>    0.5     0       5
>    0.5    0.5     3
>    0.5      1     6.2
>    0.5    1.5    3.7
>    0.5      2     5.2
>     1        0     6.3
>     1       0.5     9
>     1         1     10
>     1       1.5    12
>     1          2    13.2

One approach uses Outer[]

Given

	lst3 = {3, 6, 9, 4.4, 6.7, 5, 3, 6.2, 3.7, 5.2, 6.3, 9, 10, 12,
13.2};
	lst2 = Range[0, 2, .5];
	lst1 = Range[0, 1, .5];

We form 

	lst12 = Outer[List, lst1, lst2]

We can combine this new list with your original list using

	lst123 = Transpose[{Flatten[lst12, 1], lst3}]

Finally, we need to Map[] Flatten[] at the proper level 

	lst123 = Map[Flatten, lst123, 1]

We display this using 

	TableForm[last123]

Regards,

Dave.


  • References:
    • About Table
      • From: "Evanescence" <origine26@yahoo.com.tw>
  • Prev by Date: Re: About Table
  • Next by Date: Re: About Table
  • Previous by thread: Re: About Table
  • Next by thread: Re: About Table