按区段段数分割dist

Lisphk

1. ;|
   
2.         按区段段数分割dist。
   
3.         返回部分距离的渐进和的列表
   
4. 
   
5.         (_splitdist 360 8)
   
6.                 => (45.0 90.0 135.0 180.0 225.0 270.0 315.0 360.0)
   
7.         (_splitdist -400 6)
   
8.                => (-66.6667 -133.333 -200.0 -266.667 -333.333 -400.0)
   
9. 
   
10.         参数要求:
    
11.                 segment_count 非0整数       
    
12. |;
    
13. (defun _splitdist (dist segment_count / portion_distance returnlist)
    
14.   (if (and (not (zerop segment_count))
    
15.            (= (rem segment_count 1) 0)
    
16.       )
    
17.     (progn
    
18.       (setq portion_distance (/ (float dist) segment_count)
    
19.             returnlist       '()
    
20.             index            1
    
21.       )
    
22.       (repeat segment_count
    
23.         (setq returnlist
    
24.                          (append returnlist (list (* index portion_distance)))
    
25.               index      (1+ index)
    
26.         )
    
27.       )
    
28.     )
    
29.   )
    
30.   returnlist
    
31. )
    

;|<br />         按区段段数分割dist。<br />         返回部分距离的渐进和的列表<br /> <br />         (_splitdist 360 8)<br />                 => (45.0 90.0 135.0 180.0 225.0 270.0 315.0 360.0)<br />         (_splitdist -400 6)<br />                => (-66.6667 -133.333 -200.0 -266.667 -333.333 -400.0)<br /> <br />         参数要求:<br />                 segment_count 非0整数        <br /> |;<br /> (defun _splitdist (dist segment_count / portion_distance returnlist)<br />   (if (and (not (zerop segment_count))<br />            (= (rem segment_count 1) 0)<br />       )<br />     (progn<br />       (setq portion_distance (/ (float dist) segment_count)<br />             returnlist       '()<br />             index            1<br />       )<br />       (repeat segment_count<br />         (setq returnlist<br />                          (append returnlist (list (* index portion_distance)))<br />               index      (1+ index)<br />         )<br />       )<br />     )<br />   )<br />   returnlist<br /> )<br />

yoyoho

感谢分享程序！！！！

sh_h

谢谢楼主分享！！！

fan_zh

谢谢楼主分享！！！

sicky111

谢谢分享。

kqqt6236

谢谢分享。