I have been looking at the complex mode on my Hp 15C and thought I would develop a program to calculateZ = (a + ib)^(x + iy).
I transformed the equation into the form
Z = r^x * exp(y * theta + i(x * theta + y * ln(r)))
where
r = sqrt(a^2 + b^2)
theta = arctan(b / a)I did not have much success using the complex operations so I broke the equation down to its real and imaginary parts
givingZreal = r^x * exp(y * theta) * cos(alpha)
Zimag = r^x * exp(y * theta) * sin(alpha)where
alpha = x * theta + y * ln(r)
My implementation on the HP 15c is ver y rudimentary and does not use the complex mode at all.
g P/R
f clr Prgrm
f clr Reg
g RAD
f Lbl A
R/S
STO 0  a
R/S
STO 1  b
R/S
STO 2  x
R/S
STO 3  y
RCL 0
gX2
RCL 1
gX2
+
sqrt
STO 4  r
RCL 1
RCL 0
/
arcTAN
STO 5  theta
RCL 3
x
CHS
exp^X
RCL 4
RCL 2
y^X
x
STO 6  r^x exp(y*theta)
RCL 2
RCL 5
x
RCL 4
g LN
RCL 3
x
+
STO 7
COS
RCL 6
x
R/S  Zreal
RCL 7
SIN
RCL 6
x
R/S  ZimagThe test results match with those I generatred in Mathcad.
a b x y Zreal Zimag
1 2 5 3 0.19327557 2.00888766
15 2 5 3 436596.2108 306080.3182
20 2 5 3 2425781.2385 183953.00483Any suggestions?
Chris
(a + ib)^(x + iy) on HP 15C

07292008, 02:48 PM
07292008, 03:36 PM
Hi Chris,
your program is performing well. I checked it with the buildin complex x^y function on my HP 15C, see p. 131 of the Owner's Handbook. Edited: 29 July 2008, 3:48 p.m.
07292008, 04:11 PM
George How did I miss it! Thanks. I bet your program is very compact. It looks as though I may have made a mountain out of a mole hill. Still I enjoyed the chase! Thanks Chris
Edited: 29 July 2008, 4:31 p.m.
07302008, 12:02 AM
Quote: As you now know I don't need a program to do x^y on complex numbers. For those who don't have the manual, the required keystrokes would be:
"1" The result's real part is in X now. To check the imaginary part, press f (i) and hold (i).
07302008, 02:10 AM
Hi, Chris  Writing applications for the HP15C can be surprisingly rewarding, due to its verstile and extensive capabilities (albeit at slow computational speed). One stellar attribute of the HP15C is the full domain and range of its complexnumber functionality. This was pioneering in handheld calculators in 1982, and still is rarely achieved in most of today's models. As George stated, you can simply use its builtin capability to calculate the complexvalued result of raising one complexvalued number to another complexvalued number. Of course, you notice that the HP15C display goes blank for a while during these extensive computations; even the Pioneerseries HP32S/32SII and HP42S (which are 12 times as fast) do not give results instantly for this calculation. If your goal was to perform such a computation outside of complex mode, you should put rectangular<>polar conversions to good use:
So, you can use >P to calculate the logarithm using two reals. Then, after computing the complexvalued product, use >R with magnitude of 1.00 to find the exponential of the imaginaryvalued part, and multiply by the exponential of the realvalued part. I'm fairly sure this is how the calculators do this internally. Several years ago, we noted that early versions of the HP33s did not do rectangular<>polar conversions properly, due to incorrect handling and calculation of angles. I showed that this bug affected the calculation of powers in the complex domain: http://www.hpmuseum.org/cgisys/cgiwrap/hpmuseum/archv014.cgi?read=66246#66246  KS
Edited: 3 Aug 2008, 12:55 a.m. after one or more responses were posted
07302008, 02:39 AM
Hi Karl Thanks for your response. The mathematical techniques you have listed are exactly what I used apart from R<>P. These techniques can be applied in scientific calculators without a complex mode. Chris
08022008, 01:54 PM
Chris  The R>P conversion, with its implicit "atan2" function, offers the important advantage of getting the correct quadrant, and handling cases with an xaxis value of zero. Your program, which uses arctangent, will fail for a = 0 (DBZ error) and a < 0 (incorrect quadrant for arctan). Here's a 30line program to compute (a + ib)^(x + iy) on an HP11C or HP34C without using any storage registers. This program is also portable to the HP15C (ensure that flag 8 is clear during execution), but its builtin complexmode capability is faster and more accurate.
(a) Three conversions to polar, two conversions to rectangular, and four uses of roll up (saves three roll downs each time). Radians mode is set, and the full stack is used for input and calculations. Complex multiplication is facilitated by polar mode, but accuracy is slightly compromised (errors in the ninth significant digit for these examples).  KS
Edited: 3 Aug 2008, 3:53 p.m. after one or more responses were posted
08032008, 07:30 AM
Karl Thank you very much for the effort. Chris
08032008, 11:41 AM
Very nice, I love allstack solutions and you didn't even need LASTx! Katie
Edited: 4 Aug 2008, 10:48 a.m. after one or more responses were posted
08032008, 02:34 PM
Hi, Katie and Chris  Thank you.
Quote: They do help to ensure compatibility between user programs by not using numbered registers. It's good if the the allstack solutions don't entail excessive stack manipulation, which is hard to follow. What made this one possible is complex multiplication by polar mode, which unfortunately cost some accuracy due to all the R<>P convertin'. Rectangularmode multiplication would have required four registers, by my reckoning.
Quote: The last nine lines could have been replaced by
COS for an eversoslight reduction in computation (two internal multiplications by unity). Not relying on LASTx is tidier, because LASTx does not always contain the previous value in x: CHS and CLx (to name several) for good reason do not alter LASTx even as they change the xregister value. Interesting exercise  it also sharpened my mathematical understanding of this particular computation.
 KS Edited: 3 Aug 2008, 9:21 p.m. 
« Next Oldest  Next Newest »
