HP 33S - Page 248

15–26 Mathematics Programs
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
  
Complex roots
?
  
Calculate four roots of remaining fourth–order
polynomial.
  
If not complex roots, determine largest real root (y
0
)
 
 
  
 
 
  
Stores largest real root of cubic.
Checksum and length: C8B3 180
  
Starts fourth–order solution routine.
 
  
J = a
3
/2.
  
K = y
0
/2.
 
 


 
Creates 10
–9
as a lower bound for M
2
.
  
K




K
2
.
  
M
2
= K
2
–a
0
.
 
 
If M
2
< 10
–9
, use 0 for M
2
.
 
M =
0
2
aK −
.
  
Stores M.
  
J
.
  
JK.
  
a
1
.
 
 
a
1
/2.
 
JK
– a
1
/2.
 
 
Use 1 if JK – a
1
/2 = 0