wolfram-mathematica - 在 Mathematica 8 的同一张图中标记不同的图

Question

我对在 Mathematica 中标记绘图有疑问。我将描述我的问题。

我有一个这样的函数。

y = 4 x / L + 2

我想绘制 y 与 x 的关系图。还有，我有

L={10,20,30,40}

当我编写如下代码时，

Plot[y, {x, 0, 100}, 
    ImageSize -> Scaled[1.0], PlotLabel ->  Style["y vs X ", FontSize -> 18]]

我在同一张图中有四个不同的图。我想知道如何用相关的 L 值标记每个地 block 。

Answer 1

根据我之前的帖子 here，您可以使用此方法随意标记行.标注后，可以发现没有动态内容的图设置为plainplot。

它的工作原理是将每一行变成一个 self 标记的按钮。您可以为不同的标签修改 labels。

l = {10, 20, 30, 40};
y[x_, s_] := 4 x/s + 2

plot = Plot[Evaluate@Table[y[x, u], {u, l}], {x, 0, 100},
   PlotLabel -> Style["y vs X ", FontSize -> 18]];

pos = Position[plot, _Line];
Array[(line[#] = plot[[Sequence @@ pos[[#]]]]) &, Length@l];
AddLabel[label_] := Module[{},
  AppendTo[plot[[1]], Inset[Framed[label, Background -> White], pt]];
  (* Removing buttons for final plot *)
  plainplot = plot;
  Array[
   (plainplot[[Sequence @@ pos[[#]]]] =
      plainplot[[Sequence @@ Append[pos[[#]], 1]]]) &, Length@l]]
labels = ToString /@ l;
Array[
  (plot[[Sequence @@ pos[[#]]]] =
     Button[line[#], AddLabel[labels[[#]]]]) &, Length@l];
Dynamic[EventHandler[plot,
  "MouseDown" :> (pt = MousePosition["Graphics"])]]