ArcTan(x,y)?

[toml_12953]

Is there a single function on the Prime to compute ArcTan(x,y)? I know the function below returns the correct values for the different quadrants but I'd like to use a built-in function if possible. I cant find anything on it in the manual.

Tom L

PHP Code:

arctanxy(x, y)
begin
  local a;
  if x == 0 then
    if y == 0 then
      a := 0;
    else
      a := sign(y) * pi / 2
    end;
  else
    a := atan(y / x);
    if x < 0 then
      if y < 0 then
        a := a - pi;
      else
        a := a + pi;
      end;
    end;
  end;

  return a;

end;