[LISP程序]：请达人帮忙看看这个程序

aladxy

我运行的时候总是说参数错误，请达人帮忙看看，问题出在哪里？
(defun c:5test3()
  ;A点、a、b、c必须由用户自己输入
  (setq A1 (getpoint "请输入三角形的左下角点："))
  (setq a (getreal "\n请输入三角形边的长度："))
  (setq b (getreal "\n请输入三角形边的长度："))
  (setq c (getreal "\n请输入三角形边的长度："))
  ;求H
  (setq S (/ (+ a b c) 2))
  (setq AREA (* S (- S a) (- S b) (- S c)))
  (setq H (/ (* 2 AREA) a))
  ;求出c点；
  (setq AD (sqrt (- (* b b) (* H H))))
  (setq ang (atan(/ H AD)))
  (setq C1 (polar A1 ang b))
  ;求B点；
  (setq B1 (polar A1 0 c))
  (command "line" A1 B1 C1 "c")
  (prin1)
  )

Underway

(setq AD (sqrt (- (* b b) (* H H))))
===>
(setq AD (sqrt (abs (- (* b b) (* H H)))))