PaddedForm[1.  + 0.6*10^-15, {18, 16}]

signum[xN_] := If[xN < 0, -1, 1]
st=IntegerPart[$MachinePrecision  + 2]

expo[xN_, L_] := 
        If[ Abs[xN] < 1, L - IntegerPart[Log[10. , Abs[xN]]], 
          L - IntegerPart[Log[10. , Abs[xN]]] - 1]

(*   Funktionsunterprogramm zum Abschneiden auf L Stellen    *)

Abschn[xN_, L_] := 
       If[xN == 0, 0. , 
        signum[xN]*
          Floor[Abs[xN]*(10. ^expo)[xN, L] + 
              3. *(10. ^((L - st)))]*(10. ^(-expo[xN, L]))]

(*   Funktionsunterprogramm zum Runden auf L Stellen    *)

\(\(\(Runden[xN_, L_]\)\(:=\)\(\ \)\(If[xN == 0, 0. , 
        signum[xN]*
          Floor[Abs[xN]*10. \^expo[xN, L] + 0.5 + 
              3. *10. \^\((L - st)\)]*10. \^\(-expo[xN, L]\)]\)\(			\)\)\)

Runden[-0.00034567, 4]

nlist = {10, 50, 100, 200, 300, 500, 800, 1000};

listgen = {3, 6, 12};

(*   Berechnung der Summen für alle    n - Werte,  a  lle Rechengenauigkeiten (L),
   mit Abschneiden und Runden, wachsend und fallend mit den zugehörigen Differenzen   *)

Do[ { jab = 2  j - 1,jru = 2  j,  L = listgen[[j]],
                  
	 \(Do[{summe[0] = 0, diff = 0, 
                  Do[{summe[i]\  = \ 
                        Abschn[summe[i - 1] + Abschn[1. /i, L], 
                          L], 
					diff = 
                        Abschn[
                          diff + summe[i] - summe[i - 1] - Abschn[1. /i, L], 
                          L]}, {i, 1, 
                      nlist[\([n]\)]}], 
\ \ 	\ 	\ \ \ \ Tabelle[4  n - 3, 
                      jab] = \ \(SuAbwa[n, j] = summe[nlist[\([n]\)]]\), \ 
                  Tabelle[4  n - 2, jab] = \(DiAbwa[n, j] = diff\)}, {n, 1, 
                  8}]\),
                  
    \(Do[{summe[0] = 0, diff = 0, 
                  Do[{summe[i]\  = \ 
                        Runden[summe[i - 1] + Runden[1. /i, L], 
                          L], 
					diff = 
                        Runden[
                          diff + summe[i] - summe[i - 1] - Runden[1. /i, L], 
                          L]}, {i, 1, 
                      nlist[\([n]\)]}], 
\ \ \ 		\ 	Tabelle[4  n - 3, 
                      jru] = \(SuRuwa[n, j] = summe[nlist[\([n]\)]]\), \ 
                  Tabelle[4  n - 2, jru] = \ \(DiRuwa[n, j] = diff\)}, {n, 1, 
                  8}]\), 	
                      
	 \(Do[{summe[0] = 0, diff = 0, 
                  Do[{summe[i] = \ 
                        Abschn[
                          summe[i - 1] + 
                            Abschn[1. /\((nlist[\([n]\)] - i + 1)\), L], 
                          L], 
				\ \ diff = 
                        Abschn[
                          diff + summe[i] - summe[i - 1] - 
                            Abschn[1. /\((nlist[\([n]\)] - i + 1)\), L], 
                          L]}, {\ i, 1, nlist[\([n]\)]}], 
					Tabelle[
                      4  n - 1, jab] = \(SuAbfal[n, j] = 
                      summe[nlist[\([n]\)]]\), 
                  Tabelle[4  n, jab] = \(DiAbfal[n, j] = diff\)}, {n, 1, 
                  8}]\),
                      
 	\(Do[{summe[0] = 0, diff = 0, 
                  Do[{summe[i]\  = \ 
                        Runden[
                          summe[i - 1] + 
                            Runden[1. /\((nlist[\([n]\)] - i + 1)\), L], 
                          L], 
			\ \ \ \ \ diff = 
                        Runden[
                          diff + summe[i] - summe[i - 1] - 
                            Runden[1. /\((nlist[\([n]\)] - i + 1)\), L], 
                          L]}, {i, 1, nlist[\([n]\)]}], 
					Tabelle[
                      4  n - 1, jru] = \(SuRufal[n, j] = 
                      summe[nlist[\([n]\)]]\), 
                  Tabelle[4  n, jru] = \(DiRufal[n, j] = diff\)}, {n, 1, 
                  8}]\)},		
   	 		{j, 1, 3}]

