将公式插入图中

Question

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

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

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

Answer 1

抱歉迟到了: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 - > Inset [HoldForm @ TraditionalForm [

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

或者使用Epilog - > Inset [Panel @ HoldForm @ TraditionalForm ...为这个函数提供一个漂亮的框:

Answer 2

也许这可以让你入手？

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]]]