Ubica este 
punto sobre
 el eje y

p = 256 (slider from 40 to 300, step 4)
O = Intersect(xAxis, yAxis)
B = Point(xAxis)
a_2 = Ray(O, B)
C = Point(a_2)
b: y = p / 2 - x(C)
c = Ray(C, (x(C), y(C) + 1))
D = Intersect(b, c)
d = Ray(D, (x(D) - 1, y(D)))
E = Intersect(d, yAxis)
P, e, d_1, a, a_1 = Polygon(E, D, C, O)
F = Midpoint(O, D)
texto1: "Área=" + (LaTeX[P]) + ""
G = Midpoint(O, C)
texto2: "x=" + (LaTeX[a]) + ""
A: (a, Area[P])
H = (23.50396762394611, 6024.511818495959)
lugar1 = Locus(A, C)
f = Segment(A, C)
g = OrthogonalLine(A, f)
I = Intersect(g, yAxis)
h = Segment(I, A)