O = Intersect(xAxis, yAxis)
X = Point(xAxis)
B = Point(yAxis)
A = Point(xAxis)
t1, a, o, b = Polygon(O, B, A)
h = OrthogonalLine(X, b)
f(x) = (-1.5 * x^(2)) + (18 * x)
C_{1}, C_{2} = Intersect(f, o)
D = Point(a)
C = Intersect(h, o)
g = OrthogonalLine(C, yAxis)
E = Intersect(g, a)
q1, x_1, c, e, o_1 = Polygon(X, C, E, O)
Pointq1 = PointIn(q1)
Texteq1: "Aire = " + q1 + ""
distanceOX = Distance(O, X)
TexteOX: "x = " + distanceOX + ""
M: (Distance[O, X], f(Distance[O, X]))