请教高手指点错误？

chenlight

(defun c:5test3()
  (setq ac (getpoint "输入三角形的左下角点："))
  (setq a (getreal "请输入底边a的长度："))
  (setq b (getreal "请输入侧边b的长度："))
  (setq c (getreal "请输入侧边c的长度："))

  (setq s (/ (a+b+c) 2))
  (setq z (* s (s-a) (s-b) (s-c)))
  (setq area (sqrt z))
  (setq h (/ area a 2))
  
  (setq ab (polar ac 0 a))
  (setq a1 (sqrt (- (* c c) (* h h)))
  (setq azhong (polar ac 0 a1)) ;此点取的是H的最下面的点
  (setq bc (polar azhong pi/2 h))

  (command "line" ac ab bc)


该贴已经同步到 chenlight的微博

Andyhon

...错误？
错误指的是

(setq s (/ (+ a b c) 2))
(setq z (* s (- s a) (- s b) (- s c)))

错误的讯息是
捕捉也会干扰结果...

chenlight

(defun c:5test3()
  (setq ac (getpoint "输入三角形的左下角点："))
  (setq a (getreal "\n 请输入底边a的长度："))
  (setq b (getreal "\n 请输入侧边b的长度："))
  (setq c (getreal "\n 请输入侧边c的长度："))

  (setq s (/ (+ a b c) 2))
  (setq z (* s (- s a) (- s b) (- s c)))
  (setq area (sqrt z))
  (setq h (/ area a 2))
  
  (setq ab (polar ac 0 a))
  (setq a1 (sqrt (- (* c c) (* h h))))
  (setq azhong (polar ac 0 a1)) ;此点取的是H的最下面的点
  (setq bc (polar azhong (/ pi 2) h))

  (command "line" ac ab bc "c")

)

这是修改后的程序，可是执行不出来结果？显示为nil

Andyhon

(setq h (/ area a 2))
这个有值,但合乎您所求否?

chenlight

这个程序是绘制三角形的，可是用上面的代码绘制出来的只是一条直线，也就是程序中a的那条直线，b和c的没有出来？

chenlight

(defun c:5test3()
  (setq ac (getpoint "输入三角形的左下角点："))
  (setq a (getreal "\n 请输入底边a的长度："))
  (setq b (getreal "\n 请输入侧边b的长度："))
  (setq c (getreal "\n 请输入侧边c的长度："))

  (setq s (/ (+ a b c) 2))
  (setq z (* s (- s a) (- s b) (- s c)))
  (setq area (sqrt z))
  (setq h (/ (* 2 area) a))
  
  (setq ab (polar ac 0 a))
  (setq a1 (sqrt (- (* c c) (* h h))))
  (setq azhong (polar ac 0 a1)) ;此点取的是H的最下面的点
  (setq bc (polar azhong (/ pi 2) h))

  (command "pline" ac ab bc "c")

)

这是修改过的代码， (setq h (/ (* 2 area) a))这个代码已经更改了，可是出来的还是一条直线！

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

chenlight

多谢高手指点，你修改的代码在缩小到很小的情况下画出来的也是三角形，我自己写的程序在缩小很的情况下画出来的就是一条直线！

chenlight

请问“non”是什么意思呀？谢谢！

lsjj

坐沙發的早告訴你了，你一直無視啊