HP 33s - Manual (Page 249)

Mathematics Programs 15–27
Program Lines:
(In RPN mode)
Description

 !  Stores 1 or JK – a
1
/2.

  

 ! ª  Calculates sign of C.

   J .


º   J
2

 .  J
2
-– a
2
.

 - 


-  J 2 -– a
2
+y
0
.

 º C =
0 2
2 y a J + −
.

 ! º  Stores C with proper sign.

   J .

 -  J + L.

   K .

 -  K + M.


% ! Calculate and display two roots of the fourth–order
polynomial.

   J .

 .  J – L.


  K .

 .  K – M.
Checksum and length: 539D 171
!
  ! Starts routine to calculate and display two roots.
!
 %  Uses quadratic routine to calculate two roots.
Checksum and length: 410A 6

   Starts routine to display two real roots or two complex
roots.

   Gets the first real root.

 ! % Stores the first real root.

 #$ % Displays real root or real part of complex root.

   Gets the second real root or imaginary part of complex
root.

 @
 Were there any complex roots?