%%HP: T(1)A(R)F(.); «  A B C « B SQ 4 A C * * -  D « D › TAG A SIGN TAG IFERR '(-B-ƒD)/ (2*A)' EVAL EVAL IF -103 FC? THEN DUP NUM 2 TRNC TAG END x1 TAG ' (-B+ƒD)/(2*A)' EVAL EVAL IF -103 FC? THEN DUP NUM 2 TRNC TAG END x2 TAG THEN DROP ø TAG "Pas de rac ds R" 2 ARRY ELSE 3 ARRY END » » »Ê5x/ï