发个空间中的玫瑰曲面和玫瑰曲线(原创)

minjiecow

Manipulate[
SphericalPlot3D[
  1 + a*Sin[3 t] Sin[2 v], {t, 0, Pi}, {v, 0, 2 Pi}], {a, 0, 5}]
第三个图的程序有点长,这里没有给出了,管道的中轴线就是一条在空间中打了结的玫瑰曲线!获得它的参数方程灵感来自默比乌斯带!

FreddyMusic

参数方程比较简单，再说这些东西 MathWorld 上都有现成的公式。把它们输入Mathematica 就能出图。

我觉得你那些分形图搞得还有点一意思，如果是基于并行算法的那还是不赖的。

FreddyMusic

你可以用 ImageSize 来固定 Manipulate 种图形的尺寸，原来的比较抖，我改了一下。

1. 
   
2. Manipulate[SphericalPlot3D[1+a*Sin[3 t] Sin[2 v],{t,0,Pi},{v,0,2 Pi},ImageSize-> {400,400}],
   
3. {a,0,5}]
   

复制代码

minjiecow

呵呵,第一个是简单,第二个关于空间中的打结的曲线和管道就比较难了,相似的我没有见到过,
老大,其实有些分形的程序很简单的,我还是发几个吧!!