Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2013

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

Search the Archive

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




  • Prev by Date: Re: Grids
  • Next by Date: Re: What is f[1]? Advanced question
  • Previous by thread: Re: Grids
  • Next by thread: Cashflow and TimeValue Question