RError.com

RError.com Logo RError.com Logo

RError.com Navigation

  • 主页

Mobile menu

Close
  • 主页
  • 系统&网络
    • 热门问题
    • 最新问题
    • 标签
  • Ubuntu
    • 热门问题
    • 最新问题
    • 标签
  • 帮助
主页 / 问题 / 657039
Accepted
Desmond Fox
Desmond Fox
Asked:2020-04-22 17:50:06 +0000 UTC2020-04-22 17:50:06 +0000 UTC 2020-04-22 17:50:06 +0000 UTC

两段的接触点

  • 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 2 个回答
  • 10 Views

2 个回答

  • Voted
  1. Uladzimir Palekh
    2020-04-22T18:03:52Z2020-04-22T18:03:52Z

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

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

    • 1
  2. Best Answer
    Desmond Fox
    2020-04-22T22:02:45Z2020-04-22T22:02:45Z

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

    (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

相关问题

  • 给定物体的当前位置和速度,计算某个“x”处的“y”

  • 如何检查一个点是否属于多边形?

  • 求球体上一点由另一点指向的坐标

Sidebar

Stats

  • 问题 10021
  • Answers 30001
  • 最佳答案 8000
  • 用户 6900
  • 常问
  • 回答
  • Marko Smith

    Python 3.6 - 安装 MySQL (Windows)

    • 1 个回答
  • Marko Smith

    C++ 编写程序“计算单个岛屿”。填充一个二维数组 12x12 0 和 1

    • 2 个回答
  • Marko Smith

    返回指针的函数

    • 1 个回答
  • Marko Smith

    我使用 django 管理面板添加图像,但它没有显示

    • 1 个回答
  • Marko Smith

    这些条目是什么意思,它们的完整等效项是什么样的

    • 2 个回答
  • Marko Smith

    浏览器仍然缓存文件数据

    • 1 个回答
  • Marko Smith

    在 Excel VBA 中激活工作表的问题

    • 3 个回答
  • Marko Smith

    为什么内置类型中包含复数而小数不包含?

    • 2 个回答
  • Marko Smith

    获得唯一途径

    • 3 个回答
  • Marko Smith

    告诉我一个像幻灯片一样创建滚动的库

    • 1 个回答
  • Martin Hope
    Air 究竟是什么标识了网站访问者? 2020-11-03 15:49:20 +0000 UTC
  • Martin Hope
    Алексей Шиманский 如何以及通过什么方式来查找 Javascript 代码中的错误? 2020-08-03 00:21:37 +0000 UTC
  • Martin Hope
    Qwertiy 号码显示 9223372036854775807 2020-07-11 18:16:49 +0000 UTC
  • Martin Hope
    user216109 如何为黑客设下陷阱,或充分击退攻击? 2020-05-10 02:22:52 +0000 UTC
  • Martin Hope
    Qwertiy 并变成3个无穷大 2020-11-06 07:15:57 +0000 UTC
  • Martin Hope
    koks_rs 什么是样板代码? 2020-10-27 15:43:19 +0000 UTC
  • Martin Hope
    user207618 Codegolf——组合选择算法的实现 2020-10-23 18:46:29 +0000 UTC
  • Martin Hope
    Sirop4ik 向 git 提交发布的正确方法是什么? 2020-10-05 00:02:00 +0000 UTC
  • Martin Hope
    faoxis 为什么在这么多示例中函数都称为 foo? 2020-08-15 04:42:49 +0000 UTC
  • Martin Hope
    Pavel Mayorov 如何从事件或回调函数中返回值?或者至少等他们完成。 2020-08-11 16:49:28 +0000 UTC

热门标签

javascript python java php c# c++ html android jquery mysql

Explore

  • 主页
  • 问题
    • 热门问题
    • 最新问题
  • 标签
  • 帮助

Footer

RError.com

关于我们

  • 关于我们
  • 联系我们

Legal Stuff

  • Privacy Policy

帮助

© 2023 RError.com All Rights Reserve   沪ICP备12040472号-5