画彩色蜗牛程序
vb吧
全部回复
仅看楼主
level 1
banjinjiu33 楼主
最近无意中发现《matlab画彩色蜗牛程序》,见http://blog.sina.com.cn/s/blog_93fda64f01015z2s.html
我对这个很有兴趣。因为完全不懂matlab,自己随便改了该程序,但还没有达到源程序的效果,不满意

麻烦各位老师,帮帮我,改成VB的。
谢谢。
2021年10月08日 04点10分 1
level 1
banjinjiu33 楼主
不好意思,带插图的,不会排版,就乎看吧,请有能力的老师帮忙,谢谢。
2021年10月08日 04点10分 2
level 1
banjinjiu33 楼主
源程序为
%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])
2021年10月08日 04点10分 3
level 1
banjinjiu33 楼主
不太好画吧?
2021年10月10日 01点10分 4
level 11
matlab不懂,顶一下等大佬出手。
2021年10月12日 02点10分 5
谢谢老师支持
2021年10月13日 00点10分
1