AutoCAD
;;;  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)
)