f(x) = If[((-π)) / 2 < x < π / 2, cos(x)]
A = Point(f)
g = OrthogonalLine(A, xAxis)
h = OrthogonalLine(A, yAxis)
B = Intersect(f, h, (-0.8849621500648011, 0.6333187936668898))
C = Intersect(xAxis, g)
i = OrthogonalLine(B, xAxis)
D = Intersect(i, xAxis)
m1, a, b, d, c = Polygon(A, B, D, C)
teksti1 = LaTeX(m1, true, true)
Pistem1 = PointIn(m1)
Tekstim1: "pinta-ala = " + m1 + ""
teksti2 = LaTeX(f, true, true)