用mathematica画一个苹果，代码是什么?_? 谢谢！

如题所述

由于苹果是个上下凹进去的球，因此可以考虑圆环体作为苹果的基体，然后对圆环体进行压缩变化，就可以画出苹果来了，整个过程看起来还是相当简单的。然而怎样用函数去优化它的形状做起来还是有点麻烦的，比如中间给图形添加涟漪以使它出现凹凸不平的样子，以及最后给苹果添加翘曲的瓣瓣，这些地方我都试了很多次，修改了很多次。既要注意它的形状又要保证所有的函数必须连为一体，因为我想要的是一个完整的“苹果函数”，而不是由几个独立的函数拼凑起来。

整个画图过程可分一下几步：

1，将圆环体压实，并进行初步变化
2，在第1步的基础上添加涟漪
3，在第2步的基础上添加翘曲的瓣瓣
4，最后调整，上色，抛光，出图


下面是圆环体的图像：,

易知其参数方程为：

代码是什么