\( \DeclareMathOperator{\abs}{abs} \newcommand{\ensuremath}[1]{\mbox{$#1$}} \)
(%i1) | load ( odes ) $ |
(%i2) | eq : − x ^ 6 + x ^ 5 + 2 · x ^ 4 − 2 · x ^ 3 + x ^ 2 + 2 · x − 1 = 0 ; |
(%i3) | P ( x ) : = − x ^ 6 + x ^ 5 + 2 · x ^ 4 − 2 · x ^ 3 + x ^ 2 + 2 · x − 1 ; |
(%i4) | solvet ( eq , x ) ; |
(%i5) | wxplot2d ( [ P ( x ) ] , [ x , − 1 . 5 , 2 ] ) , wxplot_size = [ 640 , 480 ] $ |
Created with wxMaxima.
The source of this Maxima session can be downloaded here.