;----------------------------------------------------------
; Функция расчета определителя матрицы 3 х 3
; (C)KAI, 2004 г. (413-2) 65-05-10 Магадан. http://geol-dh.narod.ru/
;----------------------------------------------------------
(defun MATRIX_DETERM (a b c d e f g h l / val)
  ; Параметры функции: элементы матрицы (3х3)
  ; |a d g|
  ; |b e h|
  ; |c f l|
  ; val = a*e*l + d*h*c + b*f*g - c*e*g - b*d*l - f*h*a
  (setq val (* a e l))
  (setq val (+ val (* d h c)))
  (setq val (+ val (* b f g)))
  (setq val (- val (* c e g)))
  (setq val (- val (* b d l)))
  (setq val (- val (* f h a)));возвращаемое значение - определитель матрицы
);end of ****** MATRIX_DETERM ********