lisp vẽ tam giác có 1 cạnh song song với trục ox khi biết 3 cạnh hoặc 2 cạnh và 1 góc xen kẽ

[maytauthuy_vimaru 0]

; Ten bai tap: Ve tam giac khi biet du lie dau vao la 2 canh va 1 goc giua 2 canh hoac chieu dai  3 canh ( 1 canh // truc ox

; Ten sinh vien: NGUYEN VAN QUYEN ; Lop: MTT50-DH1

(defun c:quyen()

  (command "zoom" "all")

  (initget 1 "P1 P2")

  (setq k (getkword "\n Nhap P1 neu co 2 canh va 1 goc ; hoac P2 neu co 3 canh (P1/P2): "))

  (if (= k "P1")

    (progn

  (initget 7)

  (setq l (getreal "\n Nhap chieu dai canh thu nhat: "))

  (initget 7)

  (setq m (getreal "\n Nhap chieu dai canh thu hai: "))

  (initget 7)

  (setq i (getreal "\n Nhap goc giua hai canh: "))

  (setq i1 (* pi (/ i 180)))

  (setq a (getpoint "\n Nhap diem bat dau ve: ")

b (list (+ (car a) l) (cadr a))

c (polar a i1 m)

     )

  (command "line" a b c "c"))

    (progn

      (initget 7)

  (setq d (getreal "\n Nhap chieu dai canh thu 1: "))

  (initget 7)

  (setq e (getreal "\n Nhap chieu dai canh thu 2: "))

  (initget 7)

  (setq f (getreal "\n Nhap chieu dai canh thu 3: "))

  (setq p (/ (+ d e f) 2))

  (setq s (sqrt (* p (- p d) (- p e) (- p f))))

  (setq h (/ (* 2 s) d))

  (setq x (sqrt (- (* e e) (* h h))))

(setq pt1 (getpoint "\n Nhap diem bat dau ve ")

     pt2 (list (+ (car pt1) e) (cadr pt1))

     pt3 (list (+ (car pt1) x) (+ (cadr pt1) h)))

  (command "line" pt1 pt2 pt3 "c")))

  )