用Mathematica处理多点调控曲面

 时间:2024-10-12 07:15:01

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}]

用Mathematica处理多点调控曲面

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

用Mathematica处理多点调控曲面

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

用Mathematica处理多点调控曲面
  • 在亿图图示中创建手动开关图的方法
  • 如何在autocad中加标注
  • 双曲正切值怎么用TANH函数计算
  • Word中怎么输入cot余切函数
  • 使用CAD绘制取样单元图形符号
  • 热门搜索
    沈阳旅游景点 西昌旅游 旅游翻译 康定旅游攻略 凤凰旅游攻略 青岛旅游景点大全 海南旅游地图 栾川旅游 昆明旅游景点大全 宣城旅游