f(x) = nroot(x^(3) - 2,4) + 3
g: y = x
A = Point(f)
A' = Mirror(A, g)
h(x) = If[x ≥ 3, nroot((x - 3)^(4) + 2,3)]
piirto1: PolyLine[(1.3215E0,2.9844E0), (1.3197E0,3.0394E0), (1.3018E0,3.0745E0), (1.2856E0,3.0945E0), (1.2712E0,3.1045E0), (1.2497E0,3.1045E0), (1.2192E0,3.0945E0), (1.1977E0,3.0644E0), (1.1887E0,3.0244E0), (1.1851E0,2.9844E0), (1.1851E0,2.9444E0), (1.1923E0,2.9044E0), (1.2031E0,2.8644E0), (1.2174E0,2.8443E0), (1.2354E0,2.8343E0), (1.2677E0,2.8343E0), (1.3125E0,2.8393E0), (1.3323E0,2.8443E0), (1.3520E0,2.8644E0), (1.3610E0,2.9044E0), (1.3610E0,2.9544E0), (1.3448E0,3.0094E0), (1.3251E0,3.0544E0), (1.3107E0,3.0745E0), (1.2874E0,3.1095E0), (1.2677E0,3.1145E0), (NaN,NaN), (1.2605E0,2.8844E0), (1.2569E0,2.8443E0), (1.2569E0,2.3741E0), (1.2569E0,2.2741E0), (1.2605E0,2.1940E0), (1.2677E0,2.0940E0), (1.2748E0,1.9639E0), (1.2820E0,1.8739E0), (1.2820E0,1.8339E0), (1.2820E0,1.7838E0), (1.2856E0,1.7138E0), (1.2892E0,1.6138E0), (1.2928E0,1.5037E0), (1.3000E0,1.4237E0), (1.3071E0,1.3436E0), (1.3071E0,9.1344E-1), (1.3071E0,8.1339E-1), (1.3036E0,7.6337E-1), (1.3000E0,7.2335E-1), (1.3000E0,6.8333E-1), (1.2946E0,6.2830E-1), (1.2856E0,5.8328E-1), (1.2784E0,5.3326E-1), (1.2748E0,4.8324E-1), (1.2677E0,4.4322E-1), (1.2641E0,3.8319E-1), (1.2641E0,2.6313E-1), (1.2659E0,1.6809E-1), (1.2677E0,9.3053E-2), (1.2677E0,3.3025E-2), (1.2551E0,8.3048E-2), (1.2372E0,1.4808E-1), (1.2192E0,1.9060E-1), (1.2318E0,1.1306E-1), (1.2515E0,4.3029E-2), (1.2712E0,7.3043E-2), (1.2928E0,1.2307E-1), (1.3323E0,2.1561E-1), (1.3520E0,2.8814E-1), (1.3610E0,3.4317E-1), (NaN,NaN), (1.3897E0,8.9343E-1), (1.3951E0,8.2840E-1), (1.4005E0,7.5336E-1), (1.4076E0,6.7833E-1), (1.4184E0,6.2330E-1), (1.4256E0,5.5827E-1), (1.4382E0,4.8824E-1), (1.4435E0,4.4322E-1), (1.4471E0,4.9824E-1), (1.4579E0,5.7328E-1), (NaN,NaN), (1.4615E0,8.9343E-1), (1.4507E0,8.7342E-1), (1.4399E0,8.3340E-1), (1.3933E0,6.4331E-1), (1.3789E0,5.7328E-1), (NaN,NaN), (1.5153E0,7.3335E-1), (1.5261E0,7.5336E-1), (1.5404E0,7.9338E-1), (1.5602E0,8.0839E-1), (1.5692E0,7.6337E-1), (1.5745E0,7.0834E-1), (1.5907E0,7.2335E-1), (1.6051E0,7.6337E-1), (1.6284E0,8.0339E-1), (1.6338E0,7.7337E-1), (NaN,NaN), (1.5189E0,5.7328E-1), (1.5351E0,6.1830E-1), (1.5566E0,6.6832E-1), (1.5745E0,6.4831E-1), (1.5835E0,5.9329E-1), (1.5907E0,5.3826E-1), (1.6086E0,5.7328E-1), (1.6374E0,6.4081E-1), (1.6517E0,6.8333E-1), (NaN,NaN), (1.7056E0,8.8342E-1), (1.7253E0,9.1844E-1), (1.7343E0,8.8342E-1), (1.7361E0,8.2840E-1), (1.7414E0,7.7337E-1), (1.7414E0,6.9333E-1), (1.7414E0,6.1330E-1), (1.7450E0,5.7328E-1), (NaN,NaN), (1.7845E0,5.8328E-1), (1.7845E0,5.4326E-1), (1.7845E0,5.0325E-1), (1.7845E0,4.6323E-1), (1.7917E0,4.9324E-1), (1.8025E0,5.3326E-1), (NaN,NaN), (1.8419E0,9.1344E-1), (1.8455E0,9.4345E-1), (1.8599E0,9.5346E-1), (1.8778E0,9.4345E-1), (1.8922E0,8.7842E-1), (1.9030E0,8.2340E-1), (1.9030E0,7.6337E-1), (1.8976E0,6.8833E-1), (1.8850E0,6.4331E-1), (1.9083E0,6.0829E-1), (1.9281E0,6.0329E-1), (1.9424E0,5.9329E-1), (1.9640E0,5.9329E-1), (1.9783E0,5.8328E-1), (1.9819E0,6.2330E-1), (NaN,NaN), (2.0501E0,9.6346E-1), (2.0394E0,9.5346E-1), (2.0286E0,9.1344E-1), (2.0178E0,8.6341E-1), (2.0106E0,8.0339E-1), (2.0071E0,7.5336E-1), (2.0071E0,6.8333E-1), (2.0151E0,5.8078E-1), (2.0358E0,5.5327E-1), (2.0591E0,5.7828E-1), (2.0591E0,6.4831E-1), (2.0429E0,6.8333E-1), (2.0214E0,6.9333E-1), (1.9945E0,6.7333E-1), (1.9927E0,6.3331E-1), (2.0071E0,6.2330E-1), (2.0214E0,6.2330E-1), (2.0358E0,6.3331E-1), (2.0465E0,6.5332E-1), (NaN,NaN), true]
piirto2: PolyLine[(3.0444E0,1.6138E0), (3.0336E0,1.6238E0), (3.0192E0,1.6338E0), (3.0049E0,1.6338E0), (2.9815E0,1.6188E0), (2.9600E0,1.5787E0), (2.9331E0,1.5337E0), (2.9151E0,1.4837E0), (2.8990E0,1.4337E0), (2.8828E0,1.3787E0), (2.8721E0,1.3136E0), (2.8649E0,1.2736E0), (2.8649E0,1.2036E0), (2.8649E0,1.1235E0), (2.8757E0,1.0835E0), (2.8954E0,1.0035E0), (2.9241E0,9.2844E-1), (2.9582E0,8.6341E-1), (2.9869E0,8.2340E-1), (3.0444E0,8.2340E-1), (3.0838E0,8.2340E-1), (3.0982E0,8.3340E-1), (3.1233E0,8.6341E-1), (3.1413E0,8.9343E-1), (3.1664E0,9.3345E-1), (3.1843E0,9.7347E-1), (3.1987E0,1.0235E0), (3.2202E0,1.0785E0), (3.2346E0,1.1536E0), (3.2418E0,1.2036E0), (3.2454E0,1.2436E0), (3.2490E0,1.2836E0), (3.2490E0,1.3236E0), (3.2472E0,1.3887E0), (3.2418E0,1.4337E0), (3.2274E0,1.4987E0), (3.2023E0,1.5637E0), (3.1736E0,1.6138E0), (3.1377E0,1.6438E0), (3.0946E0,1.6838E0), (2.9977E0,1.7238E0), (2.9439E0,1.7438E0), (2.9116E0,1.7438E0), (2.8864E0,1.7438E0), (2.8721E0,1.7338E0), (NaN,NaN), (2.8793E0,1.2636E0), (2.8649E0,1.2636E0), (2.7213E0,1.2636E0), (2.5993E0,1.2636E0), (2.4916E0,1.2636E0), (2.3911E0,1.2636E0), (2.2547E0,1.2636E0), (2.1542E0,1.2636E0), (2.0142E0,1.2636E0), (1.8850E0,1.2636E0), (1.7307E0,1.2636E0), (1.6804E0,1.2636E0), (1.6051E0,1.2936E0), (1.4938E0,1.3036E0), (1.3825E0,1.3036E0), (1.2641E0,1.3036E0), (1.1923E0,1.3036E0), (1.1564E0,1.3036E0), (1.1097E0,1.3236E0), (1.0702E0,1.3336E0), (9.3744E-1,1.3336E0), (7.8669E-1,1.3336E0), (6.1441E-1,1.3336E0), (4.3494E-1,1.3336E0), (2.5548E-1,1.3336E0), (2.2317E-1,1.3336E0), (2.0164E-1,1.3336E0), (2.5763E-2,1.3436E0), (-2.9514E-3,1.3436E0), (-1.7309E-2,1.3436E0), (-8.3353E-3,1.3937E0), (1.1406E-2,1.4237E0), (2.2174E-2,1.4637E0), (4.1915E-2,1.4937E0), (5.8067E-2,1.5237E0), (4.7299E-2,1.4837E0), (2.5763E-2,1.4437E0), (2.4326E-3,1.3837E0), (-8.3353E-3,1.3436E0), (1.1406E-2,1.3236E0), (2.2174E-2,1.3036E0), (NaN,NaN), (1.4421E-1,1.5237E0), (1.5677E-1,1.5787E0), (1.6575E-1,1.6338E0), (1.7292E-1,1.6738E0), (1.8010E-1,1.7438E0), (1.8010E-1,1.8039E0), (1.8369E-1,1.8939E0), (1.8728E-1,1.9539E0), (1.8728E-1,2.2241E0), (1.8728E-1,2.3641E0), (1.9087E-1,2.4642E0), (2.1241E-1,2.7843E0), (2.1959E-1,2.8944E0), (2.1959E-1,2.9544E0), (2.2138E-1,3.0294E0), (2.2676E-1,3.0745E0), (2.2676E-1,3.1145E0), (2.3035E-1,3.1545E0), (2.3035E-1,3.1945E0), (2.0882E-1,3.1195E0), (1.9087E-1,3.0644E0), (1.7651E-1,3.0244E0), (1.5857E-1,2.9794E0), (1.4421E-1,2.9344E0), (1.2985E-1,2.8944E0), (1.4780E-1,2.9544E0), (1.6575E-1,3.0444E0), (1.8549E-1,3.1095E0), (2.0343E-1,3.1645E0), (2.1959E-1,3.1645E0), (2.3394E-1,3.1345E0), (2.5009E-1,3.0995E0), (2.6804E-1,3.0244E0), (2.7701E-1,2.9844E0), (2.8060E-1,2.9444E0), (2.8778E-1,2.9044E0), (2.8778E-1,2.9444E0), (2.7701E-1,2.9744E0), (NaN,NaN), (-1.4293E-1,1.5537E0), (-1.3934E-1,1.5838E0), (-1.3576E-1,1.6238E0), (-1.2499E-1,1.6738E0), (-1.2140E-1,1.7288E0), (-1.1781E-1,1.7838E0), (-1.0525E-1,1.7188E0), (-9.9862E-2,1.6738E0), (-9.2684E-2,1.6338E0), (-9.2684E-2,1.5637E0), (-8.9094E-2,1.5137E0), (-8.1916E-2,1.4537E0), (NaN,NaN), (-6.7559E-2,1.5237E0), (-6.0380E-2,1.4737E0), (-5.6791E-2,1.4337E0), (-5.3202E-2,1.4037E0), (-4.9612E-2,1.4437E0), (-4.6023E-2,1.4737E0), (NaN,NaN), (-4.6023E-2,1.7338E0), (-3.5255E-2,1.7538E0), (-1.7309E-2,1.7738E0), (6.0219E-3,1.7738E0), (1.1406E-2,1.7238E0), (9.6112E-3,1.6688E0), (6.3794E-4,1.6088E0), (2.2174E-2,1.5938E0), (4.7299E-2,1.5938E0), (6.1656E-2,1.6138E0), (7.7808E-2,1.6288E0), (7.6013E-2,1.6738E0), (NaN,NaN), (8.6781E-2,1.9039E0), (7.9602E-2,1.8739E0), (7.6013E-2,1.8339E0), (6.8835E-2,1.7939E0), (6.8835E-2,1.7538E0), (7.6910E-2,1.6863E0), (9.7549E-2,1.6638E0), (1.1550E-1,1.6638E0), (1.4242E-1,1.6688E0), (1.5318E-1,1.7288E0), (1.2626E-1,1.7438E0), (9.5754E-2,1.7388E0), (7.9602E-2,1.7238E0), (7.6013E-2,1.6938E0), (NaN,NaN), true]
piirto3: PolyLine[(1.3825E0,1.9310E-1), (1.4005E0,1.9310E-1), (1.4328E0,1.9310E-1), (1.4687E0,1.9310E-1), (1.5727E0,2.4312E-1), (1.6697E0,2.8314E-1), (1.7522E0,3.1316E-1), (1.8384E0,3.1316E-1), (1.9496E0,3.1316E-1), (2.0465E0,3.1316E-1), (2.1004E0,3.1316E-1), (2.2368E0,3.7318E-1), (2.2888E0,3.9820E-1), (2.3175E0,3.8819E-1), (2.3391E0,3.7819E-1), (2.3373E0,4.1320E-1), (2.3157E0,4.7823E-1), (2.2942E0,5.4326E-1), (2.2619E0,6.1330E-1), (2.2368E0,6.6332E-1), (2.2188E0,6.9333E-1), (2.3193E0,4.8324E-1), (2.3462E0,4.1821E-1), (2.3337E0,3.6318E-1), (2.3068E0,3.1316E-1), (2.2834E0,2.8314E-1), (2.2601E0,2.4312E-1), (2.2404E0,2.2311E-1), (2.2332E0,1.9310E-1), (NaN,NaN), true]