\(Do[\ {sumgenwa = 0, 
        Do[sumgenwa = sumgenwa + 1. /i, {i, 1, 
            nlist[\([n]\)]}], 
		Tabelle[4  n - 3, 7] = sumgenwa}, {n, 1, 
        8}]\)

\(Do[\ {sumgenfal = 0, 
        Do[sumgenfal = sumgenfal + 1. /\((nlist[\([n]\)] - i + 1)\), {i, 1, 
            nlist[\([n]\)]}], 
			Tabelle[4  n - 1, 7] = sumgenfal}, {n, 
        1, 8}]\)

Do[Tabelle[2  n, 7] = diff = 0, {n, 1, 16}]

Do[{Tabelle[4  n - 3, -1]="wa",Tabelle[4  n - 1, -1]= "fa"}, { n, 1, 8}]
Do[{Tabelle[4  n - 2, -1] = "diwa", 
        Tabelle[4  n, -1] =  "difa"},  { n, 1, 8}]

Do[Tabelle[4  n - 3, 0] = Tabelle[4  n - 1, 0] =  
          nlist[[n]], {n, 1, 8}] 
Do[Tabelle[4  n - 2, 0] = Tabelle[4  n, 0] =  "    ", {n, 1, 
        8}]

Tabelle[0, 0]="\!\(\*
StyleBox[\(\\ \\ \*
StyleBox[" ",
FontSize->14,
FontColor->RGBColor[1, 0, 0]]\)]\)n ";Tabelle[0, 1]=" Absch";Tabelle[0, 2]="\!\(\*
StyleBox[\(\\ \*
StyleBox[" ",
FontSize->14,
FontColor->RGBColor[1, 0, 0]]\)]\)Rund";
Tabelle[0, 3]="  Abschn";Tabelle[0, 4]="\!\(\*
StyleBox[\(\\ \\ \\ \*
StyleBox[" ",
FontSize->14,
FontColor->RGBColor[1, 0, 0]]\)]\)Runden";Tabelle[0, 5]="    Abschnei";
Tabelle[0, 6]="    Runden";Tabelle[0, 7]="  Volle Genauigkeit";Tabelle[0, -1] = "   "	;

tabgen = {4, 
          4, {4, 3}, {4, 3}, {7, 6}, {7, 6}, {13, 12}, {13, 12}, {17, 
            15}};

\(TableForm[
      Table[AccountingForm[
          PaddedForm[Tabelle[n, j - 2], tabgen[\([j]\)]]], 
		{n, 0, 
          32}, {j, 1, 9}], TableSpacing -> {2, 1}]\)

<< Graphics`Colors`

Tabpkte[1]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], Tabelle[4  n - 3, 1]}, {n, 1, 
            8}], PlotJoined\  -> \ False, 
	
        PlotRange -> {{0, 1000}, {2.0, 7.5}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Red, 
        AspectRatio -> 0.7, AxesLabel -> {"> n", "  ^ f(n)"}\)]

Tabsp[1]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], Tabelle[4  n - 3, 1]}, {n, 1, 
            8}], PlotJoined\  -> \ True, 

        PlotRange -> {{0, 1000}, {2.0, 7.5}}, PlotStyle -> Red, 
        AspectRatio -> 0.7, AxesLabel -> {"> n", "  ^ f(n)"}\)]

Tabpkte[2]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], Tabelle[4  n - 3, 2]}, {n, 1, 
            8}], PlotJoined\  -> False, 
	
        PlotRange -> {{0, 1000}, {2.0, 7.5}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Green, 
        AspectRatio -> 0.7, \ AxesLabel -> {"> n", "  ^ f(n)"}\)]

Tabsp[2]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], Tabelle[4  n - 3, 2]}, {n, 1, 
            8}], PlotJoined\  -> \ True, 

        PlotRange -> {{0, 1000}, {2.0, 7.5}}, PlotStyle -> Green, 
        AspectRatio -> 0.6, AxesLabel -> {"> n", "  ^ f(n)"}\)]

(*        3.         Abschneiden    
            und  fallend                    *)

