The Museum of HP Calculators
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.
[XEQ] [I], enter A, [R/S], enter B, [R/S], enter C, [R/S].
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: 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 ÷ A X06 + X07 +/- X08 CF 1 X09 SF 2 X10 RTN CK=4D69 15.0 byte Q01 LBL Q Q02 RCL X Q03 RCL × A Q04 RCL + B Q05 RCL × X Q06 RCL + C Q07 RTN CK=8AAE 10.5 byte