The Museum of HP Calculators


An 'Elegant' Quadratic Equation Program for HP-32SII

This program is Copyright © 2003 by Tizedes Csaba and is used here by permission.

This program is supplied without representation or warranty of any kind. Tizedes Csaba 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

Usage:

[XEQ] [I], enter A, [R/S], enter B, [R/S], enter C, [R/S].

Results:

If the equation has two roots (or one double): Program stops and the Root1 is displayed, and the Flag1 anunciator is set. Press [R/S], then displayed Root2, and Flag2 anunciator is set. If the equation hasn't got root(s), Flag0 anunciator is set, and the display is contain the approximate extremum of function, and the y-level of stack is contain previous approximation of extremum. The levels z and t of stack contains of the value of function in the estimated values of extremum.

Listing:

listing:
I01 LBL I
I02 CF 0
I03 CF 1
I04 CF 2
I05 INPUT A
I06 INPUT B
I07 INPUT C
I08 FN=Q
I09 SOLVE X
I10 GTO X
I11 SF 0
I12 RTN

CK=3CAB 18.0 byte

X01 LBL X
X02 SF 1
X03 STOP
X04 RCL B
X05 RCL div A
X06 +
X07 +/-
X08 CF 1
X09 SF 2
X10 RTN

CK=4D69 15.0 byte

Q01 LBL Q
Q02 RCL X
Q03 RCL mul A
Q04 RCL add B
Q05 RCL mul X
Q06 RCL add C
Q07 RTN

CK=8AAE 10.5 byte
'add', 'sub', 'mul' and 'div' means 'add', 'substact', 'multiple' and 'divide' in this order.

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