ª

Program Lines:

Description

(In RPN mode)

 

 

 



! %

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) < 0

Sets 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

Page 245
Image 245
HP 33s Scientific manual Polynomial