NCF参数化建筑论坛

标题: 一个干涉波纹面 [打印本页]

作者: 夜神 时间: 2010-12-13 22:57
标题: 一个干涉波纹面
[attach]13231[/attach]

[attach]13232[/attach]

Option Explicit
run
Sub run()
Dim i,j,x,y,z,d1,d2,p() :ReDim p(201*201-1)
For i=0 To 200
For j=0 To 200
x=-100+i
y=-100+j
d1=Sqr((x-50)^2+(y-50)^2)
d2=Sqr((x+50)^2+(y+50)^2)
z=Sin(0.5*d1)+Sin(1.0*d2)
p(i*201+j)=Array(x,y,z)
Next
next
Rhino.AddSrfControlPtGrid Array(201,201), p, Array(2,2)
End Sub

作者: lyyl 时间: 2010-12-13 23:04
学习了，谢谢

作者: claudemit 时间: 2010-12-14 03:26
学习了，简单好哟

作者: SDK 时间: 2010-12-14 08:37
向楼主学习!

作者: modern 时间: 2010-12-14 17:19
有波最美这个涟漪短小精干

作者: jackdesign 时间: 2010-12-15 15:19
看不懂
太深了
不過很NB

作者: 最牛的粽子 时间: 2010-12-15 17:18
多谢多谢。。。学习一下

作者: pipi 时间: 2011-6-23 14:31
非常强大。。。楼主厉害。。

作者: ctctwin 时间: 2011-6-26 10:25
牛了，script对数学要求高么

作者: 夜神 时间: 2011-7-10 13:58

牛了，script对数学要求高么
ctctwin 发表于 2011-6-26 10:25

登录/注册后可看大图

初中数学也算数学？

作者: baroque2011 时间: 2011-7-22 11:24
楼主很给力哇...

作者: cnvcnv 时间: 2011-7-26 14:46
看不懂
太深了
不過很NB

作者: anboyh 时间: 2011-11-7 16:08
谢谢楼主拿出这么多的实例分享。

作者: dingye 时间: 2011-11-8 11:16
geili~~~~~~~~~~~~~~

作者: ccocean 时间: 2012-8-15 00:37
厉害啊厉害!

作者: liqianno1 时间: 2013-1-7 22:40
很好啊~~~~~~~~~

作者: ζ无名可取 时间: 2013-2-4 01:27
学习了。谢谢

作者: porridge1989 时间: 2013-3-26 22:40
顶起，楼主做的这个东西很有感觉。

欢迎光临 NCF参数化建筑论坛 (http://ncf-china.com/)