Solver inside of HP basic

[Thomas Ritschel]

I've got it working using the following code without the use of local variables:

Code:

EXPORT Kepler()
BEGIN
  M:=60*pi/180;   <-- use the "pi" key (shift + 3)
  A:=0.15;
  HAngle:=0;
  PRINT(FNROOT(E-A*SIN(E)-M,E));
  HAngle:=1;
END;

Obviously the solution isn't stored in the variable E. Therefore one needs to get the return value of FNROOT instead. This wasn't clear to me...

Anyway, I'm still wondering why one cannot use local variables here.

Edit: Equation corrected...