HP 32SII - Manual (Page 249)

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.