[编程申请]：近似随机的画圆的求助

kevinchan · 发表于 2005-4-12 20:54:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

谁能帮忙用LSP编一个程序,就近似乱数排列的不规则圆点.圆点半径是一样大(根据用户输入),圆与圆之间不能相交.
由疏到密的排列,最好可以用滑条的形式来调整疏密程度...

谢谢!

Kevin Chan
QQ:7428076
e-mail:byled@126.com

xyp1964 · 发表于 2005-4-14 23:45:52

1000个点，pdmode=33，pdsize=10效果：

狂刀 · 发表于 2005-4-15 00:00:30

人家要的是密度有变化的，又不是随机点．

xyp1964 · 发表于 2005-4-15 00:13:37

如果密度没有变化就变成阵列了，如何体现“近似乱数排列”，呵呵……

狂刀 · 发表于 2005-4-16 02:10:12

随机圆与＂有密度变化＂的要求还有一定的距离

kevinchan · 发表于 2005-4-16 10:05:48

是不是很难实现?

xyp1964 · 发表于 2005-4-16 14:40:57

如果“有密度变化”这样就不能称之为“随机”了！
试试：
[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

(defun c:test ()
  (cmdla0)
  (command ".undo" "BE")
  (setq no1 (ureal 1 "" "\n最下层圆个数" no1)
pt1 (getpoint "\n窗口左下角点 : ")
pt2 (getcorner pt1 "\n对角点 : ")
pt0 pt1
leng (abs(/ (- (car pt1) (car pt2)) no1))
rad (/ leng 2.2)
dx-max (car pt2)
dy-max (cadr pt2)
  )
  (setvar"osmode"0)
  (mkla"随机圆"3)
  (while (< (cadr pt1) dy-max)
(command "circle" pt1 rad)
(while (< (car pt1) dx-max)
   (setq pt1 (polar pt1 0 leng))
   (if(< (car pt1) dx-max)
   (command "circle" pt1 rad))
)
(setq sjs-n(/(sjs 50)100.0))
(if (<= sjs-n 0.45)
   (setq sjs-n 0.495)
   )
(setq leng (* leng 1.1)
   pt1  (polar pt0 (* pi sjs-n) leng)
   pt0  pt1
)
  )
  (command ".undo" "E")
  (cmdla1)
)
[/php]
效果：

xyp1964 · 发表于 2005-4-16 16:25:03

再发一个“立体画”：

ivysoft · 发表于 2005-4-16 17:57:36

倒是挺漂亮的

狂刀 · 发表于 2005-4-16 18:18:33

最初由 xyp1964 发布
[B]如果“有密度变化”这样就不能称之为“随机”了！
试试：
[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

(defun c:test ()
... [/B]

我，或者楼主说的密度变化，就是在竖向点的疏密有变化，
你的演示，很＂整齐＂还没有做到真正的随机．不难看出ｘ，ｙ方向有规律．

kevinchan · 发表于 2007-5-12 11:37:12

没错，要能密度变化的同时，看不出有规律

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

[编程申请]：近似随机的画圆的求助

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子