ª
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

    º65¸    ª  -+.  !  !  !   º  µ  .     º6@         º  !    @   !  !.     !- 

Starts quadratic solution routine. Exchanges a0 and a1.a1/2.a1/2.Saves – a1/2.Stores real part if complex root. (a1/2)2.a0.(a1/2)2 ao. Initializes flag 0. Discriminant (d) < 0Sets flag 0 if d < 0 (complex roots).

d

d

Stores imaginary part if complex root. Complex roots?Returns if complex roots.
Calculates – a1/2

d

Calculates – a1/2

+

d

Mathematics Programs 15–23