Progressão Aritmética

Progressão Geométrica

a_1 = -1 (slider from -10 to 10, step 1)
r = -1.1 (slider from -10 to 10, step 0.1)
n = 50 (slider from -5 to 50, step 0.1)
Dom = Sequence(i, i, 1, n)
Im_{PA} = Sequence(a_1 + ((i - 1) * r), i, 1, n)
PA = Sequence((Element[Dom, k], Element[Im_{PA}, k]), k, 1, n)
a = false
Im_{PG} = Sequence((a_1 * r^(i - 1)), i, 1, n)
PG = Sequence((Element[Dom, k], Element[Im_{PG}, k]), k, 1, n)
b = true