Mathematics Programs 15–23
File name 32sii-Manual-E-0424
Printed Date : 2003/4/24 Size : 17.7 x 25.2 cm
Program Lines: Description
ª
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.
º6@
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
!
Checksum and length= E454 034.5
Starts second–order solution routine.
Gets L.
Gets M.
!
!
Calculates and displays two roots.
Checksum and length: 52B9 006.0
Starts third–order solution routine.
Indicates cubic polynomial to be solved.
%
Solves for one real root and puts a
0
and a
1
for
second–order polynomial on stack.
¶
Discards polynomial function value.