Post Reply 
(48g) (49g) (50g) Rectangular to Polar Coordinate Conversion [RPL]
12-12-2013, 04:43 PM (This post was last modified: 06-15-2017 01:30 PM by Gene.)
Post: #1
(48g) (49g) (50g) Rectangular to Polar Coordinate Conversion [RPL]
Although these two little RPL programs will work on the HP 28C/S, they are intended for later RPL calculators such as the HP 48S and HP 50g which lack this capability. Both programs accept the input parameters in the form of a complex number and return the results as individual values into the stack.

Rectangular to Polar Coordinates:

<< DUP ARG SWAP ABS >>

Example: (3,4) --> 5 in stack level 1 and 53.13 in stack level 2 (degrees)

Polar to Rectangular Coordinates:

<< DUP DUP RE SWAP IM SIN * SWAP DUP RE SWAP IM COS * >>

Example: (5,53.13) --> 3 in stack level 1 and 4 in stack level 2 (degrees)
Find all posts by this user
Quote this message in a reply
12-13-2013, 08:58 AM (This post was last modified: 12-13-2013 09:11 AM by Joe Horn.)
Post: #2
RE: Rectangular to Polar Coordinate Conversion [RPL]
Here's an alternate approach for Polar to Rectangular for HP 48/49/50, but it takes the inputs on two levels, not as a single complex number:

« -16 SF V2 -16 CF V »

<0|ɸ|0>
-Joe-
Visit this user's website Find all posts by this user
Quote this message in a reply
12-15-2013, 03:55 AM
Post: #3
RE: Rectangular to Polar Coordinate Conversion [RPL]
That's actually very elegant and more in line with the methodology of calculators with direct conversion keys such as the HP 33s. The conversion in the other direction for rectangular to polar representation is:

<< -16 CF ->V2 -16 SF V-> >>
Find all posts by this user
Quote this message in a reply
12-17-2013, 06:30 AM
Post: #4
RE: Rectangular to Polar Coordinate Conversion [RPL]
The only problem is that it does not preserve the user's original flag settings. A quick RCLF UNROT at the beginning and SWAP STOF at the end should fix it.

Graph 3D | QPI | SolveSys
Find all posts by this user
Quote this message in a reply
12-17-2013, 03:52 PM
Post: #5
RE: Rectangular to Polar Coordinate Conversion [RPL]
(12-17-2013 06:30 AM)Han Wrote:  The only problem is that it does not preserve the user's original flag settings. A quick RCLF UNROT at the beginning and SWAP STOF at the end should fix it.

Well, you are correct about the UNROT at the beginning, but you need a ROT rather than a SWAP at the end to get the correct stack order.
Find all posts by this user
Quote this message in a reply
06-03-2014, 10:49 AM (This post was last modified: 06-03-2014 11:20 AM by CosmicTruth.)
Post: #6
RE: Rectangular to Polar Coordinate Conversion [RPL]
nice

Code:

'R2P'

%%HP: T(3)A(D)F(.);
\<< RCLF UNROT -16. CF \->V2 -16. SF V\-> ROT STOF
\>>


'P2R'

%%HP: T(3)A(D)F(.);
\<< RCLF UNROT -16. SF \->V2 -16. CF V\-> ROT STOF
\>>
Want to take on matrix to area by Gauss's shoelace next? I'd dig it...
NM! see this thread for 50G shoelaces http://www.hpmuseum.org/forum/thread-1522.html

Thanks
~~~~8< Art >8~~~~

PS: Please post more 50G stuff :)
Find all posts by this user
Quote this message in a reply
06-03-2014, 11:19 AM
Post: #7
RE: Rectangular to Polar Coordinate Conversion [RPL]
Alternatively, on the 50g PUSH ... POP

It ain't OVER 'till it's 2 PICK
Find all posts by this user
Quote this message in a reply
06-03-2014, 11:16 PM
Post: #8
RE: Rectangular to Polar Coordinate Conversion [RPL]
(06-03-2014 11:19 AM)HP67 Wrote:  Alternatively, on the 50g PUSH ... POP

Code:


%%HP: T(3)A(D)F(.);
\<< PUSH -16. CF \->V2 -16. SF V\-> POP
\>>


'P2R'

%%HP: T(3)A(D)F(.);
\<< PUSH -16. SF \->V2 -16. CF V\-> POP
\>>

I like push-pops Smile

Thanks
~~~~8< Art >8~~~~

PS: Please post more 50G stuff :)
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)