Re: Table as Graphics Object?
- To: mathgroup at smc.vnet.net
- Subject: [mg35070] Re: [mg35027] Table as Graphics Object?
- From: BobHanlon at aol.com
- Date: Thu, 20 Jun 2002 23:56:55 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 6/20/02 3:20:18 AM, siegman at stanford.edu writes:
>I'd like to include a Table as one of the objects in a
>GraphicsArray, using a simple syntax like
>
> myTable = Table[---] // TableForm
>
> myPlot = Plot[---]
>
> Show[ GraphicsArray[ {{myTable, myPlot}} ]
>
>I know I could built a "psuedo Table" into a Graphics object using
>the usual Text[---] commands, but at the cost of a lot of work to
>input and position the various lines.
>
>Any other approaches?
>
tbl = TableForm[Table[Binomial[i,j],{i,0,8},{j,0,i}]];
plt = Plot[x*(1-x), {x,0,1}, DisplayFunction->Identity];
Show[GraphicsArray[
{{Graphics[Text[tbl,{0,0}]]}, {plt}}],
DisplayFunction->$DisplayFunction,
ImageSize->400];
Bob Hanlon
Chantilly, VA USA