起因是“數學文化”的一條微博,一個標准的圓環被一個平面所截,截面有可能是什么圖形呢?其中有一種特殊情況很難想象,是兩個相交的圓,我的想象力實在是不夠......
於是乎,自己必須驗證一下這種情況,確實很有意思
好人做到底,上代碼
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}]]