f: y = If[x > 0, 1 / x]
A = Point(f)
g = Tangent(A, f)
B = Intersect(g, xAxis)
C = Intersect(g, yAxis)
D: (0, 0)
t1, c, b, d = Polygon(B, D, C)
Tekstit1: " " + (Name[B]) + (Name[D]) + (Name[C]) + ":n pinta-ala = " + t1
Pistet1 = PointIn(t1)