HP 33s - Manual (Page 245)

Mathematics Programs 15–23
Program Lines:
(In RPN mode)
Description
 

 ! % First initial guess.
 -+. Second initial guess.
/  Specifies routine to solve.
# % Solves for a real root.
!  Gets synthetic division coefficients for next lower order
polynomial.


ª Generates DIVIDE BY 0 error if no real root found.
Checksum and length: 15FE 54
   Starts quadratic solution routine.
 º65¸ Exchanges a
0
and a
1
.
 
 ª 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