标签：
起因是“数学文化”的一条微博，一个标准的圆环被一个平面所截，截面有可能是什么图形呢？其中有一种特殊情况很难想象，是两个相交的圆，我的想象力实在是不够......
于是乎，自己必须验证一下这种情况，确实很有意思
好人做到底，上代码
Export["d:/d.gif", Table[ ContourPlot3D[{(18 + x^2 + y^2 + z^2)^2 == 80 (x^2 + y^2)},{x, -8, 8}, {y, -8, 8}, {z, -6, 6}, ColorFunction -> Function[{x, y, z, f}, ColorData["Rainbow"][z]], PlotPoints -> 50, ClipPlanes -> {a, 0, -4, 0}, ClipPlanesStyle -> {Directive[Opacity[.4], RGBColor[.9, .4, 0]]}, Mesh -> None], {a, -3, 2, .05}]]
标签：
原文地址：http://www.cnblogs.com/easymind223/p/4523768.html
