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.] >