T223

f(x) = x^(2)
f' = Derivative(f)
A = Point(f)
g = Tangent(A, f)
k = Slope(g)
piirto1: PolyLine[(1.1687E0,-6.8000E-1), (1.1928E0,-6.2000E-1), (1.2108E0,-5.1000E-1), (1.2530E0,-4.0000E-1), (1.2530E0,-2.2000E-1), (1.2470E0,-5.0000E-2), (1.1988E0,7.0000E-2), (1.1265E0,1.5000E-1), (1.0301E0,1.7000E-1), (9.3373E-1,1.7000E-1), (8.6145E-1,1.1000E-1), (7.9518E-1,-3.0000E-2), (7.5904E-1,-1.5000E-1), (7.4699E-1,-3.0000E-1), (7.4699E-1,-4.4000E-1), (7.8313E-1,-5.5000E-1), (8.4940E-1,-6.7000E-1), (9.0361E-1,-7.4000E-1), (9.7590E-1,-7.4000E-1), (1.0482E0,-7.4000E-1), (1.1145E0,-7.0000E-1), (1.1627E0,-5.9000E-1), (1.2048E0,-5.2000E-1), (�,�), true]
piirto2: PolyLine[(1.0361E0,1.0000E-1), (1.0361E0,1.8000E-1), (1.0361E0,3.8000E-1), (1.0361E0,5.2000E-1), (1.0482E0,7.0000E-1), (1.0482E0,8.4000E-1), (1.0361E0,9.2000E-1), (1.0241E0,1.0200E0), (1.0181E0,1.1300E0), (1.0120E0,1.2800E0), (1.0120E0,1.4000E0), (1.0000E0,1.8200E0), (1.0000E0,1.9800E0), (�,�), true]
piirto3: PolyLine[(9.1566E-1,2.0200E0), (8.6747E-1,2.0200E0), (8.1928E-1,2.0200E0), (7.7108E-1,2.0000E0), (6.5060E-1,2.0000E0), (5.4819E-1,1.9900E0), (4.6988E-1,1.9600E0), (2.0482E-1,1.9600E0), (1.2048E-1,1.9600E0), (1.2048E-1,2.0800E0), (1.0843E-1,2.2400E0), (6.0241E-2,2.3400E0), (0.0000E0,2.3800E0), (-6.0241E-2,2.4000E0), (-2.0482E-1,2.4000E0), (-3.0723E-1,2.3900E0), (-3.5542E-1,2.2900E0), (-3.7349E-1,2.2000E0), (-3.7349E-1,2.1000E0), (-3.7349E-1,2.0200E0), (-3.5542E-1,1.8900E0), (-3.0723E-1,1.7700E0), (-2.6506E-1,1.6800E0), (-1.8675E-1,1.6000E0), (-1.0241E-1,1.5700E0), (-3.6145E-2,1.5600E0), (2.4096E-2,1.6100E0), (6.0241E-2,1.7300E0), (8.4337E-2,1.8200E0), (8.4337E-2,1.9000E0), (�,�), true]