能否根据起点终点定长定距等分曲线？

vlisp2012

强烈围观中！！

namezg

呵呵,太感谢了,真的很不错~~

txd720127

回复个看看高手如何处理的！

flytoday

顶上顶上~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

bikeboy

这里面包含定距等分吗？  

freehand8008

好东西得顶顶！

ynhh

曲线和直线的等分常见的

honrank

向版主学习

sunny20102

定距等分的问题好像没有解决完美
新问题:
       一条线按照给定的尺寸划分n段, 剩余的首尾各半，但是有个前提：首尾的分段尺寸必须和给定的尺寸在一个允差内。文字表达不清，借用一个实例说明：
线长126000 , 要求中间的尺寸为1200, 首尾分段尺寸与1200的允差为100;
那么1200的几段，首尾的分段尺寸和数量各多少，
  1200 x 4 + 1300 x 3 x 2  即满足要求

sunny20102

针对99#的补充：
好像涉及到算法的问题.

2. ;;---------------------------
   
3. ;; 曲线分段测试
   
4. ;; 要求: 中间按模数定尺划分n段
   
5. ;;       两端对称
   
6. ;; 公差delta=|两端尺寸-模数|
   
7. ;;---------------------------
   
8. (defun  c:test( / )
   
9.         (div_curve 12600 1200.0 100.0)
   
10. ;        (princ)
    
11. )
    
12. ;;---------------------------
    
13. ;;  返回值: (n_mid n_edge mod dim_edge)
    
14. ;;   n_mid: 中间标准模数分格数量
    
15. ;;     mod: 标准分格尺寸
    
16. ;;  n_edge: 两边分格数量(偶数)
    
17. ;;dim_edge: 边部分格尺寸
    
18. ;;---------------------------
    
19. (defun  div_curve(Len mod delta / num left res nn m_edge)
    
20.         (setq num (fix (/ Len mod)))
    
21.         (setq left (- Len (* num mod)))
    
22.         (if (<= left delta);;例如:10.05  0.05<0.1
    
23.             (if (zerop left)
    
24.                 (setq res (list num mod)) ;;;仅两个元素
    
25.                 (progn
    
26.                     (setq num (- num 2))
    
27.                     (setq m_edge (/ (- Len (* num mod)) 2.0))
    
28.                     (setq res (list num  2  mod  m_edge))
    
29.                 )
    
30.             )
    
31.     ;|else|;(if (<= (abs (- left mod)) delta)
    
32.                 (progn   ;;例如: 9.94  0.06<0.1
    
33.                     (setq num (1- num))
    
34.                     (setq m_edge (/ (- Len (* num mod)) 2.0))
    
35.                     (setq res (list num  2  mod  m_edge))
    
36.                 )
    
37.                 (progn
    
38.                     (setq n_max (fix (/ Len (- mod delta))))
    
39.                     (setq n_max (1+ n_max))
    
40.                     (setq num (1- num))
    
41.                     (setq nn 2.0)
    
42.                     (setq m_edge (/ (- Len (* num mod)) nn))
    
43.                     [b](while
    
44.                         (and (> (abs (- m_edge mod)) delta)
    
45.                              (< nn n_max)
    
46.                         )
    
47.                         (setq num (1- num))
    
48.                         (setq m_edge (/ (- Len (* num mod)) nn))
    
49.                         (setq nn (+ 2 nn))
    
50.                     )[/b]
    
51.                     (setq nn (fix (- nn 2)))
    
52.                     (setq res (list num nn  mod  m_edge))       
    
53.                 )
    
54.             )
    
55.         )
    
56.         res
    
57. )
    
58. ;;---------------------------
    
59. ;;---------------------------

;;---------------------------<br /> ;; 曲线分段测试<br /> ;; 要求: 中间按模数定尺划分n段<br /> ;;       两端对称<br /> ;; 公差delta=|两端尺寸-模数|<br /> ;;---------------------------<br /> (defun  c:test( / )<br />         (div_curve 12600 1200.0 100.0)<br /> ;        (princ)<br /> )<br /> ;;---------------------------<br /> ;;  返回值: (n_mid n_edge mod dim_edge)<br /> ;;   n_mid: 中间标准模数分格数量<br /> ;;     mod: 标准分格尺寸<br /> ;;  n_edge: 两边分格数量(偶数)<br /> ;;dim_edge: 边部分格尺寸<br /> ;;---------------------------<br /> (defun  div_curve(Len mod delta / num left res nn m_edge)<br />         (setq num (fix (/ Len mod)))<br />         (setq left (- Len (* num mod)))<br />         (if (<= left delta);;例如:10.05  0.05<0.1<br />             (if (zerop left)<br />                 (setq res (list num mod)) ;;;仅两个元素<br />                 (progn<br />                     (setq num (- num 2))<br />                     (setq m_edge (/ (- Len (* num mod)) 2.0))<br />                     (setq res (list num  2  mod  m_edge))<br />                 )<br />             )<br />     ;|else|;(if (<= (abs (- left mod)) delta)<br />                 (progn   ;;例如: 9.94  0.06<0.1<br />                     (setq num (1- num))<br />                     (setq m_edge (/ (- Len (* num mod)) 2.0))<br />                     (setq res (list num  2  mod  m_edge))<br />                 )<br />                 (progn<br />                     (setq n_max (fix (/ Len (- mod delta))))<br />                     (setq n_max (1+ n_max))<br />                     (setq num (1- num))<br />                     (setq nn 2.0)<br />                     (setq m_edge (/ (- Len (* num mod)) nn))<br />                     [b](while<br />                         (and (> (abs (- m_edge mod)) delta)<br />                              (< nn n_max)<br />                         )<br />                         (setq num (1- num))<br />                         (setq m_edge (/ (- Len (* num mod)) nn))<br />                         (setq nn (+ 2 nn))<br />                     )[/b]<br />                     (setq nn (fix (- nn 2)))<br />                     (setq res (list num nn  mod  m_edge))        <br />                 )<br />             )<br />         )<br />         res<br /> )<br /> ;;---------------------------<br /> ;;---------------------------

上面的while 循环有问题，贴上来，希望帮忙解决