busca_punot
Author: Rafael Losada Liste

P = (5, 3)
b: Random[-16, 20] / 2
a: Random[-22, 42] / 2
T1: "¡Muy bien! Este es el punto (" + a + ", " + b + ")"
T2: "Busca el punto (" + a + ", " + b + ")"
A = (10.1, 10.9)
B = (10, 10.1)
C = (17.5, 10)
D = (17.5, 11)
polígono1, a_1, b_1, c, d = Polygon(A, B, C, D)
maxX: If[x(P) ≥ 0, Min[x(P), 12], Min[x(P), -10]] + 0.1
e = Segment(P, (x(P), 0))
f = Segment(P, (0, y(P)))
P': (maxX, y(P) - 0.85)
lista1 = Sequence(Line[(k, 0), (k, 1)], k, -15, 25)
lista2 = Sequence(Line[(0, k), (1, k)], k, -12, 15)