Re: WG: Komma anstatt Punkt

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

Hallo,

was ist mit

Plot[Sin[x], {x, 0, 2Pi}, 
  FrameTicks -> {Table[{i, 
          ToString[NumberForm[N[i], NumberPoint -> ","]]}, {i, 0, 6}], 
      Table[{i, ToString[NumberForm[N[i], NumberPoint -> ","]]}, {i, -1,
1, 
          0.25}], None, None}, Frame -> True
  ]

Oder

Plot[Sin[x], {x, 0, 2Pi}, 
  FrameTicks -> {Function[{xmin, xmax}, 
        Table[{i, ToString[NumberForm[i, NumberPoint -> ","]]}, {i,
xmin, 
            xmax, 2Pi/4}]
        ], 
      Table[{i, ToString[NumberForm[N[i], NumberPoint -> ","]]}, {i, -1,
1, 
          0.25}], None, None}, Frame -> True
  ]

Bei der normalen Ausgabe (nicht in Graphiken) sollte


Unprotect[MakeBoxes]
MakeBoxes[r_Real, fmt_:StandardForm] := 
  RowBox[{ToString[
        NumberForm[r, 
          NumberPoint -> ",\[NegativeThickSpace]"]]}]
Protect[MakeBoxes]

helfen.
Von einem Umbau f"ur die *Eingabe* von Zahlen mit Kommas,
w"urde ich jedoch abraten, weil dann

Table[i,{i,1,8,2}] 

ziemlich viel bedeuten kann -- ein Komma ist in Mathematica
zu wichtig (Trennen von Funktionsargumenten) um es
anstelle des Dezimal-Punktes zu verwursten.

Gruss
  Jens


Martin Horstmann wrote:
> 
> Hallo liebe DMUG,
> 
> habe da schon länger eine Frage. Ist es möglich anstatt des Dezimalpunktes
> ein Komma zu verwenden. Besonders interessant sind für mich die Tickmarks in
> Grafiken (Abbildungen).
> Hat jemand eine Idee, wie man in den Abbildungen einfach zu einem Komma
> kommt?
> 
> Mit freundlichen Grüßen
> Martin Horstmann