root of a quadratic equation

[Hlib]

(08-22-2015 07:28 PM)Gerson W. Barbosa Wrote:  Well, for this example PROOT will give ugly approximations:

1
'-√2-√3'
'√6'

« { 3 } →ARRY PROOT OBJ→ DROP
»

EVAL

-->

1.41421356237
1.73205080757

For exact results, in exact mode I would prefer something like

« ROT NEG SWAP OVER
/ UNROT / 2 / SWAP
OVER SQ + √ DUP2 -
FACTOR UNROT +
FACTOR
»

-->

'√2'
'√3'

Cheers,

Gerson.

The simple way to obtain result:
'x²+(-√2-√3)*x+√6=0'
SOLVEVX
SIMPLIFY
=>>
{x=√2 x=√3}