%%HP: T(3)A(D)F(.);
\<<
"Entre valores para os 
coeficientes a, b e c"
"" INPUT OBJ\-> 3
PICK 0 ==
  IF
  THEN 1400 .2 BEEP
CLLCD
"Quadr\225tica Error:
Bad Argument Type"
1 DISP 3 FREEZE
  ELSE \-> a b c
    \<< a 0 >
      IF
      THEN CLLCD
"A par\225bola tem
concavidade voltada
para cima."
1 DISP 3 WAIT
      ELSE CLLCD
"A par\225bola tem
concavidade voltada
para baixo."
1 DISP 3 WAIT
      END 'y=a*x^2+
b*x+c' EVAL DUP
STEQ '\GD=b^2-4*a*c'
EVAL DUP OBJ\-> DROP2
SWAP DROP \-> \GD
      \<<
        CASE \GD 0 >
          THEN
CLLCD
"Existem duas ra\237zes
reais diferentes."
1 DISP 3 WAIT
          END \GD 0
==
          THEN
CLLCD
"Exitem duas ra\237zes
reais iguais."
1 DISP 3 WAIT
          END CLLCD
"Existem duas ra\237zes
complexas."
1 DISP 3 WAIT
        END 'x1=(-b
+\v/\GD)/(2*a)' EVAL '
x2=(-b-\v/\GD)/(2*a)'
EVAL \GD
      \>> b NEG a 2 *
/ 2 ROLL NEG a 4 *
/ DUP2 R\->C \-> P 'V=P
' 3 PICK 6.5 - 4
ROLL 6.5 + XRNG 2
PICK 3.1 - 3 ROLL
3.2 + YRNG x INDEP
y DEPND ERASE PICT
"Dados de Sa\237da" 2
\->GROB { # 24d # 0d
} SWAP REPL PICT
"Fun\231\227o: " 7 PICK +
1 \->GROB { # 0d # 9d
} SWAP REPL PICT
"Ra\237zes:" 1 \->GROB {
# 0d # 18d } SWAP
REPL PICT 4 PICK 1
\->GROB { # 0d # 24d
} SWAP REPL PICT 3
PICK 1 \->GROB { # 0d
# 30d } SWAP REPL
PICT "Delta: " 6
PICK + 1 \->GROB {
# 0d # 38d } SWAP
REPL PICT
"V\233rtice:" 1 \->GROB
{ # 0d # 46d } SWAP
REPL PICT 2 PICK 1
\->GROB { # 0d # 52d
} SWAP REPL PICT
"Press Cancel to view the graphic"
1 \->GROB { # 0d
# 59d } SWAP REPL {
} PVIEW FUNCTION
ERASE DRAX DRAW
PICTURE
    \>>
  END
\>>
