Re: Grids
- To: mathgroup at smc.vnet.net
- Subject: [mg131354] Re: Grids
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Mon, 1 Jul 2013 05:47:18 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
- References: <20130630072841.E8C1069D8@smc.vnet.net>
x1 = Range[-3, 3];
g[x_] := x^2;
y1 = g[x1];
A Column is Column, not a List
Column[y1] // Head
Column
Grid[
Join[{{xVal, yVal}}, Thread[{x1, y1}]],
Frame -> All]
Grid[
Join[{{xVal, yVal}}, Transpose[{x1, y1}]],
Frame -> All]
Bob Hanlon
On Sun, Jun 30, 2013 at 3:28 AM, Mark <big.dog1 at att.net> wrote:
> Hello:
> '
> I am trying to get the x1 and y1 results of a basic function displayed in
> two columns with a grid around each x1 and y1 entry.
> '
> However, my result only appears with a grid around the exterior of the x1
> and y1 values, and the only the column headings.
> There is a vertical divider between the x1 and y1 columns, but the row
> dividers are missing.
>
> What is the syntax to get the row dividers to appear?
>
> Thanks in advance, and below is what I have tried so far:
>
> x1 = Range[-3, 3](*Define the range of x1 values.*)
>
> g[x1_] := x1^2(*Define the function*)
>
> y1 = g[x1](*Calculate the y values of the function*)
>
> Out[21]= {9, 4, 1, 0, 1, 4, 9}
> '---------------------------------------
> '
> Grid[{{xVal, yVal}, {Column[x1], Column[y1]}}, Frame -> All](*The result
> of this function in columar format*)
> '---------------------------------------
>
> '
> I also tried the the below statement as well but it gives the same result.
>
> Grid[{{xVal, yVal}, {Column[x1], Column[y1]}}, Frame -> All, Dividers ->
> All]
>
> Mark
>
>