f(x) = (sin(x) * x) + 2
P: (1, f(1))
A = Point(f)
g = Line(P, A)
k = Slope(g)
P': (1, 0)
A': (x(A), 0)
piirto1: PolyLine[(6.4598E0,-1.7877E-1), (6.3893E0,-1.7877E-1), (6.3187E0,-1.7877E-1), (6.2217E0,-1.8759E-1), (6.0893E0,-1.9641E-1), (5.9835E0,-1.9641E-1), (5.1366E0,-2.1405E-1), (4.2898E0,-2.1405E-1), (3.4430E0,-2.1405E-1), (2.5432E0,-2.1405E-1), (1.6258E0,-2.1405E-1), (1.3965E0,-2.1405E-1), (1.2641E0,-1.8759E-1), (1.3435E0,-1.0820E-1), (1.5023E0,-2.3440E-3), (1.6082E0,5.0583E-2), (1.6787E0,8.5868E-2), (1.7934E0,1.2115E-1), (1.8463E0,1.4762E-1), (1.5905E0,5.0583E-2), (1.4847E0,-2.3440E-3), (1.3876E0,-5.5271E-2), (1.2818E0,-1.0820E-1), (1.1936E0,-1.8759E-1), (1.2906E0,-2.8462E-1), (1.4406E0,-3.9930E-1), (1.5817E0,-5.4044E-1), (1.6611E0,-6.0219E-1), (1.7140E0,-6.1983E-1), (NaN,NaN), true]