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 (Ax2+Bx+C=0).
Complex roots not handled (for B2-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 R↑ Q05 × Q06 +/- Q07 x⇔y Q08 ENTER Q09 R↓ Q10 x2 Q11 + Q12 √x Q13 R↑ Q14 + Q15 2 Q16 ÷ Q17 x⇔y Q18 ENTER Q19 R↓ Q20 ÷ Q21 +/- Q22 ENTER Q23 R↑ Q24 R↑ 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