Define the function.
~
IHoP
IT]
P+R
IT]
x .OJ G
P+R
IT]
y I ENTER I
2:
(4.85~53.46)
1: «
~
X
~
'R~P(~~R(x)+
P~R(~»)I
»
DDlIDl1IIIJIIIICIBIllD_
The closing parentheses
and
delimiters are
added
for you.
This program means: take two arguments from the stack (in RPN syn-
tax) or from the expression (in algebraic syntax)
and
call
them
x
and
y;
then
calculate the polar coordinates of
the
sum
of the rectangular co-
ordinates of
x
and
y.
Store the program in a variable PSUM.
~
PSUM
I STO I
3:
(13.1313,2.1313)
2:
(1.57,-1.32)
1:
(4.85,53.46)
DDlIDl1IIIJIIIICIBIllD_
Now
use PSUM to repeat the previous calculation, once in RPN syn-
tax
and
once in algebraic syntax.
Enter the first distance
and
bearing.
IT]
2 Q 36 I ENTER I
'-::3-:
------:(:-:-1-.
=5=7-,
--1.,.....--:3"'"'2"..,...,)
2:
(4.85,53.46)
1: (2.1313,36.1313)
DDlIDl1IIIJIIIICIBIllD_
Enter
the
second distance
and
bearing.
IT]
3 Q 65
2:
(4.85,53.46)
1: (2.1313,36.1313)
Execute PSUM.
I USER I PSUM
(3,650
DDlIDl1IIIJIIIICIBIllD_
3:
(1.57,-1.32)
2:
(4.85,53.46)
1:
(4.85,53.46)
1ImI
......
ImIlI_
6:
Complex-Number
Functions
87
To Next Page
Loading...
