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

MathGroup Archive 2008

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

Search the Archive

Re: Grid Graphics

  • To: mathgroup at smc.vnet.net
  • Subject: [mg93131] Re: Grid Graphics
  • From: dh <dh at metrohm.ch>
  • Date: Tue, 28 Oct 2008 04:53:09 -0500 (EST)
  • References: <gdrqen$mqs$1@smc.vnet.net>


Hi John,

You may use TableForm to give headings.E.g.:

headrow=GraphicsGrid[{{"","",""},{"",Graphics[Disk[],ImageSize->6],""},{"","",""}},Frame->True,Spacings->{3,3},Background->Red];

headrows=Table[headrow,{6}];

headcol=GraphicsGrid[{{"","",""},{"",Graphics[Disk[],ImageSize->6],""},{"","",""}},Frame->True,Spacings->{3,3},Background->Green];

headcols=Table[headcol,{6}];

TableForm[Table[1/36,{i,1,6},{j,1,6}],TableHeadings->{headrows,headcols}]

hope this helps, Daniel



John wrote:

> Mathematica 6

> 

> Six die faces, each in two colors, created by using variations on the

> following:

> 

>    GraphicsGrid[{{"", "", ""}, {"", Graphics[Disk[], ImageSize -> 6],

>    ""}, {"", "", ""}}, Frame -> True, Spacings -> {3, 3},

>  Background -> Red]

> 

> A  6 by 6 grid, created as follows:

> 

>    Grid[Table[1/36, {i, 1, 6}, {j, 1, 6}], Frame -> All,

>  ItemStyle -> Directive[FontSize -> 24, Bold]]

> 

> I want to expand the 6 by 6 grid to a 7 by 7 grid. The last six column

> headings should be the six red die faces, and the last six row

> headings should be the  six green die faces. The cell in the upper

> left hand corner of the 7 by 7 grid is empty.

> 

> 

> John

> 

> 

> 

> 





-- 



Daniel Huber

Metrohm Ltd.

Oberdorfstr. 68

CH-9100 Herisau

Tel. +41 71 353 8585, Fax +41 71 353 8907

E-Mail:<mailto:dh at metrohm.com>

Internet:<http://www.metrohm.com>




  • Prev by Date: ShowLegend Qeustion
  • Next by Date: Speech Recognition? Online ISBN databases?
  • Previous by thread: Grid Graphics
  • Next by thread: Plotting an Implicit Plot with ParametricPlot