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


 
Mathematics Programs
15–25
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
Checksum and length: C7A6 51



Starts fourth–order solution routine.





4a
2
.



a
3
.

a
3
2
.


4a
2
a
3
2
.



a
o
(4a
2
a
3
2
).



a
1
.

a
1
2
.


b
0
=a
0
(4a
0
a
3
2
) – a
1
2
.



Stores b
0
.



a
2
.


b
2
= a
2
.



Stores b
2
.



a
3
.



a
3
a
1
.





4a
0
.


b
1
= a
3
a
1
– 4a
0
.



Stores b
1
.


To enter lines D0021 and D0022;


press 4
º
Î
3.








Creates 7.004 as a pointer to the cubic coefficients.



Solves for real root and puts a
0
and a
1
for
second–order polynomial on stack.

Discards polynomial function value.



Solves for remaining roots of cubic and stores roots.



Gets real root of cubic.



Stores real root.