T538

A: (-0.5, 0.21)
B: (0, 0)
C: (0.5, 0.21)
f(x) = If[-0.5 ≤ x ≤ 0.5, FitPoly[{A, B, C}, 2]]
piirto1: PolyLine[(3.0140E-1,1.0592E0), (3.0140E-1,1.0464E0), (3.0214E-1,1.0272E0), (3.0437E-1,1.0112E0), (3.0586E-1,9.8725E-1), (3.0735E-1,9.6967E-1), (3.0735E-1,9.5688E-1), (3.0884E-1,9.4409E-1), (3.1182E-1,9.2492E-1), (3.1256E-1,9.0733E-1), (3.1480E-1,8.8656E-1), (3.1554E-1,8.6898E-1), (3.1703E-1,8.4660E-1), (3.1778E-1,8.2902E-1), (3.1778E-1,8.1304E-1), (3.1926E-1,6.6280E-1), (3.1926E-1,5.1576E-1), (3.1926E-1,3.5594E-1), (3.1852E-1,3.1918E-1), (3.1629E-1,3.0480E-1), (3.1629E-1,2.8562E-1), (3.1554E-1,2.6164E-1), (3.1480E-1,2.2808E-1), (3.1331E-1,1.8972E-1), (3.1182E-1,1.1620E-1), (3.0959E-1,9.3826E-2), (2.9916E-1,1.0182E-1), (2.9246E-1,1.0981E-1), (2.8651E-1,1.1301E-1), (2.7832E-1,1.2259E-1), (2.6864E-1,1.3218E-1), (2.6119E-1,1.3538E-1), (2.4928E-1,1.4497E-1), (2.3737E-1,1.5776E-1), (2.2546E-1,1.6735E-1), (2.1801E-1,1.7054E-1), (2.1057E-1,1.8013E-1), (2.0461E-1,1.8333E-1), (1.9866E-1,1.8972E-1), (1.9047E-1,1.9611E-1), (1.7632E-1,2.1210E-1), (1.6739E-1,2.1849E-1), (1.6143E-1,2.2808E-1), (1.5324E-1,2.3447E-1), (1.4282E-1,2.4246E-1), (1.3612E-1,2.5045E-1), (1.3016E-1,2.5685E-1), (1.2421E-1,2.6004E-1), (1.1602E-1,2.7123E-1), (1.0634E-1,2.8242E-1), (1.0038E-1,2.9201E-1), (9.2191E-2,3.0799E-1), (8.5491E-2,3.1758E-1), (7.8046E-2,3.3037E-1), (7.2090E-2,3.3996E-1), (6.6134E-2,3.4635E-1), (5.8689E-2,3.5914E-1), (4.6777E-2,3.8151E-1), (3.7098E-2,3.9590E-1), (2.8164E-2,4.0868E-1), (1.2530E-2,4.3265E-1), (5.0846E-3,4.4544E-1), (�,�), (6.5736E-3,4.8060E-1), (2.8510E-3,4.9339E-1), (-3.8495E-3,5.0298E-1), (-9.8055E-3,5.0298E-1), (-1.7995E-2,4.9818E-1), (-2.3207E-2,4.7900E-1), (-2.6185E-2,4.6462E-1), (-2.6185E-2,4.4544E-1), (-2.6185E-2,4.1987E-1), (-2.4696E-2,4.0389E-1), (-1.9484E-2,3.8631E-1), (-1.0550E-2,3.7192E-1), (-2.3605E-3,3.6233E-1), (3.5955E-3,3.5914E-1), (9.5516E-3,3.5594E-1), (1.7741E-2,3.5754E-1), (2.4442E-2,3.7192E-1), (2.4442E-2,4.1348E-1), (2.4442E-2,4.3905E-1), (2.1464E-2,4.5503E-1), (1.6997E-2,4.7101E-1), (6.5736E-3,4.8700E-1), (-8.7148E-4,4.9658E-1), (-8.3165E-3,4.9658E-1), (-1.2784E-2,4.9978E-1), (�,�), (2.8651E-1,6.7559E-1), (2.8800E-1,6.6600E-1), (2.9246E-1,6.5002E-1), (3.0214E-1,6.2604E-1), (3.0884E-1,6.0527E-1), (3.1554E-1,5.8449E-1), (3.2150E-1,5.7490E-1), (3.2671E-1,6.0047E-1), (3.2969E-1,6.1805E-1), (3.3267E-1,6.3403E-1), (3.3713E-1,6.5481E-1), (3.4011E-1,6.7239E-1), (3.4160E-1,6.8198E-1), (�,�), (4.0861E-1,1.0975E0), (4.1009E-1,1.0847E0), (4.1009E-1,9.5049E-1), (4.1009E-1,8.1943E-1), (4.1009E-1,6.8837E-1), (4.1009E-1,5.3814E-1), (4.1009E-1,4.0069E-1), (4.1009E-1,2.4406E-1), (4.1009E-1,2.1529E-1), (4.0935E-1,1.9771E-1), (4.0786E-1,1.7534E-1), (4.0600E-1,1.5216E-1), (3.9520E-1,1.6095E-1), (3.8925E-1,1.6415E-1), (3.8180E-1,1.7374E-1), (3.7212E-1,1.8013E-1), (3.6542E-1,1.8652E-1), (3.5798E-1,1.9292E-1), (3.4979E-1,1.9931E-1), (3.4309E-1,2.0890E-1), (3.3192E-1,2.1849E-1), (3.2224E-1,2.2488E-1), (2.8651E-1,2.5685E-1), (2.7608E-1,2.6644E-1), (2.4481E-1,2.8881E-1), (2.3290E-1,2.9840E-1), (2.1206E-1,3.1758E-1), (1.9866E-1,3.2717E-1), (1.9047E-1,3.2877E-1), (1.8377E-1,3.3356E-1), (1.7781E-1,3.3356E-1), (1.6590E-1,3.3996E-1), (1.5547E-1,3.4315E-1), (1.4728E-1,3.4475E-1), (1.4058E-1,3.4955E-1), (1.3314E-1,3.4955E-1), (1.2495E-1,3.5434E-1), (1.1229E-1,3.5914E-1), (1.0113E-1,3.6393E-1), (9.2936E-2,3.6553E-1), (8.4746E-2,3.6713E-1), (7.6557E-2,3.7192E-1), (6.9112E-2,3.7192E-1), (6.1667E-2,3.7831E-1), (4.9755E-2,3.8151E-1), (4.0821E-2,3.8471E-1), (3.4865E-2,3.8471E-1), (2.6675E-2,3.8950E-1), (1.8486E-2,3.9110E-1), (1.1041E-2,3.9749E-1), (3.5955E-3,4.0389E-1), (�,�), true]
piirto2: PolyLine[(3.8329E-1,5.1257E-1), (3.8925E-1,5.0138E-1), (3.9669E-1,4.8540E-1), (4.0339E-1,4.6941E-1), (4.1009E-1,4.5024E-1), (4.1605E-1,4.4065E-1), (4.1903E-1,4.5823E-1), (4.2498E-1,4.7101E-1), (4.3169E-1,4.9179E-1), (4.3690E-1,5.0617E-1), (4.3839E-1,5.1576E-1), (�,�), true]
D = (-0.7260178070379392, -0.31852156067036763)
E = (0.8567964622106451, -0.3249145515627631)
johtosuora = Segment(D, E)