Tabpkte[3]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], Tabelle[4  n - 1, 1]}, {n, 1, 
            8}], PlotJoined\  -> False, 
	
        PlotRange -> {{0, 1000}, {2.0, 7.5}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Brown, 
        AspectRatio -> 0.7, AxesLabel -> {"> n", "  ^ f(n)"}\)]

Tabsp[3]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], Tabelle[4  n - 1, 1]}, {n, 1, 
            8}], PlotJoined\  -> \ True, 
	
        PlotRange -> {{0, 1000}, {2.0, 7.5}}, PlotStyle -> Brown, 
        AspectRatio -> 0.7, AxesLabel -> {"> n", "  ^ f(n)"}\)]

Tabpkte[4]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], Tabelle[4  n - 1, 2]}, {n, 1, 
            8}], PlotJoined\  -> \ False, 

        PlotRange -> {{0, 1000}, {2.0, 7.5}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Blue, 
        AspectRatio -> 0.7, PlotLabel -> "  ", 
        AxesLabel -> {"> n", "  ^ f(n)"}\)]

Tabsp[4]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], Tabelle[4  n - 1, 2]}, {n, 1, 
            8}], PlotJoined\  -> \ True, 

        PlotRange -> {{0, 1000}, {2.0, 7.5}}, PlotStyle -> Blue, 
        AspectRatio -> 0.7, AxesLabel -> {"> n", "  ^ f(n)"}\)]

Show[Tabsp[1], Tabsp[2], Tabsp[3], Tabsp[4], Tabpkte[1], Tabpkte[2], 
      Tabpkte[3], Tabpkte[4], Prolog  ->  AbsolutePointSize[4]]

AbwTabpkte[1]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], 
            Tabelle[4  n - 3, 7] - Tabelle[4  n - 3, 1]}, {n, 1, 8}], 
        PlotJoined\  -> \ False, 
	
        PlotRange -> {{0, 1000}, {\(-0.5\), 1.5}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Red, 
        AspectRatio -> 0.7, AxesLabel -> {"> n", "       ^ abw(n)"}\)]

AbwTabsp[1]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], 
            Tabelle[4  n - 3, 7] - Tabelle[4  n - 3, 1]}, {n, 1, 8}], 
        PlotJoined\  -> \ True, 
	
        PlotRange -> {{0, 1000}, {\(-0.5\), 1.5}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Red, 
        AspectRatio -> 0.7, AxesLabel -> {"> n", "       ^ abw(n)"}\)]

AbwTabpkte[2]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], 
            Tabelle[4  n - 3, 7] - Tabelle[4  n - 3, 2]}, {n, 1, 8}], 
        PlotJoined\  -> False, 
	
        PlotRange -> {{0, 1000}, {\(-0.5\), 1.5}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Green, 
        AspectRatio -> 0.7, \ 
        AxesLabel -> {"> n", "       ^ abw(n)"}\)]

AbwTabsp[2]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], 
            Tabelle[4  n - 3, 7] - Tabelle[4  n - 3, 2]}, {n, 1, 8}], 
        PlotJoined\  -> True, 
	
        PlotRange -> {{0, 1000}, {\(-0.5\), 1.5}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Green, 
        AspectRatio -> 0.7, \ 
        AxesLabel -> {"> n", "       ^ abw(n)"}\)]

(*      3.     Abweichungen:     Abschneiden  und  fallend                  l = 3       *)

AbwTabpkte[3]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], 
            Tabelle[4  n - 1, 7] - Tabelle[4  n - 1, 1]}, {n, 1, 8}], 
        PlotJoined\  -> False, 
	
        PlotRange -> {{0, 1000}, {\(-0.5\), 1.5}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Brown, 
        AspectRatio -> 0.7, AxesLabel -> {"> n", "       ^ abw(n)"}\)]

AbwTabsp[3]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], 
            Tabelle[4  n - 1, 7] - Tabelle[4  n - 1, 1]}, {n, 1, 8}], 
        PlotJoined\  -> True, 
	
        PlotRange -> {{0, 1000}, {\(-0.5\), 1.5}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Brown, 
        AspectRatio -> 0.7, AxesLabel -> {"> n", "       ^ abw(n)"}\)]

AbwTabpkte[4]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], 
            Tabelle[4  n - 1, 7] - Tabelle[4  n - 1, 2]}, {n, 1, 8}], 
        PlotJoined\  -> \ False, 
PlotRange -> {{0, 1000}, {\(-0.5\), 1.5}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Blue, 
        AspectRatio -> 0.7, PlotLabel -> "  ", 
        AxesLabel -> {"> n", "       ^ abw(n)"}\)]

