× auf gewünschten 
Grenzwert schieben!

s0: 0
W = Point(yAxis)
limit: y(W)
p1 = If(s0 < limit, 2, 1)
n1 = If(s0 < limit, 1, 2)
neg = Sequence(-1 / 2 / n, n, 1, 20)
pos = Sequence(1 / ((2 * n) - 1), n, 1, 20)
a1 = If(s0 < limit, Element[pos, 1], Element[neg, 1])
s1: s0 + a1
p2 = If(s1 < limit, p1 + 1, p1)
a2 = If(s1 < limit, Element[pos, p1], Element[neg, n1])
s2: s1 + a2
p3 = If(s2 < limit, p2 + 1, p2)
n2 = If(s1 < limit, n1, n1 + 1)
a3 = If(s2 < limit, Element[pos, p2], Element[neg, n2])
s3: s2 + a3
p4 = If(s3 < limit, p3 + 1, p3)
n3 = If(s2 < limit, n2, n2 + 1)
a4 = If(s3 < limit, Element[pos, p3], Element[neg, n3])
s4: s3 + a4
p5 = If(s4 < limit, p4 + 1, p4)
n4 = If(s3 < limit, n3, n3 + 1)
a5 = If(s4 < limit, Element[pos, p4], Element[neg, n4])
s5: s4 + a5
p6 = If(s5 < limit, p5 + 1, p5)
n5 = If(s4 < limit, n4, n4 + 1)
a6 = If(s5 < limit, Element[pos, p5], Element[neg, n5])
s6: s5 + a6
p7 = If(s6 < limit, p6 + 1, p6)
n6 = If(s5 < limit, n5, n5 + 1)
a7 = If(s6 < limit, Element[pos, p6], Element[neg, n6])
s7: s6 + a7
p8 = If(s7 < limit, p7 + 1, p7)
n7 = If(s6 < limit, n6, n6 + 1)
n8 = If(s7 < limit, n7, n7 + 1)
a8 = If(s7 < limit, Element[pos, p7], Element[neg, n7])
s8: s7 + a8
a9 = If(s8 < limit, Element[pos, p8], Element[neg, n8])
s9: s8 + a9
A: (1, 0)
C: (2, s1)
E: (3, s2)
G: (4, s3)
I: (5, s4)
K: (6, s5)
M: (7, s6)
O: (8, s7)
B: (1, s1)
u = Vector(A, B)
D: (2, s2)
v = Vector(C, D)
F: (3, s3)
w = Vector(E, F)
H: (4, s4)
a = Vector(G, H)
J: (5, s5)
b = Vector(I, J)
L: (6, s6)
c = Vector(K, L)
N: (7, s7)
d = Vector(M, N)
P: (8, s8)
e = Vector(O, P)
g = Segment(B, C)
h = Segment(D, E)
i = Segment(F, G)
j = Segment(H, I)
k = Segment(J, K)
l = Segment(L, M)
m = Segment(N, O)
Q: (9, s8)
R: (9, s9)
n = Vector(Q, R)
p = Segment(P, Q)
f: y = limit
q: (n * 5)
o: (p * 6)
r: (p * 7)
p9 = If(s8 < limit, p8 + 1, p8)
n9 = If(s8 < limit, n8, n8 + 1)
a10 = If(s9 < limit, Element[pos, p9], Element[neg, n9])
s10: s9 + a10
S: (10, s9)
T: (10, s10)
s = Segment(R, S)
t = Vector(S, T)
U: (0.3, -0.8)
f_1 = OrthogonalLine(U, xAxis)
V = Intersect(f_1, f)
Text3: "" + limit + ""
Text1: "" + (LaTeX[If[a1 < 0, "-", ""]]) + "\frac{1}{" + (LaTeX[1 / abs(a1)]) + " }"
Text2: "" + (LaTeX[If[a2 < 0, "-", "+"]]) + "\frac{1}{" + (LaTeX[1 / abs(a2)]) + " }"
Text2_2: "" + (LaTeX[If[a4 < 0, "-", "+"]]) + "\frac{1}{" + (LaTeX[1 / abs(a4)]) + "}"
Text2_1: "" + (LaTeX[If[a3 < 0, "-", "+"]]) + "\frac{1}{" + (LaTeX[1 / abs(a3)]) + " }"
Text2_3: "" + (LaTeX[If[a5 < 0, "-", "+"]]) + "\frac{1}{" + (LaTeX[1 / abs(a5)]) + " }"
Text2_4: "" + (LaTeX[If[a6 < 0, "-", "+"]]) + "\frac{1}{ " + (LaTeX[1 / abs(a6)]) + "}"
Text2_5: "" + (LaTeX[If[a7 < 0, "-", "+"]]) + "\frac{1}{" + (LaTeX[1 / abs(a7)]) + " }"
Text2_6: "" + (LaTeX[If[a8 < 0, "-", "+"]]) + "\frac{1}{" + (LaTeX[1 / abs(a8)]) + " }"
Text2_7: "" + (LaTeX[If[a9 < 0, "-", "+"]]) + "\frac{1}{ " + (LaTeX[1 / abs(a9)]) + "}"
Text2_{8}: "" + (LaTeX[If[a10 < 0, "-", "+"]]) + "\frac{1}{" + (LaTeX[1 / abs(a10)]) + "}"
summand = 10 (slider from 0 to 10, step 1)
Z = (-2.1212280701754374, 0.06553565047195364)
A_1 = (-1.0711009407576912, 0.06553565047195364)
B_1 = (-2.118757182812101, 0.507721536320547)