MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: tableform question


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/


  • Prev by Date: Re: Input, output troubles me ...
  • Next by Date: Re: Re: Input, output troubles me ...
  • Previous by thread: Re: tableform question
  • Next by thread: Re: subsets of a set