Fórmula Resolvente (TI n-Spire)

Importante: ATENÇÃO! Algumas notações aqui presentes são diferentes das do IDE incorporado da calculadora TI n-Spire. Exemplos disso são as potências e as multiplicações.

Define LibPub fr(a,b,c)=
Prgm
Local d
b^2-4*a*c→d

If d<0 Then
  setMode(4,2)
EndIf

Disp "disc=",d

Local x1
(-b+√(d))/(2*a)→x1
Local x2
(-b-√(d))/(2*a)→x2
Disp "x1=",x1," x2=",x2

Local vx
-b/(2*a)→vx
Local vy
a*vx^2+b*vx+c→vy
Disp "vx=",vx," vy=",vy
EndPrgm