已知空间两点和距离求第三点

ynhh

已知空间两点

起点  A  , 方向点  B ，从A点开始的距离 L

求目标点C的坐标值

也就是从 A 向 B 出发距离为 L 的目标点 C

C有可能是AB之间，也可能是AB延长线上

谢谢

cable2004

两点的差得到向量v， MAT:Unitization (v)算出向量v的单位长度，再乘以长度l。lisp忘记了自己试试。

v = (mapcar '- p2 p1)



;;;-----------------------------------------------------------;;
;;; 单位向量                                                      ;;
;;; Unit Vector - Lee Mac                                     ;;
;;; Args: v - vector in R^n                                      ;;
;;;-----------------------------------------------------------;;
(defun MAT:Unitization (v)
  ( (lambda (n)
      (if (equal 0.0 n 1e-14)
        nil
        (MAT:vxs v (/ 1.0 n))

    )
    )
    (MAT:norm v)
  )
)


;;;-----------------------------------------------------------;;
;;; 向量的模(长度)                                              ;;
;;; Vector Norm - Lee Mac                                             ;;
;;; Args: v - vector in R^n                                      ;;
;;;-----------------------------------------------------------;;
(defun MAT:norm ( v )
  (sqrt (apply '+ (mapcar '* v v)))
)


;;;-----------------------------------------------------------;;
;;; 向量乘标量(系数)                                              ;;
;;; Vector x Scalar - Lee Mac                                      ;;
;;; Args: v - vector in R^n, s - real scalar                      ;;
;;;-----------------------------------------------------------;;
(defun MAT:vxs ( v s )
  (mapcar (function (lambda ( n ) (* n s))) v)
)



l = (distance '(0 0 0) v)

飞雪神光

1. (setq
   
2.         a (getpoint )
   
3.         b (getpoint a)
   
4.         an(angle a b)
   
5.         dis 6
   
6.         c(polar a an dis)
   
7. )

(setq <br />         a (getpoint )<br />         b (getpoint a)<br />         an(angle a b)<br />         dis 6<br />         c(polar a an dis)<br /> )

mahuan1279

线性组合。PC=PA*（distance（PA，PB）-L）/distance（PA，PB）  +PB*L/distance（PA，PB）
(mapcar '(lambda (x y) (+ (* x ( / (- (distance PA PB) L) (distance PA PB))) (* y (/ L (distance PA PB))))) PA PB)

xyp1964

1. (defun abc (a b l / sc)
   
2.   "沿空间两点的距离点"
   
3.   (setq sc (/ l (distance a b) 1.))
   
4.   (mapcar '(lambda (x y) (+ x (* (- y x) sc))) a b)
   
5. )
   

(defun abc (a b l / sc)<br />   "沿空间两点的距离点"<br />   (setq sc (/ l (distance a b) 1.))<br />   (mapcar '(lambda (x y) (+ x (* (- y x) sc))) a b)<br /> )<br />

ynhh

cable2004 发表于 2023-9-30 07:36
两点的差得到向量v， MAT:Unitization (v)算出向量v的单位长度，再乘以长度l。lisp忘记了自己试试。

v  ...

谢谢老师
在您说的基础上我反复摸索
您说的最后再加上一步
加上起点对应的XYZ
就对了
谢谢您，祝您国庆愉快，身体健康。

ynhh

飞雪神光 发表于 2023-9-30 08:27

谢谢您的帮助
您这个测试只能是平面上用
谢谢您，祝您国庆愉快，身体健康。

ynhh

mahuan1279 发表于 2023-9-30 08:31
线性组合。PC=PA*（distance（PA，PB）-L）/distance（PA，PB）  +PB*L/distance（PA，PB）
(mapcar '(lam ...

谢谢您的指导
您的几何能力与专注研究
在明经上都是很牛的
您的方法的确好用，也省去那些向量之类的应用
祝您国庆节愉快，身体健康

ynhh

xyp1964 发表于 2023-9-30 10:09

谢谢版主院长的出手指导
院长的超能力一直是大家敬仰的
您的这个经测试的确好用
还最精简
有如神助
祝您
身体健康
节日愉快