将公式插入图中

时间:2011-02-12 22:22:12

标签: wolfram-mathematica

将公式插入Plot的标准方法是什么?

我的情节如下。我希望将图表的公式很好地格式化并插入到图中。 TraditionalForm看起来没问题,但它将公式放在一行中,而我想要一个两行分数。

Plot[{1, (\[CapitalDelta] - 1)^(\[CapitalDelta] - 
   1)/(\[CapitalDelta] - 2)^\[CapitalDelta]}, {\[CapitalDelta], 3, 6},
  PlotRange -> {0, 4}, PlotStyle -> {Dashing[.02], Thick}, 
 AxesLabel -> {"\[CapitalDelta]", "\[Lambda]"}]

2 个答案:

答案 0 :(得分:6)

抱歉迟到了:D。我大多使用Leonid答案的简化版本。不确定它是否足够用于任何目的,但肯定在这里工作。

Plot[{1, (\[CapitalDelta] - 1)^(\[CapitalDelta] - 
      1)/(\[CapitalDelta] - 2)^\[CapitalDelta]}, {\[CapitalDelta], 3, 
  6}, PlotRange -> {0, 4}, PlotStyle -> {Dashing[.02], Thick}, 
 AxesLabel -> {"\[CapitalDelta]", "\[Lambda]"}, 
  

Epilog - >插图[HoldForm @ TraditionalForm [

   (\[CapitalDelta] - 1)^(\[CapitalDelta] - 1)/
   (\[CapitalDelta] - 2)^\[CapitalDelta]]]]  

enter image description here

或使用 Epilog - >插入[Panel @ HoldForm @ TraditionalForm ... 为功能周围的一个漂亮的框:

enter image description here

答案 1 :(得分:5)

也许这可以让你开始?

Plot[{1,(\[CapitalDelta]-1)^(\[CapitalDelta]-1)/(\[CapitalDelta]-2)^\[CapitalDelta]}, 
{\[CapitalDelta],3,6},PlotRange->{0,4},
PlotStyle->{Dashing[.02],Thick},AxesLabel->{"\[CapitalDelta]","\[Lambda]"},
Epilog->Inset[Style[
   HoldForm@@MakeExpression@MakeBoxes@TraditionalForm[(\[CapitalDelta]-1)^
   (\[CapitalDelta]-1)/(\[CapitalDelta]-2)^\[CapitalDelta]],10]]]