%%HP: T(1)A(D)F(.);

"QUADRATISCHE-ERGNZUNG

 ( A2*X^2+A1*X+A0=0 )"
 TEX
   TEX ":A2:"
INPUT OBJ TEX
":A1:" INPUT OBJ
TEX ":A0:" INPUT
OBJ  A2 A1 A0
     '-A1/A2/2+(
SQ(A1/2/A2)-A0/A2)'
EVAL X1 TAG '-A1/2
/A2-(SQ(A1/A2/2)-
A0/A2)' EVAL X2
TAG
    
  

