HP 32SII

Mathematics Programs 15–23
File name 32sii-Manual-E-0424
Printed Date : 2003/4/24 Size : 17.7 x 25.2 cm
Program Lines: Description
 
 ª
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.
 º6@
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
 !
Checksum and length= E454 034.5
  
Starts second–order solution routine.
  
Gets L.
  
Gets M.
 ! !
Calculates and displays two roots.
Checksum and length: 52B9 006.0
  
Starts third–order solution routine.
 
Indicates cubic polynomial to be solved.
 % 
Solves for one real root and puts a
0
and a
1
for
second–order polynomial on stack.
 
¶

Discards polynomial function value.