Re: Formatierung in Grid mit Alignement

[Peter Pein <petsie@XXXXXXX.de>]

Am 17.04.2011 16:48, schrieb Michael Gamer:
> Hallo zusammen,
>
>    ich probiere jetzt schon eine Weile eine Tabelle mit "Grid"  so zu formatieren, daß ich diese einigermaßen vorzeigen kann - 
> erfolglos. Anbei ein kleines Notebook, welches das Problem illustriert. Die erste Zeile der Tabelle soll zentriert sein, die zweite Spalte ansonsten 
> am Dezimalpunkt ausgerichtet (es geht um die Teilsummen der harmonischen Reihe - als Illustration für eine Vorlesung). Es gelingt mir nicht die 
> zweite Spalte so zu formatieren, daß der Vorkommaanteil der Zahlen weiter links in der Zeile steht. Vielleicht hat hier ja jemand einen Rat.
>
> Vielen Dank
>
> Michael Gamer

Hi,

Robert hat ja bereits auf Numberform hingewiesen. Mir fiel zusätlich 
auf, dass Du statt NSum[..,WorkingPrecision->20] Sum[N[..],..] also 
MachinePrecision verwendest. Später wird das Ergebnis mit N[..,20] 
"aufgehübscht". Mein Mathelehrer nannte so etwas "digitale 
Augenwischerei" ;-)

Gruß,
Peter

P.S.:
tabneu=Table[
  {n, NumberForm[N[HarmonicNumber[n], 20], {22, 19},
      NumberPadding -> {" ", "0"}]},
  {n, 10^Range[6]}];

Grid[Prepend[tabneu, {Style["n", Bold], Style["Teilsumme bis n", 
Bold]}], Alignment -> {Left, Right}, Frame -> All]