Acos (AutoLISP function)

;;;  WIKI-ACOS
(DEFUN WIKI-ACOS (X)
;| Returns the arc cosine of a number
   Edit the source code for this function at 

  acos (AutoLISP function)

|;
 (ATAN (SQRT (- 1 (* X X))) X)
)