A SERVICE OF

logo

Open as PDF
next previous
Mathematics Programs 15–23
Program Lines:
(In RPN mode)
Description
 
 ! %
First initial guess.
 -+.
Second initial guess.
 / 
Specifies routine to solve.
 # %
Solves for a real root.
 ! 
Gets synthetic division coefficients for next lower order
polynomial.
 
 ª
Generates DIVIDE BY 0 error if no real root found.
Checksum and length: 15FE 54
  
Starts quadratic solution routine.
 º65¸
Exchanges a
0
and a
1
.
 
 ª
a
1
/2.
 -+.
–a
1
/2.
 !
 !
Saves – a
1
/2.
 ! 
Stores real part if complex root.
 º
(a
1
/2)
2
.

µ
a
0
.
 .
(a
1
/2)
2
– a
o
.
  
Initializes flag 0.
 º6@
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 – a
1
/2 –
d

 !- 
Calculates – a
1
/2 +
d