Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Re: partial Dividers?

• To: mathgroup at smc.vnet.net
• Subject: [mg93098] Re: [mg93043] Re: partial Dividers?
• From: "Thomas Dowling" <thomasgdowling at gmail.com>
• Date: Sun, 26 Oct 2008 01:28:19 -0500 (EST)
• References: <gdmsd3$ll$1@smc.vnet.net> <200810240632.CAA23190@smc.vnet.net>

Hello,

I like the Grid of Grids solutions proposed by Bob Hanlon and David Park,
which I did not know about.

Another more awkward way of achieving the same effect, but which (seemingly)
avoids the
'background' problem outlined by David Park, is it create a separate
headings list and to
use Item and Frame to suppress the unwanted lines.

For Example (modifying the example of David P):

headings = {{Item["a", Frame -> { True, True, True, False}],
    Item["b", Frame -> { True, False, True, True}],
    Item["c", Frame -> { True, False, True, True}],
    Item["d", Frame -> { True, False, True, True}],
    Item["e", Frame -> { True, False, True, True}]}};

table = Table[i + j, {i, 1, 5}, {j, 1, 5}];

The grid may now be generated from the following:

Grid[Join[headings, table], Frame -> True, FrameStyle -> Orange,
 Dividers -> {All -> True, {None}},
 Background -> {None, {1 -> GrayLevel[.8]}}, ItemSize -> {2, 1.5}]

Or using your own example:

m = Partition[Range[15], 3];
m[[1, 1]] = Item[1, Frame -> { True, True, True, False}];
m[[1, 2]] = Item[10^6, Frame -> { True, False, True, False}];
m[[1, 3]] = Item[10^6, Frame -> { True, False, True, True}];

And:

Grid[m, Frame -> True, FrameStyle -> Orange,
 Dividers -> {All -> True, {None}},
 Background -> {None, {1 -> GrayLevel[.8]}}]


I use this approach as it does what I want, and I too like the completely
filled background,
but there must be a 'neater' way?


Tom Dowling.





On Fri, Oct 24, 2008 at 7:32 AM, Mark Fisher <particlefilter at gmail.com>wrote:

> On Oct 22, 5:39 am, Bob Hanlon <hanl... at cox.net> wrote:
> > m = Partition[Range[9], 3];
> >
> > Grid[{
> >   {Grid[{First[m]}]},
> >   {Grid[Rest[m], Dividers -> {{False, True}, False}]}}]
> >
> > Bob Hanlon
> >
> > ---- Mark Fisher <particlefil... at gmail.com> wrote:
> >
> > =============
> > Hi all,
> >
> > In a Grid, I'd like to have a divider between columns 1 and 2 (for
> > example) that goes from the 2nd row to the last row. But I can't
> > figure out a way to make a divider that doesn't span the entire grid.
> > Is there a way?
> >
> > --Mark
> >
> > --
> >
> > Bob Hanlon
>
> Being inspired by the suggestions of both Bob and David, I have come
> up with the following, which does pretty much what I want (I think),
> but it's not fully automatic in the sense that one needs to know the
> proper width for the first column (which appears as the first
> numerical value in the specification for "size").
>
> m = Partition[Range[15], 3];
> m[[1, 2]] = 10^5;
> m[[1, 3]] = 10^5;
>
> With[{size = {{1, {Automatic}}, {1}}, align = Right},
>  Grid[{{
>    Grid[{Most[First[m]]}, ItemSize -> size, Alignment -> align],
>    SpanFromLeft,
>    Last[First[m]]
>    },
>   Sequence @@ Rest[m]},
>  Dividers -> {{True, True, {False}, True}, {True, True, {False},
>     True}}, ItemSize -> size, Alignment -> align]
>  ]
>
> Thanks guys. Of course, any further suggestions will be appreciated.
>
> --Mark
>
>

• References:
  • Re: partial Dividers?
    • From: Mark Fisher <particlefilter@gmail.com>