Displaying Text and Graphics together
- To: mathgroup at smc.vnet.net
- Subject: [mg16262] Displaying Text and Graphics together
- From: Roger Wilson <roger.wilson at nomura.co.uk>
- Date: Fri, 5 Mar 1999 00:41:23 -0500
- Organization: Nomura International PLC
- Sender: owner-wri-mathgroup at wolfram.com
Hi
I have a table of numbers and a graphic based on those numbers which I wish
to display side-by-side. The table is formed by the expression:-
a = FrameBox[GridBox[res3, RowLines -> True, ColumnLines -> True,
ColumnAlignments -> "\[AlignmentMarker]"]];
where res3 is a 2d array of strings with suitably inserted alignment
markers.
The graphic is formed by:-
b = Show[
{ListPlot[Map[{#[[1]], #[[2]]} &, res], PlotJoined -> True,
PlotStyle -> {GrayLevel[0.5]}, DisplayFunction -> Identity],
ListPlot[Map[{#[[1]], #[[3]]} &, res], PlotStyle -> {PointSize[0.0125]},
DisplayFunction -> Identity],
ListPlot[Map[{#[[1]], #[[4]]} &, res], PlotJoined -> True,
DisplayFunction -> Identity]},
DisplayFunction -> $DisplayFunction, Frame -> True, AspectRatio -> 0.75,
PlotRange -> {{0.6, 2.2}, {0.8, 2.0}}]
Does anyone know of a way to display a and b side-by-side in a notebook? If
a and b were both graphics the solution would be to use GraphicsArray but a
is not a graphic.
Thanks in advance.
---------------------------------------------------------------------
Roger Wilson, Quantitative Analysis Group | roger.wilson at nomura.co.uk
Nomura International plc, Nomura House | Phone: +44 171 521 2373
1 St. Martin's-le-Grand, London EC1A 4NP | Fax: +44 171 521 3676
---------------------------------------------------------------------
Any views or opinions presented are solely those
of the author and do not necessarily represent those
of Nomura or any of its affiliates.
Nomura International PLC is a member of the
London Stock Exchange and is regulated by The Securities and
Futures Authority.
---------------------------------------------------------------------