Program Lines:

Description

   ª  -+.  !  !  !   º  µ  .     º6@      

a1/2.

a1/2.

Saves – a1/2.

Stores real part if complex root. (a1/2)2.

a0.

(a1/2)2 ao. 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 – a1/2 –

d

 

 

 



!- Calculates – a1/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 a0 and a1 for second–order polynomial on stack.

Discards polynomial function value.

Mathematics Programs 15–23

File name 32sii-Manual-E-0424

 

Printed Date : 2003/4/24

Size : 17.7 x 25.2 cm