Program Lines:

Description

(In RPN mode)

 

Checksum and length: C7A6

51

      º      º  .  º      º  .  !      -+.  !      º     º   .  !       º  ª    -  % 

   %    %  ! 

Starts fourth–order solution routine.

4a2.

a3. a32 .

4a2 a32.

ao(4a2 a32).

a1. a12.

b0 =a0(4a0 a32) – a12.

Stores b0.

a2.

b2= a2.

Stores b2.

a3.

a3 a1.

4a0.

b1 = a3a1 – 4a0.

Stores b1.

To enter lines D0021 and D0022; 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.

Mathematics Programs 15–25