MathGroup Archive 1999

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

Search the Archive

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


  • Prev by Date: Re: Help with Percentile formula !!
  • Next by Date: Re: AxesLabel with greek letter
  • Previous by thread: Re: Automatic Display in MatrixForm
  • Next by thread: RE: Re: Automatic Display in MatrixForm