主页 / 问题 / 657039
Accepted
Desmond Fox
Asked:2020-04-22 17:50:06 +0800 CST2020-04-22 17:50:06 +0800 CST

两段的接触点

  • 772

你好。您需要找到一个点，该点距 A 点的距离为 a，距 B 点的距离为 b。

我了解到您必须先输入数据 (A, a, B, b)。我只是不知道下一步该怎么做。

我才刚刚开始。写入数据条目

(defun fnc()
  (setq A (getpoint "Enter A(dot):"))
  (setq a (getdist A "Enter a(dist):"))
  (setq B (getpoint "Enter B(dot):"))
  (setq b (getpoint B "Enter b(dist):"))
  )

谁能建议下一步做什么？

геометрия

2 个回答

  1. 问题的核心在于找到两个圆的交点：圆心在 pointA和 radiusa以及圆心在 pointB和 radius b。可以有 0、1 或 2 个这样的点。

    可以在此处或此处找到解决该问题所需的数学知识。

    • 1
  2. Best Answer

    出租车似乎解决了这个问题。我只显示一点，因为 它正在执行任务。决定采用这种方法。

    (defun fnc()
  (setq A (getpoint "\nEnter A(dot):"))(princ A)
  (setq ah (getdist A "\nEnter a(dist):"))(princ ah)
  (command "_circle" (list (car A)(cadr A)) ah)
  ; Для удобства нарисуем окружности
  (setq B (getpoint "\nEnter B(dot):"))(princ B)
  (setq bh (getdist B "\nEnter b(dist):"))(princ bh)
  (command "_circle" (list (car B)(cadr B)) bh)
  ; Определим флаг
  (setq s -1)
  ; Вычислим расстояние между центрами окружностей
  (setq d (expt (+ (expt (- (car B) (car A)) 2) (expt (- (cadr B) (cadr A)) 2)) 0.5))
  (if (> d (+ ah bh))
    (progn
      (print "Решений ноль. Окружности не пересекаются")
      (setq s 0)))
  (if (< d (- ah bh))
    (progn
      (print "Решений ноль. Одна окружность внутри второй")
      (setq s 0)))
  ; если решение есть, то...
  (if (not (= s 0))
    (progn
      (setq aa (/ (+ (- (expt ah 2) (expt bh 2)) (expt d 2)) (* 2.0 d)))
      (setq h (expt (- (expt ah 2) (expt aa 2)) 0.5))
      ; Вычислим точку
      (setq x2 (+ (car A)  (/ (* aa (- (car B) (car A))) d)))
      (setq y2 (+ (cadr A) (/ (* aa (- (cadr B) (cadr A))) d)))

      (setq x3 (+ x2 (/ (* h (- (cadr B) (cadr A))) d)))
      (setq y3 (+ y2 (- (/ (* h (- (car B) (car A))) d))))
      (print "X = ")(princ x3)
      (print "Y = ")(princ y3)

      (command "_circle" (list x3 y3) 0.5)))

  )

    代码很粗糙，但是可以用。也许有人会需要它。

    • 0

相关问题