;; ! ****************************************************************************
;; ! MI_asin
;; ! e-mail   : rakesh.rao@4d-technologies.com
;; ! Web      : www.4d-technologies.com
;; ! ****************************************************************************

(defun MI_asin( val / tmp Sign )

(setq tmp (/ 1.0 (1- (/ 1.0 (MI_Sqr val)))))
(if (minusp tmp)
	(setq Sign -1.0)
	(setq Sign  1.0)
)
(setq tmp (abs tmp))
(atan (sqrt tmp))
)