[求助]：小妹初学lisp,一个问题!@

dlldll

已知三角形三边及一角点,画此三角形.
我写了一下,但始终报错..

(defun c:text1()
(setq J1 (getpoint "\n请输入三角形左下角点:"))
  (setq A (getreal "\n请输入三角形底边长:"))
  (setq B (getreal "\n请输入三角形左邻边长:"))
  (setq C (getreal "\n请输入三角形右邻边长:"))
(setq S (/(+(+ A B)C)2))
  (setq AREA (sqrt((*(*(* S (- S A))(- S B )(- S C))))))
  (setq H (/(* 2 AREA)A))
  (setq D (sqrt (-(* C C)(* H H))))
  (setq Ang1 (atan(/ H D)))
  (setq Ang1 (* Ang1 (/ 180 pi)))
  (setq J2 (polar J1 0 A))
  (setq J3 (polar J1 Ang1 C))
  (command "pline" J1 J2 J3 "c")
  (prin1)
    )

ll_j

这样：
[php]
(defun c:text1 ()
  (setq J1 (getpoint "\n请输入三角形左下角点:"))
  (setq A (getreal "\n请输入三角形底边长:"))  ;这里最好使用输入距离函数
  (setq B (getreal "\n请输入三角形左邻边长:"))
  (setq C (getreal "\n请输入三角形右邻边长:"))
  (setq S (/ (+ (+ A B) C) 2))   ;多数数学函数都可以使用多个变量
  (setq AREA (sqrt ((* (* (* S (- S A)) (- S B) (- S C)))))) ;这里多了一重括号，这是出错的根源，另外根据你的写法，有一个右括号位置错误
  (setq H (/ (* 2 AREA) A))
  (setq D (sqrt (- (* C C) (* H H))))  ;这里计算的是右边角，C应为B
  (setq Ang1 (atan (/ H D)))
  (setq Ang1 (* Ang1 (/ 180 pi)))  ;Lisp计算采用的是弧度，不需要转换
  (setq J2 (polar J1 0 A))
  (setq J3 (polar J1 Ang1 C))  ;这里C也应该是B
  (command "pline" J1 J2 J3 "c")
  (prin1)
)

;;;加上格式化后

(defun c:text1 ()
  (setq        J1   (getpoint "\n请输入三角形左下角点:")
        A    (getdist J1 "\n请输入三角形底边长:")
        B    (getdist J1 "\n请输入三角形左邻边长:")
        J2   (polar J1 0 A)
        C    (getdist J2 "\n请输入三角形右邻边长:")
        S    (/ (+ A B C) 2)
        AREA (sqrt (* S (- S A) (- S B) (- S C)))
        H    (/ (* 2 AREA) A)
        D    (sqrt (- (* B B) (* H H)))
        Ang1 (atan (/ H D))
        J3   (polar J1 Ang1 B)
  )
  (command "pline" J1 J2 J3 "c")
  (princ)
)
[/php]

lijiao

最初由 dlldll 发布
[B]已知三角形三边及一角点,画此三角形.
我写了一下,但始终报错..

(defun c:text1()
(setq J1 (getpoint "\n请输入三角形左下角点:"))
  (setq A (getreal "\n请输入三角形底边长:"))
  (setq B (getreal "\n请?.. [/B]

语法和原理都有问题，修改后如下，不过没有多少使用意义。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:text1 ()
   
5.   (if (and (setq J1 (getpoint "\n请输入三角形左下角点:"))
   
6.            (setq A (getdist j1 "\n请输入三角形底边长:"))
   
7.            (setq J2 (polar j1 0.0 A))
   
8.            (setq B (getdist j1 "\n请输入三角形左邻边长:"))
   
9.            (setq C (getdist j2 "\n请输入三角形右邻边长:"))
   
10.            (setq S (/ (+ A B C) 2.0))
    
11.            (> s a)
    
12.            (> s b)
    
13.            (> s c)
    
14.       )
    
15.     (progn
    
16.       (setq J3x (* B (/ (- (+ (* B B) (* A A)) (* C C)) (* 2.0 A B))))
    
17.       (setq J3y (sqrt (- (* B B) (* j3x j3x))))
    
18.       (setq j3 (list (+ (car j1) j3x) (+ (cadr j1) j3y)))
    
19.       (command "pline" J1 J2 J3 "c")
    
20.     )
    
21.     (princ "\n数据有误，程序退出！")
    
22.   )
    
23.   (princ)
    
24. )
    
25.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:text1 ()<br />   (if (and (setq J1 (getpoint "\n请输入三角形左下角点:"))<br />            (setq A (getdist j1 "\n请输入三角形底边长:"))<br />            (setq J2 (polar j1 0.0 A))<br />            (setq B (getdist j1 "\n请输入三角形左邻边长:"))<br />            (setq C (getdist j2 "\n请输入三角形右邻边长:"))<br />            (setq S (/ (+ A B C) 2.0))<br />            (> s a)<br />            (> s b)<br />            (> s c)<br />       )<br />     (progn<br />       (setq J3x (* B (/ (- (+ (* B B) (* A A)) (* C C)) (* 2.0 A B))))<br />       (setq J3y (sqrt (- (* B B) (* j3x j3x))))<br />       (setq j3 (list (+ (car j1) j3x) (+ (cadr j1) j3y)))<br />       (command "pline" J1 J2 J3 "c")<br />     )<br />     (princ "\n数据有误，程序退出！")<br />   )<br />   (princ)<br /> )<br />   [/FONT]<br />

dlldll

谢谢ll_j ,lijiao 的指教.获益菲浅.
这的确没有多大的实际意义.这是autolisp&dcl基础篇的一道作业题.
也是我的第一个lisp,没想到错误这么多.脸红了.
呵呵.
另一个朋友给我解释的这种写法我觉得也不错.
(defun c:text1( / J1 A B C cosA sinA <A)
  (setq J1 (getpoint "\n请输入三角形左下角点:"))
  (setq A (getreal "\n请输入三角形底边长:"))
  (setq B (getreal "\n请输入三角形左邻边长:"))
  (setq C (getreal "\n请输入三角形右邻边长:"))
  (setq cosA (/ (- (+ (expt A 2) (expt B 2)) (expt C 2)) (* 2 A B)))  
  (if (= cosA 0)
    (setq <A (/ pi 2))
    (progn
      (setq sinA (sqrt (- 1 (expt cosA 2))))
      (setq <A (atan (/ sinA cosA)))
    )
  )
  (command "_.pline" J1 (polar J1 0 A) (polar J1 <A B) "cl")
  (princ)
)

希望能给我一样刚学lisp的朋友有所帮助.

fetalpig

怎样学习lisp呢

dlldll

最初由 fetalpig 发布
[B]怎样学习lisp呢 [/B]

多来这里和大家聊天.
多向高手请教罗.
买本基础点的lisp的书,从头做起.
呵呵,我现在正在学习.你也加油.