p = %v%

t = 0 (slider from 0 to 20, step 1)
alto: y(Corner[4] - Corner[1])
ancho: x(Corner[3] - Corner[4])
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)
valor: 2 - (4 * (y(Pos) - y(Pos1inf)) / (y(Pos1sup) - y(Pos1inf)))
esc: round((10 * 20^(valor))) / 10
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])
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))
x0: {Text[0, (0.05, -0.33)]}
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]))))
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]))))
y1 = Sequence(Text[(floor((w * esc)) * s / w), ((-0.32), (s * floor((w * esc)) / ((w * esc))) - 0.05)], s, 1, floor((2 * y(Corner[3]))))
y1a = Sequence(Length[TextToUnicode[Element[y1, s]]], s, 1, floor((2 * y(Corner[3]))))
y1a' = Sequence(Length[TextToUnicode[Element[y1, s]]], s, 1, floor((-2 * y(Corner[1]))))
y1b = Sequence(Text[(floor((w * esc)) * s / w), ((-0.2) - (0.1 * Element[y1a, s]), (s * floor((w * esc)) / ((w * esc))) - 0.08)], s, 1, floor((2 * y(Corner[3]))))
y1b' = Sequence(Text[((-floor((w * esc))) * s / w), ((-0.27) - (0.1 * Element[y1a, s]), ((-s) * floor((w * esc)) / ((w * esc))) - 0.08)], s, 1, floor((-2 * y(Corner[1]))))
y2 = Sequence(Segment[(0, (s * floor((w * esc)) / ((w * esc)))), ((-0.1), (s * floor((w * esc)) / ((w * esc))))], s, 1, floor((2 * y(Corner[3]))))
y2' = Sequence(Segment[(0, ((-s) * floor((w * esc)) / ((w * esc)))), ((-0.1), ((-s) * floor((w * esc)) / ((w * esc))))], s, 1, floor((-2 * y(Corner[1]))))
n = 8 (slider from -100 to 100, step 1)
C = 1 (slider from 1 to 100, step 1)
p1(x) = If[x ≥ 0,(C * (1 + n / 100)^((esc * x)) / esc)]
A: (t / esc, 0)
p2(x) = If[x  <  0,(C * (1 + n / 100)^((esc * x)) / esc)]
p(x) = (C * (1 + n / 100)^((esc * x)) / esc)
B: (x(A), p(A))
a = Segment(B, A)
b = Segment(B, (0, y(B)))
texto1: "(" + (LaTeX[(esc * x(B))]) + ",\fgcolor{FF44FF}{" + (LaTeX[(esc * y(B))]) + "})"
texto2: "" + (LaTeX[C]) + "· " + (LaTeX[1 + n / 100]) + "^{ " + (LaTeX[t]) + "}=\fgcolor{FF44FF}{" + (LaTeX[(esc * y(B))]) + "}"
B': B + If[n  <  0, (0, 0.7), (0, 0)]
A1 = 0
A2 = 1
A3: (2 * A2) - A1
A4: (2 * A3) - A2
A5: (2 * A4) - A3
A6: (2 * A5) - A4
A7: (2 * A6) - A5
A8: (2 * A7) - A6
A9: (2 * A8) - A7
A10: (2 * A9) - A8
A11: (2 * A10) - A9
A12: (2 * A11) - A10
A13: (2 * A12) - A11
A14: (2 * A13) - A12
A15: (2 * A14) - A13
A16: (2 * A15) - A14
A17: (2 * A16) - A15
A18: (2 * A17) - A16
A19: (2 * A18) - A17
A20: (2 * A19) - A18
A21: (2 * A20) - A19
B1: (1 + n / 100)^(A1)
B2: (1 + n / 100)^(A2)
B3: (1 + n / 100)^(A3)
B4: (1 + n / 100)^(A4)
B5: (1 + n / 100)^(A5)
B6: (1 + n / 100)^(A6)
B7: (1 + n / 100)^(A7)
B8: (1 + n / 100)^(A8)
B9: (1 + n / 100)^(A9)
B10: (1 + n / 100)^(A10)
B11: (1 + n / 100)^(A11)
B12: (1 + n / 100)^(A12)
B13: (1 + n / 100)^(A13)
B14: (1 + n / 100)^(A14)
B15: (1 + n / 100)^(A15)
B16: (1 + n / 100)^(A16)
B17: (1 + n / 100)^(A17)
B18: (1 + n / 100)^(A18)
B19: (1 + n / 100)^(A19)
B20: (1 + n / 100)^(A20)
B21: (1 + n / 100)^(A21)