rhino script 莫比乌斯嵌套曲面

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

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

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

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

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

支持一下！！！！！

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

回去好好研究研究~

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

感谢分享，谢谢谢谢

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

谢谢谢谢，感谢分享

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

看看~~~{:3_50:}

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

goooooooooood

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

好神奇的莫比乌斯环

同行 · 发表于 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),怎么回事？王老师这本书真心看不懂

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

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

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