AbwTabsp[4]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], 
            Tabelle[4  n - 1, 7] - Tabelle[4  n - 1, 2]}, {n, 1, 8}], 
        PlotJoined\  -> \ True, 
PlotRange -> {{0, 1000}, {\(-0.5\), 1.5}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Blue, 
        AspectRatio -> 0.7, PlotLabel -> "  ", 
        AxesLabel -> {"> n", "       ^ abw(n)"}\)]

Show[AbwTabsp[1], AbwTabsp[2], AbwTabsp[3], AbwTabsp[4], AbwTabpkte[1], 
      AbwTabpkte[2], AbwTabpkte[3], AbwTabpkte[4], 
      Prolog  ->  AbsolutePointSize[4]]

Ab6Tabpkte[1]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], 
            Tabelle[4  n - 3, 7] - Tabelle[4  n - 3, 3]}, {n, 1, 8}], 
        PlotJoined\  -> \ False, 
	
        PlotRange -> {{0, 1000}, {\(-0.0001\), 0.0025}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Red, 
        AspectRatio -> 0.7, AxesLabel -> {"> n", "       ^ ab6(n)"}\)]

Ab6Tabsp[1]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], 
            Tabelle[4  n - 3, 7] - Tabelle[4  n - 3, 3]}, {n, 1, 8}], 
        PlotJoined\  -> \ True, 
	
        PlotRange -> {{0, 1000}, {\(-0.0001\), 0.0025}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Red, 
        AspectRatio -> 0.7, AxesLabel -> {"> n", "       ^ ab6(n)"}\)]

Ab6Tabpkte[2]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], 
            Tabelle[4  n - 3, 7] - Tabelle[4  n - 3, 4]}, {n, 1, 8}], 
        PlotJoined\  -> False, 
	
        PlotRange -> {{0, 1000}, {\(-0.00002\), 0.00005}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Green, 
        AspectRatio -> 0.7, \ 
        AxesLabel -> {"> n", "       ^ ab6(n)"}\)]

Ab6Tabsp[2]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], 
            Tabelle[4  n - 3, 7] - Tabelle[4  n - 3, 4]}, {n, 1, 8}], 
        PlotJoined\  -> True, 
	
        PlotRange -> {{0, 1000}, {\(-0.00002\), 0.00005}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Green, 
        AspectRatio -> 0.7, \ 
        AxesLabel -> {"> n", "       ^ ab6(n)"}\)]

(*      3.     Abweichungen:     Abschneiden  und  fallend                  l = 6       *)

Ab6Tabpkte[3]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], 
            Tabelle[4  n - 1, 7] - Tabelle[4  n - 1, 3]}, {n, 1, 8}], 
        PlotJoined\  -> False, 
	
        PlotRange -> {{0, 1000}, {\(-0.0001\), 0.0025}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Brown, 
        AspectRatio -> 0.7, AxesLabel -> {"> n", "       ^ ab6(n)"}\)]

Ab6Tabsp[3]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], 
            Tabelle[4  n - 1, 7] - Tabelle[4  n - 1, 3]}, {n, 1, 8}], 
        PlotJoined\  -> True, 
	
        PlotRange -> {{0, 1000}, {\(-0.0001\), 0.0025}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Brown, 
        AspectRatio -> 0.7, AxesLabel -> {"> n", "       ^ ab6(n)"}\)]

Ab6Tabpkte[4]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], 
            Tabelle[4  n - 1, 7] - Tabelle[4  n - 1, 4]}, {n, 1, 8}], 
        PlotJoined\  -> \ False, 

        PlotRange -> {{0, 1000}, {\(-0.00002\), 0.00005}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Blue, 
        AspectRatio -> 0.7, PlotLabel -> "  ", 
        AxesLabel -> {"> n", "       ^ ab6(n)"}\)]

Ab6Tabsp[4]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], 
            Tabelle[4  n - 1, 7] - Tabelle[4  n - 1, 4]}, {n, 1, 8}], 
        PlotJoined\  -> \ True, 

        PlotRange -> {{0, 1000}, {\(-0.00002\), 0.00005}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Blue, 
        AspectRatio -> 0.7, PlotLabel -> "  ", 
        AxesLabel -> {"> n", "       ^ ab6(n)"}\)]

Show[Ab6Tabsp[1], Ab6Tabsp[3], Ab6Tabpkte[1], Ab6Tabpkte[3], 
      Prolog  ->  AbsolutePointSize[4]]

