HP (Hewlett-Packard) HP 33s Calculator User Manual


 
Mathematics Programs
15–23
File name 33s-English-Manual-040130-Publication(Edition 2).doc Page : 388
Printed Date : 2004/1/30 Size : 13.7 x 21.2 cm
Program Lines:
(In RPN mode)
Description





First initial guess.


Second initial guess.



Specifies routine to solve.



Solves for a real root.



Gets synthetic division coefficients for next lower order
polynomial.




Generates DIVIDE BY 0 error if no real root found.
Checksum and length: 15FE 54



Starts quadratic solution routine.


Exchanges a
0
and a
1
.




a
1
/2.


a
1
/2.




Saves – a
1
/2.



Stores real part if complex root.

(a
1
/2)
2
.

a
0
.


(a
1
/2)
2
a
o
.



Initializes flag 0.


Discriminant (d)
<
0



Sets flag 0 if d
<
0 (complex roots).


d
 
d



Stores imaginary part if complex root.



Complex roots
?


Returns if complex roots.



Calculates – a
1
/2 –
d




Calculates – a
1
/2 +
d