Re: Automatic Display in MatrixForm
- To: mathgroup at smc.vnet.net
- Subject: [mg19413] Re: Automatic Display in MatrixForm
- From: Bruno Daniel <bruno.daniel at hadiko.de>
- Date: Mon, 23 Aug 1999 13:57:21 -0400
- Organization: University of Karlsruhe
- References: <7p00rp$76g@smc.vnet.net> <7p30am$aos@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi mates!
Thank you all for your help. I changed the entry in my init.m to
the following:
-------------------------------------------------------------------
switchMatrixForm[rows_,columns_]:= (
MakeBoxes[m_?(Function[t, MatrixQ[Unevaluated[t]]
&& (t =!= {{}}) && Length[t] < rows
&& Dimensions[t][[2]]<columns, HoldAll]), StandardForm] :=
RowBox[{"(", GridBox[Map[Function[t, MakeBoxes[t, StandardForm],
HoldAll], Unevaluated[m], {2}] ], ")"}] )
switchMatrixForm[18,7]
-------------------------------------------------------------------
I learned a lot from this discussion. Thank you very much.
Bruno