画不规则三角形
本帖最后由 838510233 于 2015-2-3 01:52 编辑求画一个边长为10,14,5的三角形程序思路,用基础知识就能画出来 太复杂的我看不懂
设三边长为a b c共中a为最长边
P0 0,0
P1 a,0
P3 (a^2+b^2-c^2) / 2a, sqrt(b^2- (a^2+b^2-c^2 / 2a)^2) (defun c:tt()
(setq pt1 (getpoint "\n请指定三角形在屏幕中的位置："))
(setq a (getreal "\n请输入三角形第一条边长："))
(setq b (getreal "\n请输入三角形第二条边长："))
(setq c (getreal "\n请输入三角形第三条边长："))
(setq qq (/ (+ a b c) 2))
(setq s (sqrt (* qq (- qq a) (- qq b) (- qq c))))
(setq h (/ (* s 2) c))
(setq d (sqrt (- (* b b) (* h h))))
(setq jj (atan (/ h d)))
(setq pt2 (polar pt1 0 c))
(setq pt3 (polar pt1 jj b))
(command "pline" pt1 pt2 pt3 "c" "")
)
页:
[1]