Re: How to input a determinant

*To*: mathgroup at smc.vnet.net*Subject*: [mg15941] Re: How to input a determinant*From*: Paul Abbott <paul at physics.uwa.edu.au>*Date*: Wed, 17 Feb 1999 23:34:06 -0500*Organization*: University of Western Australia*References*: <7a28pk$1nv@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Chee Lim Cheung wrote: > I was teaching Cramer's rule using Mathematica and one of my students > asked me how to input a determinant in the traditional way using > Mathematica. I wish the determinant A of order 2, 3 or higher to appear > like |A| with the elements enclosed between two vertical bars by the > side. Is there a clean way to do this in Mathematica? If you use TraditionalForm for your Default Input and Output FormatType (under the Cell menu) then this is easily possible. The following Notebook gives an example of what you are after. Cheers, Paul Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ FormBox[ TagBox[ RowBox[{"\[LeftBracketingBar]", TagBox[GridBox[{ {"a", "b"}, {"c", "d"} }], (TableForm[ #, TableDepth -> 0]&)], "\[RightBracketingBar]"}], {Det}], TraditionalForm]], "Input"], Cell[BoxData[ \(TraditionalForm\`a\ d - b\ c\)], "Output"] }, Open ]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"A", "=", RowBox[{"(", GridBox[{ {"a", "b"}, {"c", "d"} }], ")"}]}], ";"}], TraditionalForm]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ TagBox[ RowBox[{"\[LeftBracketingBar]", TagBox["A", (TableForm[ #, TableDepth -> 0]&)], "\[RightBracketingBar]"}], {Det}], TraditionalForm]], "Input"], Cell[BoxData[ \(TraditionalForm\`a\ d - b\ c\)], "Output"] }, Open ]] } ] ____________________________________________________________________ Paul Abbott Phone: +61-8-9380-2734 Department of Physics Fax: +61-8-9380-1014 The University of Western Australia Nedlands WA 6907 mailto:paul at physics.uwa.edu.au AUSTRALIA http://www.physics.uwa.edu.au/~paul God IS a weakly left-handed dice player ____________________________________________________________________