Programming with HP50g

[Gerson W. Barbosa]

(08-29-2015 08:11 PM)Allen Wrote:  For the interested reader, #D45Bh and #7FE7h (both on 48g) are checksums for two similar 25 byte solutions with only 6 steps each. (not sure if it's faster than the 27.5 byte solutions, but will at least tie one of them, I think).

A more complex approach (still 25 bytes and 6 steps) #13CAh based on:

\begin{equation} \operatorname{Im} \left( \frac{(A+iB)^4}{4}\right) =A^3B-AB^3 \end{equation}

(colorful proof)

These make for nice HP-42S solutions:

Code:


00 { 11-Byte Prgm }
01 LBL A
02 COMPLEX
03 X^2
04 COMPLEX
05 *
06 2
07 /
08 END

Code:


00 { 12-Byte Prgm }
01 LBL B
02 COMPLEX
03 4
04 Y^X
05 RCL/ ST L
06 COMPLEX
07 END