RE: How to print a determinant in the traditional way
- To: mathgroup at smc.vnet.net
- Subject: [mg15883] RE: [mg15832] How to print a determinant in the traditional way
- From: "Jean-Marie THOMAS" <jmthomas at agat.net>
- Date: Wed, 17 Feb 1999 23:33:35 -0500
- Sender: owner-wri-mathgroup at wolfram.com
Try this:
t=Table[Random[],{3},{3}] (*a dim 3 square matrix*)
ShowDet[m_]:=CellPrint[Cell[BoxData[
RowBox[{"\[VerticalSeparator]", GridBox[m],"\[VerticalSeparator]"}]],
"Output"]]
ShowDet[t]
Hope this helps,
****************************************
Jean-Marie THOMAS
mailto:jmthomas at agat.net
Conseil et Audit en Ingenierie de Calcul
Strasbourg, France
http://www.agat.net
****************************************
-----Original Message-----
From: Chee Lim Cheung [mailto:cheelc at mbox2.singnet.com.sg]
To: mathgroup at smc.vnet.net
Subject: [mg15883] [mg15832] How to print a determinant in the traditional way
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