root of a quadratic equation

[Gerson W. Barbosa]

(08-22-2015 12:03 PM)Thomas Klemm Wrote:  Why not using PROOT?

Code:

\<< { 3 } \->ARRY PROOT OBJ\-> DROP \>>

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.