HP 33s - Manual (Page 244)

15–22 Mathematics Programs
Program Listing:
Program Lines:
(In RPN mode)
Description
   Defines the beginning of the polynomial root finder
routine.
  "!  Prompts for and stores the order of the polynomial.
 ! L Uses order as loop counter.
Checksum and length: 5CC4 9

   Starts prompting routine.

  "!1 1L2 2 Prompts for a coefficient.

   L Counts down the input loop.

 !  Repeats until done.

  

! L Uses order to select root finding routine.

! 1 1L2 2 Starts root finding routine.
Checksum and length: 588B 21

   Evaluates polynomials using Horner's method, and
synthetically reduces the order of the polynomial using
the root.

  

 ! L Uses pointer to polynomial as index.

  Starting value for Horner's method.
Checksum and length: 0072 24

   Starts the Horner's method loop.

 !  Saves synthetic division coefficient.

 º % Multiplies current sum by next power of x.

 -1 1L2 2 Adds new coefficient.

   L Counts down the loop.

!  Repeats until done.

!
Checksum and length: 2582 21
   Starts solver setup routine.
 !  Stores location of coefficients to use.