用Mathematica处理多点调控曲面

1、先来画一个简单的三点调控曲面（三个点都是正调控点）：TraditionalForm[1/Sqrt[Abs[-1 + x]^2 + Abs[-2 + y柯计瓤绘]^2 + Abs[-3 + z]^2] + 1/Sqrt[Abs[x]^2 + Abs[-1 + y]^2 + Abs[-2 + z]^2] + 1/Sqrt[Abs[-1 + x]^2 + Abs[y]^2 + Abs[-2 + z]^2] == 2.6]运行之后，再来：ContourPlot3D[Evaluate[%], {x, -3, 3}, {y, -2, 4}, {z, 0, 6},Axes -> False, Boxed -> False, ContourStyle -> {Opacity[0.5], Blue}]

3、当右面数值变大，图形就会越来越“消瘦”：ContourPlot3D[1/Sqrt[Abs[-1 + x]^2 + Abs[-2 + y]^2 + Abs[-3 + z]^2] + 1/Sqrt[Abs[x]^2 + Abs[-1 + y]^2 + Abs[-2 + z]^2] + 1/Sqrt[Abs[-1 + x]^2 + Abs[y]^2 + Abs[-2 + z]^2] == 2.85

5、上述过程导出GIF图片：Export["C:\\Users\\Administrator\\Desktop\\0.gif",……]