[LISP函数]：两点的n分点

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;;两点的n分点
   
5. (defun th-1/n-pt (pt1 pt2 n)
   
6.   (mapcar
   
7.     (function (lambda (x y)
   
8.                 (+ (/ (- y x) 1.0 n) x)
   
9.               )
   
10.     )
    
11.     pt1
    
12.     pt2
    
13.   )
    
14. )
    
15. ;;;两点的m/n分点
    
16. (defun th-m/n-pt (pt1 pt2 n m)
    
17.   (mapcar
    
18.     (function (lambda (x y)
    
19.                 (+ (* m (/ (- y x) 1.0 n)) x)
    
20.               )
    
21.     )
    
22.     pt1
    
23.     pt2
    
24.   )
    
25. )
    
26.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;两点的n分点<br /> (defun th-1/n-pt (pt1 pt2 n)<br />   (mapcar<br />     (function (lambda (x y)<br />                 (+ (/ (- y x) 1.0 n) x)<br />               )<br />     )<br />     pt1<br />     pt2<br />   )<br /> )<br /> ;;;两点的m/n分点<br /> (defun th-m/n-pt (pt1 pt2 n m)<br />   (mapcar<br />     (function (lambda (x y)<br />                 (+ (* m (/ (- y x) 1.0 n)) x)<br />               )<br />     )<br />     pt1<br />     pt2<br />   )<br /> )<br />   [/FONT]<br />

qhdycm

太棒了

fan_yilin

我真的没有看出，棒在哪里，真是莫名其妙。

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun hao-1/n-pt (pt1 pt2 n)
   
5.   (polar pt1 (angle pt1 pt2) (* (/ 1.0 n) (distance pt1 pt2)))
   
6. )
   
7. 
   
8. (defun hao-m/n-pt (pt1 pt2 n m)
   
9.   (polar pt1 (angle pt1 pt2) (* m (/ 1.0 n) (distance pt1 pt2)))
   
10. );;;速度较一楼快
    
11.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun hao-1/n-pt (pt1 pt2 n)<br />   (polar pt1 (angle pt1 pt2) (* (/ 1.0 n) (distance pt1 pt2)))<br /> )<br /> <br /> (defun hao-m/n-pt (pt1 pt2 n m)<br />   (polar pt1 (angle pt1 pt2) (* m (/ 1.0 n) (distance pt1 pt2)))<br /> );;;速度较一楼快<br />   [/FONT]<br />

cowman_cn

呵呵，小代码也可以省很多脑细胞

youjun4991

有时候还是有用的哦啊

wrx2222

没学过

yjch

谢谢TANGER的函数，比较的示例更好