RE: About TableForm
- To: mathgroup at smc.vnet.net
- Subject: [mg74375] RE: [mg74356] About TableForm
- From: "David Annetts" <davidannetts at aapt.net.au>
- Date: Mon, 19 Mar 2007 21:55:53 -0500 (EST)
- References: <200703191051.FAA27863@smc.vnet.net>
Hi,Evanescence
> My questions are as follows:
> First I definition a function is f[x_,y_]:=2x+3y Then I use
> the Table so: Table[f[x,y],{x,0,3,1},{y,0,4,2}] Then we can
> get the answers :{{0,6,12},{2,8,14},{4,10,16},{6,12,18}}
> But I want to get the form as follows:
> x y f[x,y]
> 0 0 0
> 0 2 6
> 0 4 12
> 1 0 2
> 1 2 8
> 1 4 14
> 2 0 4
> 2 2 10
> 2 4 16
> 3 0 6
> 3 2 12
> 3 4 18
>
> Please tell me how can I do it
You need a slight modification to your Table[] statement. Try the following
tbl = Table[{x, y, f[x, y]}, {x, 0, 3, 1}, {y, 0, 4, 2}];
TableForm[Partition[Flatten[tbl], 3],
TableHeadings -> {None, {"x", "y", "f[x, y]"}},
TableAlignments -> Center]
The key function here is TableForm[].
Regards,
Dave.
- References:
- About TableForm
- From: "Evanescence" <origine26@yahoo.com.tw>
- About TableForm