15–26 Mathematics Programs
File name 33s-English-Manual-040130-Publication(Edition 2).doc Page : 388
Printed Date : 2004/1/30 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