;; | ----------------------------------------------------------------------------
;; | MI_AverageLst
;; | ----------------------------------------------------------------------------
;; | Function : Averages the real or integer values in a list
;; | Auguments: 'Lst' - List of real or integer values
;; | Updated  : February 23 2007
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_AverageLst ( Lst / Avg )
	(setq Avg (/ (apply '+ Lst) (length Lst)))
)