ed2002ea-ca39-4e32-b9c5-90451d64050c 60 4 8 decimal

&[DATE] &[TIME] - &[FILENAME]

x f_poly n x length : n 2 > j 1 n 1 + range k 1 n range a j k el j 1 ≡ x k el abs x k el if eval : for for ii 1 : k 2 n range a 1 k el a 1 ii el > ii k : 0 if for ii 1 ≠ k 1 a rows range t a k 1 el : a k 1 el a k ii el : a k ii el t : 31 line for 0 if s a n 1 el : k 2 n range a 2 k el a 2 k el s - abs eval : for j 2 n 1 - range k j n range s 1 : ii 1 j range s s a ii k el * eval : for p k j - 1 + el s : 31 line for ii 1 : k 2 n j - 1 + range p k el p ii el > ii k : 0 if for ii ii j + 1 - : ii j ≠ k 1 a rows range t a k j el : a k j el a k ii el : a k ii el t : 31 line for 0 if s a n j el : k j 1 + n range a j 1 + k el a j 1 + k el s - abs eval : for 71 line for x a n 1 + row transpose : 81 line 0 if c n 1 + el 0 : c 1 el 1 : 12 mat j 1 n range c j 1 + el x j el c j el * - eval : k j : k 2 ≥ k k 1 - : c k el c k el x j el c k 1 - el * - eval : for 21 line for c 51 line :

r 110 range 10 / 2 * π * 1 - sqrt * mwexp :

r f_poly mwabs GetType matrix

11 - sqrt + 11 - sqrt + 1 stack GetType matrix

11 - sqrt + 11 - sqrt + 1 stack sum 32 i * +

r f_poly mwabs 1 2.1148 1014 -^* 3.424 1014 -^* 3.3012 1014 -^* 2.0591 1014 -^* 1.3347 1014 -^* 2.4083 1014 -^* 2.4903 1014 -^* 2.1471 1014 -^* 8.7875 1015 -^* 1111 mat

r f_poly mwabs sum #