Re: UnTableForming a TableFormed Table?
- To: mathgroup at smc.vnet.net
- Subject: [mg79056] Re: [mg79023] UnTableForming a TableFormed Table?
- From: DrMajorBob <drmajorbob at bigfoot.com>
- Date: Tue, 17 Jul 2007 03:22:29 -0400 (EDT)
- References: <14114039.1184577280345.JavaMail.root@m35>
- Reply-to: drmajorbob at bigfoot.com
Use First or Part:
tf=TableForm[{{a,b},{c,d},{e,f}},TableHeadings->{{"r1","r2","r3"},None}]
r1 a b
r2 c d
r3 e f
tf//FullForm
TableForm[List[List[a,b],List[c,d],List[e,f]],Rule[TableHeadings,List[List["r1","r2","r3"],None]]]
First@tf
{{a,b},{c,d},{e,f}}
tf[[1]]
{{a,b},{c,d},{e,f}}
Bobby
On Mon, 16 Jul 2007 01:13:34 -0500, AES <siegman at stanford.edu> wrote:
> Suppose you create a "source" table in Table form:
>
> myTableS = Table[ ----- ],
>
> then create a "formatted" version of it, with TableForm options added:
>
> myTableF = TableForm[ TableS, {tableheadings, tablepacings, etc} ]
>
> Is there any _simple_ way to "UnTableForm" the formatted table to get
> back to the unformatted source table?
>
> myTableS ??=?? UnTableForm[ myTableF ]
>
> ----------
>
> [Why would anyone want this? Well, now you can have a _single_ module
> that creates a formatted table, which then carries _both_ its data and
> its labels. You can run the module several times for different input
> parameter values; Print[] the individual formatted tables with their
> labels; or unformat them to ListPlot[] them, Join[] them, etc.
>
> One can envision a smarter Join[] command that would function for tables
> like the DisplayTogether[] command does for plots, joining the data in a
> set of formatted tables, then (as an option) restoring the formatting
> options from the last table in the set to the joined tables.]
>
>
--
DrMajorBob at bigfoot.com