Mathematics Programs 15–25
File name 32sii-Manual-E-0424
Printed Date : 2003/4/24 Size : 17.7 x 25.2 cm
Program Lines: Description
-+.
b
2
= –a
2
.
!
Stores b
2
.
a
3
.
º
a
3
a
1
.
º
4a
0
.
.
b
1
= a
3
a
1
– 4a
0
.
!
Stores b
1
.
To enter lines D21 and D22
Press 4
{
3.
%
ª
-
Creates 7.004 as a pointer to the cubic coefficients.
%
Solves for real root and puts a
0
and a
1
for
second–order polynomial on stack.
¶
Discards polynomial function value.
%
Solves for remaining roots of cubic and stores roots.
%
Gets real root of cubic.
!
Stores real root.
@
Complex roots
?
!
Calculate four roots of remaining fourth–order
polynomial.
If not complex roots, determine largest real root (y
0
)
º6¸@
º65¸
º6¸@
º65¸
!
Stores largest real root of cubic.
Checksum and length: C333 060.0
Starts fourth–order solution routine.
!ª
J = a
3
/2