最小二乘法直线拟合

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

游客，如果您要查看本帖隐藏内容请回复

测试代码

(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函数呢？

账号		自动登录	找回密码
密码			立即注册

[分享] 最小二乘法直线拟合