两点中点通用表达式

/db_自贡黄明儒_

本程序根据highflybird大师的程序GEO:Proportion改编

1. ;;;----------------------------------------------------;
   
2. ;;;功能: 定比点P,使得PP1 / P2P1 = k （此函数可三维）   ;
   
3. ;;;输入: 两点p1,P2和比例系数k                          ;
   
4. ;;;输出: 定比点位置                                    ;
   
5. ;;;----------------------------------------------------;
   
6. ;;k=0.0,表示p1
   
7. ;;k=0.5,表示中点
   
8. ;;K=1.0,表示p2
   
9. ;;K>1,表示p在p1p2延长线上
   
10. ;;K<1,表示p在p2p1延长线上
    
11. ;;(apply 'GEO:Proportion1 (cons 0.5 '((0 0)(1 1))))
    
12. (defun GEO:Proportion1 (k p1 p2)
    
13.   (mapcar '(lambda (x1 x2) (+ x1 (* (- x2 x1) K))) p1 p2)
    
14. )

;;;----------------------------------------------------;<br /> ;;;功能: 定比点P,使得PP1 / P2P1 = k （此函数可三维）   ;<br /> ;;;输入: 两点p1,P2和比例系数k                          ;<br /> ;;;输出: 定比点位置                                    ;<br /> ;;;----------------------------------------------------;<br /> ;;k=0.0,表示p1<br /> ;;k=0.5,表示中点<br /> ;;K=1.0,表示p2<br /> ;;K>1,表示p在p1p2延长线上<br /> ;;K<1,表示p在p2p1延长线上<br /> ;;(apply 'GEO:Proportion1 (cons 0.5 '((0 0)(1 1))))<br /> (defun GEO:Proportion1 (k p1 p2)<br />   (mapcar '(lambda (x1 x2) (+ x1 (* (- x2 x1) K))) p1 p2)<br /> )

Lisphk

黄总，改进那里了？

/db_自贡黄明儒_

Lisphk 发表于 2018-9-3 16:32
黄总，改进那里了？

改编，用法不同。

yoyoho

感谢分享程序!!!!!

sicky111

谢谢分享。

kqqt6236

很不错的中点函数。

原地踏步

这个程序不错，顶一个！

yjch

好好学习天天向上