最近无意中发现《matlab画彩色蜗牛程序》，见http://blog.sina.com.cn/s/blog_93fda64f01015z2s.html。
我对这个很有兴趣。因为完全不懂matlab，自己随便改了该程序，但还没有达到源程序的效果，不满意
。
麻烦各位老师，帮帮我，改成VB的。
谢谢。
我对这个很有兴趣。因为完全不懂matlab，自己随便改了该程序，但还没有达到源程序的效果，不满意
。
麻烦各位老师，帮帮我，改成VB的。
谢谢。
vb吧 关注：156,200贴子：1,165,782
- 5回复贴，共1页
源程序为
%matlab画彩色蜗牛程序
t = linspace(0, 2*pi, 512);
[u,v] = meshgrid(t);
a = -0.4; b = .5; c = .1;
n = 3;
x = (a*(1 - v/(2*pi)) .* (1+cos(u)) + c) .* cos(n*v);
y = (a*(1 - v/(2*pi)) .* (1+cos(u)) + c) .* sin(n*v);
z = b*v/(2*pi) + a*(1 - v/(2*pi)) .* sin(u);
surf(x,y,z,y)
axis off
axis equal
colormap(hsv(1024))
shading interp
material shiny
lighting phong
camlight('left', 'infinite')
view([-160 25])
%matlab画彩色蜗牛程序
t = linspace(0, 2*pi, 512);
[u,v] = meshgrid(t);
a = -0.4; b = .5; c = .1;
n = 3;
x = (a*(1 - v/(2*pi)) .* (1+cos(u)) + c) .* cos(n*v);
y = (a*(1 - v/(2*pi)) .* (1+cos(u)) + c) .* sin(n*v);
z = b*v/(2*pi) + a*(1 - v/(2*pi)) .* sin(u);
surf(x,y,z,y)
axis off
axis equal
colormap(hsv(1024))
shading interp
material shiny
lighting phong
camlight('left', 'infinite')
view([-160 25])
