HP 33S, Руководство пользователя

Страница: 247 / 388

Mathematics Programs
15–25
File name 33s-English-Manual-040130-Publication(Edition 2).doc Page : 388
Printed Date : 2004/1/30 Size : 13.7 x 21.2 cm
Program Lines:
(In RPN mode)
Description
Checksum and length: C7A6 51
   Starts fourth–order solution routine.
 
  
4 a
2
.
  
a
3
.
 

 a
3
2
.
 
4 a
2
– a
3
2
.
  
a
o
(4 a
2
– a
3
2
).
  
a
1
.
 


a
1
2
.
 
b
0
=a
0
(4a
0
– a
3
2
) – a
1
2
.
  
Stores b
0
.
   a
2
.
 
b
2
= – a
2
.
  
Stores b
2
.
   a
3
.
   a
3
a
1
.
 
  
4 a
0
.
  b
1
= a
3
a
1
– 4 a
0
.
   Stores b
1
.
 
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 a
0
and a
1
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.