st788796 发表于 2015-2-23 15:59:13

最小二乘法直线拟合

本帖最后由 st788796 于 2015-2-23 16:01 编辑

http://www.cnblogs.com/gnuhpc/archive/2012/12/09/2810000.html

将其中的 C++ 代码翻译为 alisp
**** Hidden Message *****
测试代码

(defun c:tt (/ pts ss sl ptl)
(if (setq ss (ssget '((0 . "point"))))
    (progn
      (setq sl (sslength ss))
      (while (setq e (ssname ss (setq sl (1- sl))))
      (setq pts (cons (cdr (assoc 10 (entget e))) pts))
      )
      (setq ptl (polyfit pts))
      (entmake (list '(0 . "line") (cons 10 (caar ptl)) (cons 11 (cadar ptl)) '(62 . 1)))
      (entmakex      (append      '((0 . "LWPOLYLINE") (100 . "AcDbEntity") (100 . "AcDbPolyline"))
                        (list (cons 90 (length (cadr ptl))))
                        (mapcar '(lambda (x) (list 10 (car x) (cadr x))) (cadr ptl))
                )
      )
    )
)
(princ)
)
运行效果

HLCAD 发表于 2015-2-23 19:00:00

向楼主拜年了！研究一下看能否拟合成大圆弧，用于折弯薄板，经斜切，再将薄板展开为 2d，将折弯（转角）处，用近似圆弧进行过渡。

819534890 发表于 2015-2-24 01:34:49


研究研究。

天青色 发表于 2015-2-24 16:21:40

谢谢楼主的分享

杜流浪人 发表于 2015-2-24 16:35:05

{:soso_e179:}

434939575 发表于 2015-2-25 17:47:00

太强大了！

kkt123 发表于 2015-2-25 22:11:42

你帮列个表示意下吧:@

ko-end 发表于 2015-2-26 22:58:55

wwwwwwwwwwwwwwwwwwwwwwww

434939575 发表于 2015-2-27 09:07:50

太神奇了，想看下fix函数进一步学习，多谢分享！

duotu007 发表于 2015-2-28 08:39:29

感谢分享，学习。。。。。。。。。。。。。

q3_2006 发表于 2015-2-28 10:54:02

学习学习....

cxjzxf 发表于 2015-2-28 12:36:51

thank you

auva 发表于 2015-3-1 08:35:44

学习lisp的写法，感恩！

GFspringwillow 发表于 2015-3-2 14:31:46

又一个好东西啊

zyhandw 发表于 2015-3-3 11:20:53

polyfit函数呢？
页: [1] 2 3 4
查看完整版本: 最小二乘法直线拟合