Program Lines:

Description

(In RPN mode)

 

  @ 

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: C8B3 180

      !ª   !ª     º  +º     º  .   º6¸@  º  º

 !      º        ª  .  º/@  

Starts fourth–order solution routine.

J = a3/2.

K = y0/2.

Creates 10–9as a lower bound for M2.

K

K2.

M2 = K2 a0.

If M2 < 10 –9, use 0 for M2.

M = K 2 a0 .

Stores M.

J.

JK. a1.

a1/2.

JK a1/2.

Use 1 if JK – a1/2 = 0

15–26Mathematics Programs