原由是「數學文化」的一條微博,一個標準的圓環被一個平面所截,截面有多是什麼圖形呢?其中有一種特殊狀況很難想象,是兩個相交的圓,個人想象力實在是不夠......spa
因而乎,本身必須驗證一下這種狀況,確實頗有意思code
好人作到底,上代碼 blog
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}]]