HP 33s Owner's Manual page 246

Program Lines:
(In RPN mode)
  
  
  
 
 
  
 
 
  
Checksum and length: C8B3 180
  
 
  
  
 

  
 
  

  
  
 
 
 
  
  
  
  
 
 
 
 
 
15–26
Mathematics Programs
File name 33s-E-Manual-1008-Publication(1st).doc
Printed Date : 2003/10/8
Description
Complex roots ?
Calculate four roots of remaining fourth–order
polynomial.
If not complex roots, determine largest real root (y
Stores largest real root of cubic.
Starts fourth–order solution routine.
J = a /2.
3
K = y /2.
0
–9
Creates 10 as a lower bound for M
K
2
K .
2 2
M = K –a .
0
2 –9
If M < 10 , use 0 for M
K − 2
a
M = .
0
Stores M.
J.
JK.
a .
1
a /2.
1
JK – a /2.
1
Use 1 if JK – a /2 = 0
1
Page : 386
Size : 13.7 x 21.2 cm
2
.
2
.
)
0