Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2003
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2003

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

Search the Archive

Re: Re: presentation layout

  • To: mathgroup at smc.vnet.net
  • Subject: [mg39934] Re: [mg39917] Re: [mg39826] presentation layout
  • From: Dr Bob <drbob at bigfoot.com>
  • Date: Wed, 12 Mar 2003 02:29:59 -0500 (EST)
  • References: <200303110738.CAA08728@smc.vnet.net>
  • Reply-to: drbob at bigfoot.com
  • Sender: owner-wri-mathgroup at wolfram.com

This avoids displaying the Sin curve twice:

text = "Some text.";
table = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}};
graph = Block[{$DisplayFunction = Identity}, Plot[Sin[x], {x, 0, 2Pi}]];
cell = Cell[GraphicsData["PostScript", DisplayString[graph]]];
CellPrint[Cell[BoxData[GridBox[{{cell, GridBox[{{text}, {GridBox[table]}},
 RowsEqual -> True, RowLines -> True, RowSpacings -> 10]}}, RowAlignments - 
> Center, ColumnLines -> True, GridFrame -> True]], "Text"]];

Bobby

On Tue, 11 Mar 2003 02:38:53 -0500 (EST), Omega Consulting 
<info at omegaconsultinggroup.com> wrote:

> At 01:48 AM 3/8/2003, Beleznay, Akos wrote:
>
>> Hi,
>>
>> I am working on a presentation.  What is the best way to arrange graphs,
>> tables and text (like in PowerPoint)?
>>
>> E.g.:
>> ================
>> Title
>> ----------------
>> |       | text |
>> | graph |-------
>> |       | table|
>> ----------------
>> ================
>>
>> thanks for your help,
>>
>> -akos
>
> Some judicious use of GridBoxes will do the trick.
>
> text = "Some text.";
> table={{1,2,3},{4,5,6},{7,8,9}};
> graph=Plot[Sin[x],{x,0,2Pi}];
>
> cell=Cell[GraphicsData["PostScript", DisplayString[graph]]];
>
> CellPrint[Cell[BoxData[
> GridBox[{{cell,
> GridBox[{{text},{GridBox[table]}},RowsEqual->True,
> RowLines->True, RowSpacings->10]}},
> RowAlignments->Center, ColumnLines->True,
> GridFrame->True]
> ],"Text"]]
>
> --------------------------------------------------------------
> Omega Consulting
> "The final answer to your Mathematica needs"
> http://omegaconsultinggroup.com
>
>
>



-- 
majort at cox-internet.com
Bobby R. Treat



  • Prev by Date: What's legit here?
  • Next by Date: RE: SetPrecision & Plot bug?
  • Previous by thread: Re: presentation layout
  • Next by thread: Output in windows