Geometrische Reihe

Reihenwert anzeigen

q = 0.5 (slider from -2 to 2, step 0.01)
q_{t2} = If(q < 0, "+" + (abs(q)), "-" + q)
n = 7 (slider from 0 to 100, step 1)
sum_{inf} = If(q ≥ 1, "=unendlich", If[q ≤ -1, "\;nicht\;definiert", "=" + (1 / (1 - q))])
f(x) = If[0 ≤ x ≤ Infinity, q^(x)]
A = RectangleSum(f, 0, n + 1, n + 1, 0)
l1 = Sequence((i, f(i)), i, 0, n)
frac_{inf} = If(abs(q) < 1, "=\frac{1}{1" + q_{t2} + "}")
l2 = Sequence((y(Sum[l1, i]), 0), i, 1, n + 1)
q_{t1} = If(q < 0, "(" + q + ")", q + "")
sumtext: "\sum_{k=0}^{" + (LaTeX[n]) + "}{" + (LaTeX[q_{t1}]) + "^k}=" + (LaTeX[A]) + ""
a = false
sum_{inf2} = If(a, frac_{inf} + sum_{inf}, "=???")
inftext: "\sum_{k = 0}^{∞}{" + (LaTeX[q_{t1}]) + "^k}" + (LaTeX[sum_{inf2}]) + ""