1

I would like to have 

a[i_, j_] := Piecewise[{{HoldForm[A], i == j && i < 2}, 
         {HoldForm[A], i == j - 1}, {-HoldForm[A], 
     i == j && i >= 2}, 
         {0, True}}]; 
W = Array[a, {2, 2}]
a[i_, j_] := Piecewise[{{HoldForm[Msub], i == j}, {0, True}}]; 
M = ArrayFlatten[Array[a, {2, 2}]]
TransP[M_] := Map[Transpose[#1] /. Transpose[0] -> 0 & , Transpose[M], 
       {2}]; 
G = MatrixForm[ArrayFlatten[{{M, W}, {TransP[W], 0}}]]

such that the Transpose[A] is printed in "Pretty" with a T in superscript in the output? How can I achieve this?

Sjoerd C. de Vries
  • 65,815
  • 14
  • 188
  • 323
Gabriel
  • 439
  • 2
  • 8

1 Answers1

2

Use TraditionalForm for pretty printing:

G//TraditionalForm

enter image description here

In Details section of documentation on Transpose you can find:

enter image description here

and this actually is computable.

Vitaliy Kaurov
  • 73,078
  • 9
  • 204
  • 355
  • Is there away to USE StandartForm? Somehow? – Gabriel May 30 '13 at 19:12
  • 1
    If you want a traditional transpose symbol, using StandardForm seems pointless, and this answer is the only one that makes sense to me. – Jens May 31 '13 at 16:58