(50g) Speed Complex entry (42s way)

[Vtile]

Late at yesterday I were watching some HP50g video on the net and noticed a program which put values from the stack to complex number, I figured out that it looks up which mode the calc is and builds the complex number based on that information so I made something similar.

Edit. It seems that the R→C command found in the PRG/TYPE is making only rectangular representation of the complex no matter which mode the calculator is in. Program below is using that now command for Cplx creation, else is the MODE wrapper so the type is based on the coordinate mode the calc is in (polar/rect) so you can type both polar and rect form and chose which one you need / want to enter by selecting coordination system with coordinate toggler program.

Code:

«
«
-16 FS? -15 FS? -103 FS? → Y X C
    «
  IF 'C==0' THEN
     "Not in Complex mode, Exit." MSGBOX
  ELSE
   IF 'Y==0' THEN 
      R→C // command in PRG/TYPE i just found.
   ELSE 
        IF 'X==0' THEN
           DUP2 COS * UNROT SIN *
          R→C // command in PRG/TYPE i just found.
        ELSE 
      "Spherical, error." MSGBOX
      END
   END
  END
   »
» 'MKE-C' STO

Toggler program (copied somewhere on the net, propably from 'rolinychupetin' homepage I accidentally did find somewhere at time.)

Code:


« -16 FS? → X 
  « IF 'X==0' THEN
      CYCLIN
    ELSE
      RECT
   END
 »
» 'R↔Po' STO