Re: Setzen von Bra-Kets

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,

im Frontend mit

 RowBox[{"|","\[NegativeThickSpace]", "a", 
      "\[RightAngleBracket]"}]]

wenn man das nicht tippen will sollte man eine Palette machen.

Sonst mit


MakeBoxes[BraVector[psi_], fmt_:TraditionalForm] := 
  RowBox[{"|", "\[NegativeThickSpace]", MakeBoxes[psi, fmt], 
      "\[RightAngleBracket]"}]

MakeBoxes[KetVector[psi_], fmt_:TraditionalForm] := 
  RowBox[{"\[LeftAngleBracket]", MakeBoxes[psi, fmt], 
      "\[NegativeVeryThinSpace]\[NegativeThickSpace]", "|"}]

MakeBoxes[Dot[KetVector[cpsi_], BraVector[psi_]], fmt_:TraditionalForm]
:= 
  RowBox[{"\[LeftAngleBracket]", MakeBoxes[cpsi, fmt], 
      "\[NegativeThickSpace]", "|", "\[NegativeThickSpace]", 
      MakeBoxes[psi, fmt], "\[RightAngleBracket]"}]

Gruss
  Jens

"Felix E. Klee" wrote:
> 
> Hi,
> 
> wie kann ich Bra- und Ket-Vektoren mit Mathematica setzen. Wenn ich im
> Mathemodus zB. |a> eingebe ist der vertikale Strich viel zu lang und der
> Abstand zwischen den Zeichen etwas zu groß.
> 
> TIA,
> 
> Felix