绘图日志功能

Question

我是Mathematica的初学者，我想绘制这个日志（（x + y）/ y）。我做了一些尝试，如下面但它仍然显示如下错误。你能告诉我语法有什么问题吗？

LogLogPlot [{log [（x + y）/ y]}，{x，0.1,3}，{y，0.1,3}]

LogLogPlot :: nonopt：在LogLogPlot [{log [（x + y）/ y]}，{x，0.1,3}，{y}中超出位置2的预期选项（而不是{y，0.1,3}） ，0.1,3}]。选项必须是规则或规则列表。

Answer 1

引用此question和answer。

pl = Normal@ContourPlot[Log[(x + y)/y],
     {x, 0.1, 3}, {y, 0.1, 3}, PlotPoints -> 100];

ListLogLogPlot[Cases[pl, Line[a_, b___] :> a, Infinity],
 Joined -> True, Frame -> True, PlotRange -> All,
 AspectRatio -> 1, PlotStyle -> ColorData[1][1]]

Answer 2

您可以将Plot3D与ScalingFunctions选项一起使用。

Plot3D[Log[(x + y)/y], {x, 0.1, 3}, {y, 0.1, 3},
 ScalingFunctions -> {None, None, "Log"},
 MeshFunctions -> {#3 &},
 BoxRatios -> Automatic]

单击并拖动绘图以旋转。另请注意，Wolfram语言区分大小写，因此它是Log而不是log。

希望这有帮助。