a_1

La diferencia es:

Comprobar

Comprobar

g = 0 (slider from -160 to 190, step 1)
gg: round(g)
dif: {-6, -5, -4, -3, -2, -1, 1, 2, 3, 4, 5, 6}
preg = Random(1, 26)
n = Random(3, 10)
nf = Random(n + 1, 26)
n0: nf - n
preg1 = If(preg ≟ n0, preg + 1, If[preg ≟ nf, preg - 1, preg])
t1 = Random(-10, 40)
d = Element(dif, Random[1, 12])
prog = Sequence(t1 - ((n0 - k) * d), k, 1, 26)
resp = Element(prog, preg1)
f = 0 (slider from -6 to 6, step 1)
ff: round(f)
ancho: x(Corner[3] - Corner[4])
alto: y(Corner[4] - Corner[1])
inc = Min(ancho / 1200, alto / 1200)
Pos1sup: Corner[4] + ((35 * inc), (-88 * inc))
Pos1inf: Corner[4] + ((35 * inc), (-376 * inc))
seg1 = Segment(Pos1inf, Pos1sup)
Pos = Point(seg1)
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 = 500
valor: 2 - (4 * (y(Pos) - y(Pos1inf)) / (y(Pos1sup) - y(Pos1inf)))
esc: round((10 * 5^(valor))) / 10
d': d / 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[(a + (k * d'), 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(d  <  0, Reverse[s1], s1)
s2 = Sequence(Semicircle[Element[s1', k], Element[s1', k + 1]], k, 1, m)
Post1: (t1 / esc, 0)
tf = Element(prog, nf)
Postf: (tf / esc, 0)
b = Segment(Post1, Post1 - (0, 0.9))
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 ≟ d, 1, 0)
texto9: If[ff  <  0, "- ", ""] + (abs(ff))
texto8: If[gg  <  0, "- ", ""] + (abs(gg))
texto10: ff + ""
texto11: gg + ""
texto6 = If(ff ≟ d, "Sí, es correcto", "No es correcto")
texto7 = If(gg ≟ resp, "Sí, es correcto", "No es correcto")
texto1: "a_{" + (LaTeX[n0]) + "}\;=\;" + (LaTeX[t1]) + ""
texto2_1: "a_{" + (LaTeX[nf]) + "}\;=\;" + (LaTeX[tf]) + ""