在MeteoInfoLab中编程绘制三维玫瑰花。

[x,t] = meshgrid(array(range(25))/24.0, arange(0,575.5,0.5)/575*17*pi-2*pi)
p = (pi/2)*exp(-t/(8*pi))
u = 1-(1-mod(3.6*t,2*pi)/pi)**4/2
y = 2*(x**2-x)**2*sin(p)
r = u*(x*sin(p)+y*cos(p))
axes3d()
grid(False)
surf(r*cos(t), r*sin(t), u*(x*cos(p)-y*sin(p)), 40, facecolor='interp', 
    edgecolor=None)