This program is by Gerson W. Barbosa and is used here by permission.
This program is supplied without representation or warranty of any kind. Gerson W. Barbosa and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.
Finds the roots of quadratic equations (Ax^2+Bx+C=0).
Complex roots not handled (for B^2-4AC>=0 case only).
Usage:
A ENTER B ENTER C XEQ Q => first root
x<>y => second root
This program is only 43.5 bytes long and will not need any register but the stack.
Q01 LBL Q Q02 4 Q03 * Q04 ROLLUP Q05 * Q06 +/- Q07 x<>y Q08 ENTER Q09 ROLLDN Q10 x^2 Q11 + Q12 SQRT Q13 ROLLUP Q14 + Q15 2 Q16 / Q17 x<>y Q18 ENTER Q19 ROLLDN Q20 / Q21 +/- Q22 ENTER Q23 ROLLUP Q24 ROLLUP Q25 x<>y Q26 / Q27 + Q28 +/- Q29 RTN CK=792B 43.5 bytes
Go back to the software library
Go
back to the main exhibit hall