%%HP: T(1)A(R)F(.);
� � A B C
  � 'B^2-4*A*C' EVAL
� D
    � CLLCD D 1 DISP
      IF 'D==0'
      THEN
"1 Rac dou" 2 DISP '-
B/(2*A)' EVAL 3 DISP
'-B/(2*A)' EVAL �NUM
4 DISP
      END
      IF 'D>0'
      THEN
"2 Rac simp" 2 DISP '
(-B-�D)/(2*A)' EVAL 3
DISP '(-B-�D)/(2*A)'
EVAL �NUM 4 DISP '(-B
+�D)/(2*A)' EVAL 5
DISP '(-B+�D)/(2*A)'
EVAL �NUM 6 DISP
      END
      IF 'D<0'
      THEN
"2 Rac simp dans C" 2
DISP '(-B-i*�-D)/(2*A
)' EVAL 3 DISP '(-B-i
*�-D)/(2*A)' EVAL
�NUM 4 DISP '(-B+i*�-
D)/(2*A)' EVAL 5 DISP
'(-B+i*�-D)/(2*A)'
EVAL �NUM 6 DISP
      END
    �
  � 10 FREEZE
