苹果函数

paradox2

1. 
   
2. ParametricPlot3D[{(1 + Cos[v]) Cos[u] +
   
3. 0.085 Cos[5 u] + (0.994 v/\[Pi])^100, (1 + Cos[v]) Sin[u],
   
4. 6 Sin[v] + 2 Cos[v] - 0.7 Log[1 - v/\[Pi]]}, {u, -\[Pi],
   
5. Pi}, {v, -\[Pi], Pi}, Mesh -> False, BoxRatios -> 1,
   
6. PlotStyle -> {Green, Specularity[Yellow, 10]}]

复制代码

具体画法见：http://hi.baidu.com/guishidan/blog/item/a2db6a78720be6e20ad18708.html

eigen

画出来很象苹果，谢谢你的分享！
    不过代码有小错误，把第一行的“Cos”和第二行的“Sin”分别改为：“Cos[u]”和“Sin[u]”，否则只能画出一个绿色三角形。