Re: tableform question
- To: mathgroup at smc.vnet.net
- Subject: [mg70096] Re: [mg70005] tableform question
- From: "Chris Chiasson" <chris at chiasson.name>
- Date: Tue, 3 Oct 2006 06:16:48 -0400 (EDT)
- References: <200609300912.FAA13108@smc.vnet.net>
I forgot to echo the list yesterday: Maybe try In[1]:= MakeBoxes[tableNull,_]=""; In[2]:= MakeBoxes[rt:ruleTable[{__}..],_]:= GridBox[Map[MakeBoxes,List@@rt,{2}],RowLines\[Rule]True, ColumnLines\[Rule]True,RowsEqual\[Rule]True,ColumnsEqual\[Rule]True, ColumnWidths\[Rule]10,GridFrame\[Rule]True] In[3]:= tb[1]=ruleTable[{tableNull,"global rules stored with the head", "global rules stored with an argument","local rules"},{"evaluate rhs", "=","^=","->"},{"delay rhs",":=","^:=",":>"}] In[4]:= MakeBoxes[myTableForm[rt:{{__}..}],form_]:= GridBox[Map[MakeBoxes[#,form]&,rt,{2}],RowLines\[Rule]True, ColumnLines\[Rule]True,RowsEqual\[Rule]True,ColumnsEqual\[Rule]True, ColumnWidths\[Rule]10,GridFrame\[Rule]True] In[5]:= tb[2]=List@@tb[1]; In[6]:= tb[2]//myTableForm On 9/30/06, dimmechan at yahoo.com <dimmechan at yahoo.com> wrote: > Is it possible to display the output of the following command > > table=StyleForm[TableForm[{{"=", "^=", "->"}, {":=", "^:=", ":>"}}, > TableHeadings -> {{"evaluate rhs", "delay rhs"}, {"global > rules\nstored with\nthe head", > "global rules\nstored with\nan argument", "local rules"}}, > TableAlignments -> Center, TableSpacing -> {2, 2}], FontFamily -> > "Times", FontSize -> 14, FontColor -> Red] > > as it would appeared in a book (i.e. with lines separated columns from > rows e.t.c.)? > > If the answer is no please let me know how I have to work. > > Thanks. > > -- http://chris.chiasson.name/