Ayuda gráfica

Comprobar

bases: {10, 10, 10, 2, 2, 2, 3, 3, 4, 5}
b = Element(bases, Random[1, 10])
exponentes: {2, 2, 2, 3, 3, -1, -1, 4, 0.5, 0.5, 0, 0, 1, 1}
ee = Element(exponentes, Random[1, 14])
e = If(ee ≟ 4 ∧ b ≟ 10, 2, ee)
k = false
f = 1 (slider from -2 to 4, step 0.5)
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)))
ff: round((10 * f)) / 10
Pos1: Corner[4] + ((18 * inc), ((-434) * inc))
Pos2: Corner[4] + ((58 * inc), ((-434) * inc))
Pos3: Pos + (((-16) * inc), ((-14) * inc))
esc = If(k, Max[abs(ff), abs(b^(e))] / 4, round((10 * 10^(valor))) / 10)
Pos4: Pos + ((20 * inc), ((-14) * inc))
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]))))
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]))))
h = false
texto9: If[ff  <  0, "- ", ""] + (abs(ff))
texto10: ff + ""
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]))))
texto1 = FractionText(b^(e))
texto2: " \sqrt{" + b + " }"
tex = If((e ≤ 0) ∨ (e ≥ 1), texto1, texto2)
texto4: "log_" + b + "\;" + tex + "\;=\"
texto6 = If(e ≟ ff, "Sí, es correcto", "No es correcto")
valResp1 = If(ff ≟ e, 1, 0)
A = (-8, 3.5)
B = (-3.46, 5.8)
a = OrthogonalLine(A, yAxis)
c = OrthogonalLine(B, a)
d = OrthogonalLine(B, c)
g = OrthogonalLine(A, d)
C = Intersect(d, g)
D = Intersect(a, c)
polígono1: {Polygon[C, B, D, A]}
AAA = (-7.84, 5.52)
Aa = If(e  <  0, AAA + (0, 0.2), AAA)
E: (b^(e) / esc, 0)
F: (b^(e) / esc, ff / esc)
i = Segment(F, E)
G: (0, ff / esc)
j = Segment(G, F)
p(x) = lg((x * esc)) / ((lg(b) * esc))
x0: {Text[0, (0.05, -0.33)]}