Show[Ab6Tabsp[2], Ab6Tabsp[4], Ab6Tabpkte[2], Ab6Tabpkte[4], 
      Prolog  ->  AbsolutePointSize[4]]

Ab12Tabpkte[1]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], 
            Tabelle[4  n - 3, 7] - Tabelle[4  n - 3, 5]}, {n, 1, 8}], 
        PlotJoined\  -> \ False, 
	
        PlotRange -> {{0, 1000}, {\(-0.0000000005\), 0.0000000025}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Red, 
        AspectRatio -> 0.7, 
        AxesLabel -> {"> n", "        ^ ab12(n)"}\)]

Ab12Tabsp[1]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], 
            Tabelle[4  n - 3, 7] - Tabelle[4  n - 3, 5]}, {n, 1, 8}], 
        PlotJoined\  -> \ True, 
	
        PlotRange -> {{0, 1000}, {\(-0.0000000005\), 0.0000000025}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Red, 
        AspectRatio -> 0.7, 
        AxesLabel -> {"> n", "       ^ ab12(n)"}\)]

Ab12Tabpkte[2]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], 
            Tabelle[4  n - 3, 7] - Tabelle[4  n - 3, 6]}, {n, 1, 8}], 
        PlotJoined\  -> False, 
	
        PlotRange -> {{0, 1000}, {\(-0.0000000001\), 0.0000000002}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Green, 
        AspectRatio -> 0.7, \ 
        AxesLabel -> {"> n", "       ^ ab12(n)"}\)]

Ab12Tabsp[2]=ListPlot[\(Table[{Tabelle[4  n - 3, 0], 
            Tabelle[4  n - 3, 7] - Tabelle[4  n - 3, 6]}, {n, 1, 8}], 
        PlotJoined\  -> True, 
	
        PlotRange -> {{0, 1000}, {\(-0.0000000001\), 0.0000000002}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Green, 
        AspectRatio -> 0.7, \ 
        AxesLabel -> {"> n", "       ^ ab12(n)"}\)]

(*      3.     Abweichungen:     Abschneiden  und  fallend                  l =  12     *)

Ab12Tabpkte[3]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], 
            Tabelle[4  n - 1, 7] - Tabelle[4  n - 1, 5]}, {n, 1, 8}], 
        PlotJoined\  -> False, 
	
        PlotRange -> {{0, 1000}, {\(-0.000000001\), 0.0000000025}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Brown, 
        AspectRatio -> 0.7, 
        AxesLabel -> {"> n", "       ^ ab12(n)"}\)]

Ab12Tabsp[3]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], 
            Tabelle[4  n - 1, 7] - Tabelle[4  n - 1, 5]}, {n, 1, 8}], 
        PlotJoined\  -> True, 
	
        PlotRange -> {{0, 1000}, {\(-0.000000001\), 0.0000000025}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Brown, 
        AspectRatio -> 0.7, 
        AxesLabel -> {"> n", "       ^ a126(n)"}\)]

Ab12Tabpkte[4]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], 
            Tabelle[4  n - 1, 7] - Tabelle[4  n - 1, 6]}, {n, 1, 8}], 
        PlotJoined\  -> \ False, 

        PlotRange -> {{0, 1000}, {\(-0.00000000002\), 0.00000000009}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Blue, 
        AspectRatio -> 0.7, PlotLabel -> "  ", 
        AxesLabel -> {"> n", "       ^ ab12(n)"}\)]

Ab12Tabsp[4]=ListPlot[\(Table[{Tabelle[4  n - 1, 0], 
            Tabelle[4  n - 1, 7] - Tabelle[4  n - 1, 6]}, {n, 1, 8}], 
        PlotJoined\  -> \ True, 

        PlotRange -> {{0, 1000}, {\(-0.00000000002\), 0.00000000009}}, 
        Prolog\  -> \ AbsolutePointSize[4], PlotStyle -> Blue, 
        AspectRatio -> 0.7, PlotLabel -> "  ", 
        AxesLabel -> {"> n", "       ^ ab12(n)"}\)]

Show[Ab12Tabsp[1], Ab12Tabsp[3], Ab12Tabpkte[1], Ab12Tabpkte[3], 
      Prolog  ->  AbsolutePointSize[4]]

Show[Ab12Tabsp[2], Ab12Tabsp[4], Ab12Tabpkte[2], Ab12Tabpkte[4], 
      Prolog  ->  AbsolutePointSize[4]]