Re: Grids
- To: mathgroup at smc.vnet.net
- Subject: [mg131366] Re: Grids
- From: "djmpark" <djmpark at comcast.net>
- Date: Mon, 1 Jul 2013 05:51: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: <13090651.71529.1372577587340.JavaMail.root@m06>
I'm fairly certain you will get a simpler answer to this, but I have fancied
up your table a little just for illustration. I used thick lines in some
places and thin lines for the dividers between the rows of values. I used
two different background colors, one for the headings and another for the
values. And I used a special font for the heading labels. I did this using
the TableMaker facility in the Presentations Application. (However, below I
also give the regular Grid expression so you can see what the table looks
like.)
TableMaker allows one to "draw" a table just as one might draw a graphic.
There are commands for inserting blocks of table values, drawing Frames and
Dividers, specifying Alignments, Spacings, Backgrounds and styles. The
tables is displayed in the notebook but a palette is also produced that
shows the form of the table and from which one can paste positions, given by
{row, column}, into the command. One can keep adding items and
reevaluating.
<< Presentations`
x1 = Range[-3, 3];
g[x1_] := x1^2;
y1 = g[x1];
tableExpression =
MakeTable[x1y1Table, 8, 2][
TMSubmatrix[{1, 1}, {{"xVal", "yVal"}}],
TMItemStyle["Row", Directive[Bold, FontFamily -> "Century"], {1, 1}],
TMSubmatrix[{2, 1}, Transpose[{x1}]],
TMSubmatrix[{2, 2}, Transpose[{y1}]],
TMFrame["Block", Thick, {1, 1}, {8, 2}],
TMDividers["CenterRows", Black],
TMDividers["CenterColumns", Thick],
TMDividers["Row", Thick, {1, 1}, After],
TMBackground["Row", ColorData["Legacy"]["Bisque"], {1, 1}],
TMBackground["Block",
ColorData["Legacy"]["LemonChiffon"], {2, 1}, {8, 2}]
]
The generated Grid expression can be obtained by:
tableExpression // InputForm
Grid[{{"xVal", "yVal"}, {-3, 9}, {-2, 4}, {-1, 1}, {0, 0},
{1, 1}, {2, 4}, {3, 9}}, Dividers -> {{2 -> Thickness[Large]},
{2 -> GrayLevel[0], 3 -> GrayLevel[0], 4 -> GrayLevel[0],
5 -> GrayLevel[0], 6 -> GrayLevel[0], 7 -> GrayLevel[0],
8 -> GrayLevel[0], 2 -> Thickness[Large]}},
Spacings -> {{None, {}}, {None, {}}},
Background -> {{}, {}, {{{1, 1}, {1, 2}} ->
RGBColor[1., 0.898053, 0.771844], {{2, 8}, {1, 2}} ->
RGBColor[1., 0.980407, 0.803903]}},
Frame -> {{}, {}, {{{1, 8}, {1, 2}} -> Thickness[Large]}},
ItemStyle -> {{}, {}, {{{1, 1}, {1, 2}} ->
Directive[Bold, FontFamily -> "Century"]}},
ItemSize -> {{Automatic, {}}, {Automatic, {}}},
Alignment -> {{Center, {}}, {Center, {}}, {}},
BaseStyle -> {14, Plain, FontFamily -> "Times"}]
That would be the normal way of specifying the table.
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/index.html
From: Mark [mailto:big.dog1 at att.net]
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