Re: How to print a determinant in the traditional way
- To: mathgroup at smc.vnet.net
- Subject: [mg15957] Re: How to print a determinant in the traditional way
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 17 Feb 1999 23:34:15 -0500
- Organization: Universitaet Leipzig
- References: <7a28v3$1oh@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
how do you prevent that Mathematica expand the Det[] function ?
Here is the solution
Unprotect[Det]
Det /: ToBoxes[Det[a_],f_:TraditionalForm]:=
RowBox[{"\[LeftBracketingBar]",ToBoxes[a,f],"\[RightBracketingBar]"}]
Protect[Det]
Now you can get the traditional form of Det[] with
HoldForm[Det[{{a,b},{c,d}}]]//TraditionalForm
Hope that helps
Jens
Chee Lim Cheung wrote:
>
> Hi Mathematica experts,
>
> I am trying to get Mathematica to print a determinant of order 2, 3 or
> higher in the traditional manner like |A| with the elements enclosed
> between two vertical bars by the side. Is there a clean way to do this
> using Mathematica?
>
> Thanks
> Chee