T514

f(x) = If[x > 0, 1 / x]
teksti1 = LaTeX(f, true, true)
A = Point(f)
g = Tangent(A, f)
B = Intersect(g, yAxis)
C = Intersect(g, xAxis)
D: (0, 0)
k1, b, c, d = Polygon(C, D, B)
Tekstik1: " " + (Name[C]) + (Name[D]) + (Name[B]) + ":n pinta-ala = " + k1
Pistek1 = PointIn(k1)