15–26 Mathematics Programs
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
Complex roots
?
Calculate four roots of remaining fourth–order
polynomial.
If not complex roots, determine largest real root (y
0
)
Stores largest real root of cubic.
Checksum and length: C8B3 180
Starts fourth–order solution routine.
J = a
3
/2.
K = y
0
/2.
Creates 10
–9
as a lower bound for M
2
.
K
K
2
.
M
2
= K
2
–a
0
.
If M
2
< 10
–9
, use 0 for M
2
.
M =
0
2
aK −
.
Stores M.
J.
JK.
a
1
.
a
1
/2.
JK – a
1
/2.
Use 1 if JK – a
1
/2 = 0