FUNCTION atan2
(* SCHEMA engineering_properties_schema; *)
FUNCTION atan2
(y : REAL;
x : REAL ) : REAL;
LOCAL
r : REAL;
END_LOCAL;
IF (y = 0.00000) AND (x = 0.00000) THEN
RETURN (?);
END_IF;
r := ATAN(y, x);
IF x < 0.00000 THEN
IF y < 0.00000 THEN
r := r - 3.14159;
ELSE
r := r + 3.14159;
END_IF;
END_IF;
RETURN (r);
END_FUNCTION;
Referenced By
Defintion atan2 is references by the following definitions:
[Top Level Definitions] [Exit]Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:18:51-04:00