Mathematica绘制函数图像—隐函数图像( 二 ) _电脑

文章插图

文章插图

4   绘制x^x + y^y + z^z ==2.3的三维图形，要用到的号令函数是ContourPlot3D 。具体的格局与ContourPlot近似，独一的区别是，多了个变量z 。
  代码是：
ContourPlot3D[ x^x + y^y + z^z == 2.3, {x, 0, 1.1}, {y, 0, 1.1}, {z, 0, 1.1}]
  成果是一个封锁的三维曲面。
  一个近似的问题：要包管x^x + y^y+z^z=a的图像是封锁曲面， a的最年夜值和最小值别离是几多？

文章插图

例二：非圆弧的等宽曲线1   有一条闻名的等宽曲线，它分歧于Reuleaux三角形之流。因为它不是靠很多圆弧拼当作的，而是处处滑腻，可以由一个隐函数方程（一个8元2次多项式）给出来。以前，我用Desmos画出来了，那时只截了个图，没有贴代码。因为方程式很长，所以，这里把代码贴出来。
  Mathematica代码：
ContourPlot[(x^2 + y^2)^4 - 45 (x^2 + y^2)^3 - 41283 (x^2 + y^2)^2 + 7950960 (x^2 + y^2) + 16 (x^2 - 3 y^2)^3 + 48 (x^2 + y^2) (x^2 - 3 y^2)^2 - 720^3 + (x^2 - 3 y^2) x (16 (x^2 + y^2) ^2 - 5544 (x^2 + y^2) + 266382) == 0, {x, -10, 10}, {y, -10, 10}]
  Desmos代码是：
0=\left(x^2+y^2\right)^4-45\left(x^2+y^2\right)^3-41283\left(x^2+y^2\right)^2+7950960\left(x^2+y^2\right)+16\left(x^2-3y^2\right)^3+48\left(x^2+y^2\right)\left(x^2-3y^2\right)^2+x\left(x^2-3y^2\right)\left(16\left(x^2+y^2\right)^2-5544\left(x^2+y^2\right)+266382\right)-720^3
  对比成果如下：

文章插图

文章插图

2 等高线图：
ContourPlot[(x^2 + y^2)^4 - 45 (x^2 + y^2)^3 - 41283 (x^2 + y^2)^2 + 7950960 (x^2 + y^2) + 16 (x^2 - 3 y^2)^3 + 48 (x^2 + y^2) (x^2 - 3 y^2)^2 - 720^3 + (x^2 - 3 y^2) x (16 (x^2 + y^2) ^2 - 5544 (x^2 + y^2) + 266382), {x, -10, 10}, {y, -10, 10}]
【Mathematica绘制函数图像—隐函数图像】 可以发现，今世码里的式子变年夜，就不是等宽曲线了（变小时，不克不及必定）。于是有一个问题，怎么证实上面
里的曲线是等宽曲线？我不会，留着慢慢解答。