53f8ad6b-3bb0-4320-b47e-b77d2014ce8c 3 12 6 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 a k ii el t : a k 1 el a k ii el : t a k 1 el : 13 mat 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 a k ii el t : a k j el a k ii el : t a k j el : 13 mat 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 :

123 stack f_poly #