g(x) = (2 * sin(x)) + 3
A = Point(xAxis)
A': (x(A), g(x(A)))
B: (0, y(A'))
piirto1: PolyLine[(2.3139E0,-9.0556E-2), (2.3315E0,-3.7629E-2), (2.3315E0,3.2941E-2), (2.3315E0,1.0351E-1), (2.2080E0,1.9172E-1), (2.1198E0,2.4465E-1), (1.9610E0,2.4465E-1), (1.8110E0,2.2701E-1), (1.7140E0,1.6526E-1), (1.6346E0,7.7047E-2), (1.6082E0,-2.3440E-3), (1.6082E0,-7.2914E-2), (1.5905E0,-1.4348E-1), (1.5905E0,-2.4934E-1), (1.5905E0,-3.5519E-1), (1.6346E0,-4.5223E-1), (1.7228E0,-5.5808E-1), (1.8463E0,-6.1983E-1), (1.9522E0,-6.6394E-1), (2.0492E0,-6.7276E-1), (2.1198E0,-6.7276E-1), (2.1904E0,-6.3747E-1), (2.2786E0,-6.1983E-1), (2.3756E0,-5.4926E-1), (2.4550E0,-4.4341E-1), (2.5167E0,-3.4637E-1), (2.5432E0,-2.6698E-1), (2.5785E0,-1.9641E-1), (2.5785E0,-1.2584E-1), (2.5785E0,-5.5271E-2), (2.5520E0,4.1762E-2), (2.4550E0,1.2115E-1), (2.3844E0,1.7408E-1), (2.2609E0,2.2701E-1), (2.1551E0,2.4465E-1), (�,�), (6.1952E0,3.1522E-1), (6.1246E0,3.1522E-1), (5.2778E0,3.1522E-1), (4.3957E0,3.1522E-1), (3.5312E0,3.1522E-1), (2.6667E0,3.1522E-1), (2.4197E0,3.1522E-1), (2.3227E0,3.2404E-1), (2.4197E0,4.0343E-1), (2.5167E0,4.6518E-1), (2.6667E0,5.7986E-1), (2.5873E0,5.3575E-1), (2.4815E0,4.5636E-1), (2.3756E0,4.0343E-1), (2.4285E0,3.2404E-1), (2.5079E0,2.7994E-1), (2.5785E0,2.6229E-1), (2.6667E0,2.2701E-1), (2.8078E0,1.7408E-1), (2.8961E0,1.3880E-1), (�,�), true]
f(x) = If[x < 2, g(x), If[x > 2, g(x), 2]]
piirto2: PolyLine[(-2.9612E0,2.6229E-1), (-2.8554E0,2.7111E-1), (-2.7319E0,2.7994E-1), (-2.6437E0,2.7994E-1), (-1.7615E0,2.9758E-1), (-8.9707E-1,2.9758E-1), (2.6975E-3,2.9758E-1), (9.0246E-1,2.9758E-1), (1.6434E0,2.9758E-1), (1.7846E0,2.9758E-1), (1.8022E0,3.6815E-1), (1.7140E0,4.2107E-1), (1.5993E0,5.1811E-1), (1.4847E0,5.9750E-1), (1.4141E0,6.5043E-1), (1.5111E0,6.1514E-1), (1.6082E0,5.9750E-1), (1.6787E0,5.4457E-1), (1.7934E0,4.6518E-1), (1.8640E0,3.9461E-1), (1.7758E0,3.0640E-1), (1.6611E0,2.1819E-1), (1.5641E0,1.3880E-1), (1.4847E0,1.0351E-1), (�,�), true]