Mathematics Programs
15–23
File name 33s-E-Manual-1008-Publication(1st).doc Page : 386
Printed Date : 2003/10/8 Size : 13.7 x 21.2 cm
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.
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.
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