SITUACIÓN: EXTENDIENDO UN METRO CUADRADO
y=1/x

Experiencia 1:
Prueba a mover el punto A, estirando y encogiendo el lado horizontal
del paralelogramo que tiene el vértice B sobre la rama derecha de la hipérbola,
observando el comportamiento de su área.

metros 

metros

f(x) = 1 / x
A = Point(xAxis)
B: (x(A), f(x(A)))
C: (0, f(x(A)))
a = Segment(A, B)
b = Segment(C, B)
D = Intersect(xAxis, yAxis)
polígono1, a_1, b_1, c, d = Polygon(A, B, C, D)
Textopolígono1: "Area " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + polígono1