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.