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/