rhino script 莫比乌斯嵌套曲面

ajun · 发表于 2011-8-7 01:00:14

Call main()
Sub main()

n=80

m=80

Dim pts()

ReDim pts(n*m-1)

For i=0 To n-1

u=2*rhino.Pi*(2*(i/(n-1))-1)

For j=0 To m-1

v=2*rhino.Pi*(2*(j/(m-1))-1)

pts(i*m+j)=surface(u,v)

Next

Next

rhino.addsrfptgrid array(n,m),pts

End Sub

Function surface(u,v)

x=cos(u)*(4+3*sin(v)*cos(u/1)-3*sin(2*v)*sin(u/1)/2)

y=sin(u)*(4+3*sin(v)*cos(u/1)-3*sin(2*v)*sin(u/1)/2)

z=(s*sin(u/1)*sin(v)+5*cos(u/1)*sin(2*v)/1)

surface=array(x,y,z)
End Function

我小试了用程序建模
请高手来解析这里面的逻辑
这是王文栋书中的赠送的经典曲面编程过程
望王文栋学长不要责怪只是为了更好的交流与学习

lorenzo13 · 发表于 2012-11-1 21:04:37

代码中间需要对各种常量定义啦，每段前加一点就可以运行了
Call Main()
Sub Main()
Dim n,m
n=30
m=90
Dim pts()
ReDim pts(n*m-1)
Dim i,j,u,v
For i=0 To n-1
u=2*rhino.Pi*i/(n-1)
For j=0 To m-1
v=2*rhino.Pi*j/(m-1)
pts(i*m+j)=surface(u,v)
Next
Next
rhino
rhino.AddSrfPtGrid Array(n,m),pts
End Sub
Function surface(u,v)
Dim x,y,z
y=(2+cos(v/2)*sin(u)-sin(v/2)*sin(2*u))*cos(v)
z=sin(v/2)*sin(u)+cos(v/2)*sin(2*u)
x=(2+cos(v/2)*sin(u)-sin(v/2)*sin(2*u))*sin(v)
surface=Array(x,y,z)

End Function

同行 · 发表于 2012-9-23 13:55:01

n = 60
m = 15
Dim pts()
ReDim pts(n*m-1)

For i=0 To n-1
u = 2*Rhino.pi*i/(n-1)

For j = 0 To m-1
v =2*Rhino.pi*j/(m-1)

pts(i*m+j) = surface(u,v)
Next
Next

Rhino.addSrfPtGrid Array(n,m), pts

End Sub

Function surface(u,v)

x=(2 + cos(v/2)*sin(u)-sin(v/2)*sin(2*u))*cos(v)
y=sin(v/2)*sin(u)+cos(v/2)*sin(2*u)
z=(2+cos(v/2)*sin(U)-sin(v/2)*sin(2*u))*sin(v)

surface=Array(x,y,z)
End Function
我输入之后，运行时出现（没定义变量n),怎么回事？王老师这本书真心看不懂

shisanlang · 发表于 2012-2-2 10:54:47

好神奇的莫比乌斯环

togacoga · 发表于 2012-1-29 23:41:17

goooooooooood

戏水云烟 · 发表于 2011-11-1 13:21:12

看看~~~{:3_50:}

zhangchunwei · 发表于 2011-10-29 00:57:15

谢谢谢谢，感谢分享

zhangchunwei · 发表于 2011-10-29 00:56:55

感谢分享，谢谢谢谢

jasonroc · 发表于 2011-10-28 23:37:47

回去好好研究研究~

lorenzo13 · 发表于 2011-10-18 03:09:20

支持一下！！！！！

liyanyanhong · 发表于 2011-10-15 12:15:02

.............................{:3_46:}

www.yyssf.com · 发表于 2011-8-20 02:58:44

大家好我是新来的请大家多关照啊

MOL · 发表于 2011-8-9 21:27:58

NCF ARCHITECTURE DESIGNS 这字体是什么字体啊帮忙告诉一下呗！！！

jianzhudashi · 发表于 2011-8-8 13:42:20

grasshopper 能做成这样吗

jianzhudashi · 发表于 2011-8-8 13:41:51

哎现在的水平力这个还很远啊

architectman · 发表于 2011-8-8 10:03:48

。。。对对我失败了一下没看出来 6# ajun

ajun · 发表于 2011-8-7 16:34:30

17# lyjackson 是王文栋写的《rhino script 参数建模》中国青年出版社出版当当卓越均有销售

lyjackson · 发表于 2011-8-7 16:29:25

这个真帅，想问作者是自己写的吗？

ajun · 发表于 2011-8-7 15:08:46

是《rhino script 参数建模》王文栋编著中国青年出版社发行新华书店当当和卓越上都有买

阿龟 · 发表于 2011-8-7 14:59:56

我想知道是哪本书啊？

帐号		自动登录	找回密码
密码			注册

[工作记录] rhino script 莫比乌斯嵌套曲面