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