FUNCTION atan2

(* SCHEMA mathematical_functions_schema; *)

FUNCTION atan2(y, x : REAL) : REAL;
  LOCAL
    r : REAL;
  END_LOCAL;
  IF (y = 0.0) AND (x = 0.0) THEN  RETURN (?);  END_IF;
  r := atan(y,x);
  IF x < 0.0 THEN
    IF y < 0.0 THEN  r := r - PI;
    ELSE             r := r + PI;  END_IF;
  END_IF;
  RETURN (r);
END_FUNCTION;  -- atan2

Referenced By

Defintion atan2 is references by the following definitions:

Definition	Type
enclose_cregion_in_pregion	FUNCTION
enclose_pregion_in_pregion	FUNCTION
member_of	FUNCTION
simplify_function_application	FUNCTION

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:13:59-04:00