Resolvente para calculadora HP 35s

gistfile1.txt

** Discriminant **

D001 LBL D
D002 RCL B
D003 x²
D004 4
D005 RCL A
D006 RCL C
D007 *
D008 *
D009 -
D010 RTN


** Quadratic **

Q001 LBL Q
Q002 SF 10
Q003 QUADRATIC
Q004 PSE
Q005 0
Q006 STO A
Q007 0
Q008 STO B
Q009 0
Q010 STO C
Q011 INPUT A
Q012 INPUT B
Q013 INPUT C
Q014 XEQ D0001
Q015 STO D
Q016 x<0?
Q017 GTO Q056
Q018 x>0?
Q019 GTO Q032
Q020 RCL B
Q021 +/-
Q022 2
Q023 RCL A
Q024 *
Q025 /
Q026 CF 10
Q027 [REGX]
Q028 SF 10
Q029 STO X
Q030 VIEW X
Q031 GTO Q057
Q032 RCL B
Q033 +/-
Q034 RCL D
Q035 SQRT
Q036 +
Q037 2
Q038 RCL A
Q039 *
Q040 /
Q041 RCL B
Q042 +/-
Q043 RCL D
Q044 SQRT
Q045 -
Q046 2
Q047 RCL A
Q048 *
Q049 /
Q050 CF 10
Q051 [REGX,REGY]
Q052 SF 10
Q053 STO X
Q054 VIEW X
Q055 GTO Q057
Q056 NO REAL ROOTS
Q057 CF 10
Q058 RTN