(* SCHEMA step_merged_cad_schema; *)
-- IN AP242
FUNCTION atan2
(y : REAL;
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 - 3.14159;
ELSE
r := r + 3.14159;
END_IF;
END_IF;
RETURN (r);
END_FUNCTION;
|
Generated by STEP Tools® EXPRESS to HTML Converter
2013-05-20T14:07:28-04:00