Re: UnTableForming a TableFormed Table?
- To: mathgroup at smc.vnet.net
- Subject: [mg79067] Re: [mg79023] UnTableForming a TableFormed Table?
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Tue, 17 Jul 2007 03:28:10 -0400 (EDT)
- Reply-to: hanlonr at cox.net
myTableS = {{a, b}, {c, d}, {e, f}};
myTableF = TableForm[myTableS,
TableHeadings -> {{"r1", "r2", "r3"}, {"c1", "c2"}}];
myTableF[[1]] == myTableS
True
Bob Hanlon
---- 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.]
>