Program Lines:

Description

 -+.

b2= a2.

 ! 

Stores b2.

   a3.



º a3 a1.





 



º 4a0.



.

b1 = a3a1 – 4a0.

 ! 

Stores b1.

 

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 a0 and a1 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 (y0)  º6¸@  º65¸     º6¸@  º65¸

 !  Stores largest real root of cubic. Checksum and length: C333 060.0

   Starts fourth–order solution routine.

 

 !ª J = a3/2

Mathematics Programs 15–25

File name 32sii-Manual-E-0424

 

Printed Date : 2003/4/24

Size : 17.7 x 25.2 cm