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

  去失落边框，用Frame->False；
  ContourStyle 决议等高线的外形特征。
  例如：
ContourPlot[x^x + y^y == 5/3, {x, 0, 1}, {y, 0, 1},
ContourStyle -> {Blue, Thickness[0.01]}, Axes -> False,
Frame -> False, ImageSize -> {500, 500}]
  这是一条蓝色的曲线，宽度为0.01 。

文章插图

2   PlotLabel 给图形添加标签，一般位于顶部；
  LabelStyle 决议标签的外不雅特征。
  把上面的代码加以点窜：
ContourPlot[x^x + y^y == 5/3, {x, 0, 1}, {y, 0, 1},
ContourStyle -> {Blue, Thickness[0.01]}, Axes -> False,
Frame -> False, PlotLabel -> Style[x^x + y^y == 5/3, 20],
LabelStyle -> Directive[Bold, Blue], ImageSize -> {500, 500}]
  于是，图形上边有了一个标签。

文章插图

3   Ticks 给出坐标轴的具体刻度值。用“非圆弧等宽曲线”为例，分“有坐标轴”和“没有坐标轴”两类。
  “有坐标轴”的代码：
F[x_, y_] := (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);
ContourPlot[F[x, y] == 0, {x, -10, 10}, {y, -10, 10}, ContourStyle -> {Blue, Thickness[0.01]}, Axes -> True, Frame -> False, Ticks -> {{-10, 6, 8}, {0, 1, 6}}, PlotLabel -> F[x, y] == 0, AspectRatio -> Automatic]
  “没有坐标轴”的代码：
ContourPlot[F[x, y] == 0, {x, -10, 10}, {y, -10, 10}, ContourStyle -> {Blue, Thickness[0.01]}, Axes -> False, Frame -> False, PlotLabel -> F[x, y] == 0, AspectRatio -> Automatic]
  这里呈现一个问题：用Mathematica给图形添加标签，若是标签出格长，如下图那样不克不及完整显示，应该怎么办？

文章插图

文章插图

4   用虚线作为等高线， ContourStyle->Dashed；
  等高线完全透明， ContourStyle->None 。
  代码两个：
ContourPlot[F[x, y], {x, -10, 10}, {y, -10, 10}, ContourStyle -> Dashed]
  和
ContourPlot[F[x, y], {x, -10, 10}, {y, -10, 10}, ContourStyle -> None]