a_1

La razón es:

Comprobar

Comprobar

La razón es:

El 4º término es:

raz: {0.25, 0.5, 2, 3}
n = Random(3, 5)
nf0 = Random(n + 1, 6)
alto: y(Corner[4] - Corner[1])
ancho: x(Corner[3] - Corner[4])
inc = Min(ancho / 1200, alto / 1200)
Pos1inf: Corner[4] + ((35 * inc), (-376 * inc))
Pos1sup: Corner[4] + ((35 * inc), (-88 * inc))
seg1 = Segment(Pos1inf, Pos1sup)
Pos = Point(seg1)
valor: 2 - (4 * (y(Pos) - y(Pos1inf)) / (y(Pos1sup) - y(Pos1inf)))
nf = If(nf0 ≟ 4, 5, nf0)
esc: round((10 * 20^(valor))) / 10
n0: nf - n
t0 = Random(1, 3)
r = Element(raz, Random[1, 4])
rr = If(r  <  1, 1 / r, r)
prog0 = Sequence((t0 * rr^(k)), k, 1, 6)
t1 = If(r > 1, Min[prog0], Max[prog0])
prog = Sequence((t1 * r^(k)), k, 1, 6)
ti = Element(prog, n0)
g = 0 (slider from 0 to 13000, step 1)
preg = Random(1, 6)
gg: round(g)
preg1: 4
resp = Element(prog, preg1)
f = 0 (slider from 0 to 4, step 0.25)
ff: round((100 * f)) / 100
Pos1: Corner[4] + ((18 * inc), (-434 * inc))
Pos2: Corner[4] + ((58 * inc), (-434 * inc))
Pos3: Pos + ((-16 * inc), (-14 * inc))
Pos4: Pos + ((20 * inc), (-14 * inc))
m = 50
r': r / esc
a: Element[prog, 1] / esc
seg2 = Segment(Corner[4] + ((6 * inc), (-232 * inc)), Corner[4] + ((66 * inc), (-232 * inc)))
w = If(esc > 1, 1, If[esc > 0.1, 10, 100])
x1 = Sequence(Text[(floor((w * esc)) * s / w), ((s * floor((w * esc)) / ((w * esc))) - 0.05, -0.32)], s, 1, floor((2 * x(Corner[2]))))
x1' = Sequence(Text[((-floor((w * esc))) * s / w), (((-s) * floor((w * esc)) / ((w * esc))) - 0.15, -0.32)], s, 1, floor((-2 * x(Corner[1]))))
A: (a, 0)
s1 = Append(A, Sequence[((Element[prog, 1] * r^(k) / esc), 0), k, 1, m])
x2' = Sequence(Segment[(((-s) * floor((w * esc)) / ((w * esc))), 0), (((-s) * floor((w * esc)) / ((w * esc))), -0.1)], s, 1, floor((-2 * x(Corner[1]))))
x2 = Sequence(Segment[((s * floor((w * esc)) / ((w * esc))), 0), ((s * floor((w * esc)) / ((w * esc))), -0.1)], s, 0, floor((2 * x(Corner[2]))))
x0: {Text[0, (-0.06, -0.33)]}
s1' = If(r  <  1, Reverse[s1], s1)
Post1: (ti / esc, 0)
s2 = Sequence(Semicircle[Element[s1', k], Element[s1', k + 1]], k, 1, m)
tf = Element(prog, nf)
Postf: (tf / esc, 0)
b = Segment(Post1, Post1 - (0, 0.9))
texto2: "a_" + nf + "\;=\;" + tf
c = Segment(Postf, Postf - (0, 1.9))
e = Segment(A, A - (0, 0.4))
texto5: "El " + preg1 + "º término es:"
h = false
i = false
valResp2 = If(gg ≟ resp, 1, 0)
valResp1 = If(ff ≟ r, 1, 0)
texto9: If[ff  <  0, "- ", ""] + (abs(ff))
texto8: If[gg  <  0, "- ", ""] + (abs(gg))
texto10: ff + ""
texto11: gg + ""
texto6 = If(ff ≟ r, "Sí, es correcto", "No es correcto")
texto7 = If(gg ≟ resp, "Sí, es correcto", "No es correcto")
texto1: "a_" + n0 + "\;=\;" + ti
CasillaDeEntrada1 = Textfield(f)
CasillaDeEntrada2 = Textfield(g)