HP 33S - Page 247

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.