The Museum of HP Calculators


Quadratic Equation program for the 15C (II)

This program is Copyright © 2002 by Raúl Lión Arrese and is used here by permission.

This program is supplied without representation or warranty of any kind. Raúl Lión Arrese 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.

Overview

The program IS ONLY 25 LINES LONG (26 bytes, I think)

Usage: ax^2+bx+c=0; enter a, b, c on the stack. The roots are returned on the stack in levels x and y. If program stops with error 0, then set flag 8 for complex and try again: first complex solution will be in register x ; the second one is its conjugate

Program

LBL 0
4
*
ROLLUP
*
CHS
X<>Y
CHS
STO 0
x^2
+
SQRT
STO 1
RCL 0
+
X<>Y
2
*
/
RCL 0
RCL - 1
LST X
/
X<>Y
RTN

Go back to the software library
Go back to the main exhibit hall