Re: About Table
- To: mathgroup at smc.vnet.net
- Subject: [mg74997] Re: About Table
- From: "Ray Koopman" <koopman at sfu.ca>
- Date: Fri, 13 Apr 2007 02:15:46 -0400 (EDT)
- References: <evksst$rid$1@smc.vnet.net>
On Apr 12, 2:07 am, "Evanescence" <origin... at yahoo.com.tw> wrote:
> Hello dear all:
> 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
>
> Please tell me how can I do it.
> Thank you very much
> Evanescence 2007 04 11
ab = Flatten[Table[{a,b},{a,0,1,.5},{b,0,2,.5}],1]/.{1.->1,2.->2};
c = {3,6,9,4.4,6.7,5,3,6.2,3.7,5.2,6.3,9,10,12,13.2};
TableForm[MapThread[Append,{ab,c}],TableAlignments->Center]
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