Polynomial synthetic division: Difference between revisions
Content added Content deleted
(I wrote it in C++ because I just learned how to do this in Algebra II.) |
No edit summary |
||
| Line 470: | Line 470: | ||
[1, 0, 0, 0, -2] / [1, 1, 1, 1] = [1, -1], remainder [0, 0, -1] |
[1, 0, 0, 0, -2] / [1, 1, 1, 1] = [1, -1], remainder [0, 0, -1] |
||
</pre> |
</pre> |
||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
|||
<lang Mathematica>MakePolynomial[l_List, x_] := FromCoefficientRules[Thread[List /@ Range[Length[l] - 1, 0, -1] -> l], {x}] |
|||
num = MakePolynomial[{1, -12, 0, -42}, x]; |
|||
den = MakePolynomial[{1, -3}, x]; |
|||
PolynomialQuotient[num, den, x] |
|||
PolynomialRemainder[num, den, x]</lang> |
|||
{{out}} |
|||
<pre>-27 - 9 x + x^2 |
|||
-123</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |
||