Threaded Mode | Linear Mode

Dieter · (This post was last modified: 01-27-2019 03:05 PM by Dieter.)

(01-27-2019 08:26 AM)Gerald H Wrote:

Code:

4 ABS(I)*COS(ARG(I))+0*(ABS(I)*SIN(ARG(I))►I)

That's a nice approach, with a much less complicated formula than the one I used. Combining it with my original solution the result would look like this:

Code:

C001  LBL C

C002  FS? 10

C003  GTO C010

C004: ARG

C005  eqn ABS(LASTX)*SIN(REGX)

C006  X<>Y

C007  R↓

C008  eqn ABS(LASTX)*COS(REGT)

C009  RTN

C010: CF 10

C011  XEQ C004

C012  SF 10

C013  RTN

Maybe this version is a bit more prone to roundoff errors so that the last digit may be slightly off here and there:

1i1 => 0,99999999998, 0,999999999997
-4i3 => -3,99999999999, 3,00000000001
0i3 => 1,4689...E-11, 3

The last example assumes radians mode.

OK, this may happen anytime as all we got are 12 digits instead of 15 the 35s uses internally. But on average the more complicated formulas in post #10 seem to exibit less of such problems. In all three cases it returns accurate results. Maybe because sine and cosine of the angle are avoided (only their sign is considered).

Dieter