画不规则三角形

838510233

求画一个边长为10,14,5的三角形程序思路,用基础知识就能画出来 太复杂的我看不懂

SunSpring

vectra

设三边长为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)

fan_zh

2. (defun c:tt()
   
3.   (setq pt1 (getpoint "\n请指定三角形在屏幕中的位置："))
   
4.   (setq a (getreal "\n请输入三角形第一条边长："))
   
5.   (setq b (getreal "\n请输入三角形第二条边长："))
   
6.   (setq c (getreal "\n请输入三角形第三条边长："))
   
7.   (setq qq (/ (+ a b c) 2))
   
8.   (setq s (sqrt (* qq (- qq a) (- qq b) (- qq c))))
   
9.   (setq h (/ (* s 2) c))
   
10.   (setq d (sqrt (- (* b b) (* h h))))
    
11.   (setq jj (atan (/ h d)))
    
12.   (setq pt2 (polar pt1 0 c))
    
13.   (setq pt3 (polar pt1 jj b))
    
14.   (command "pline" pt1 pt2 pt3 "c" "")
    
15. )

(defun c:tt()<br />   (setq pt1 (getpoint "\n请指定三角形在屏幕中的位置："))<br />   (setq a (getreal "\n请输入三角形第一条边长："))<br />   (setq b (getreal "\n请输入三角形第二条边长："))<br />   (setq c (getreal "\n请输入三角形第三条边长："))<br />   (setq qq (/ (+ a b c) 2))<br />   (setq s (sqrt (* qq (- qq a) (- qq b) (- qq c))))<br />   (setq h (/ (* s 2) c))<br />   (setq d (sqrt (- (* b b) (* h h))))<br />   (setq jj (atan (/ h d)))<br />   (setq pt2 (polar pt1 0 c))<br />   (setq pt3 (polar pt1 jj b))<br />   (command "pline" pt1 pt2 pt3 "c" "")<br /> )