3

我正在尝试在我的 Plot 上科学格式化刻度标签，这在某种程度上是一个框架。通过搜索 Mathgroup 档案，看起来弄乱刻度标签的常用方法是使用 AbsoluteOptions 提取它们，使用自定义格式运行替换规则，然后使用 Ticks->{... 显式地将它们提供给绘图函数} 选项。但是，以下内容不适用于 FrameTicks：

makePlotLegend[names_, markers_, origin_, markerSize_, fontSize_, 
   font_] := 
  Join @@ Table[{Text[Style[names[[i]], FontSize -> fontSize, font], 
      Offset[{1.5*markerSize, -(i - 0.5)*
         Max[markerSize, fontSize]*1.25}, Scaled[origin]], {-1, 0}], 
     Inset[Show[markers[[i]], ImageSize -> markerSize], 
      Offset[{0.5*markerSize, -(i - 0.5)*
         Max[markerSize, fontSize]*1.25}, Scaled[origin]], {0, 0}, 
      Background -> Directive[Opacity[0], White]]}, {i, 1, 
     Length[names]}];

LJ[r_] := 4 e ((phi/r)^12 - (phi/r)^6)

phi = 2.645;
e = 10.97 8.621738 10^-5;

l1 = Plot[LJ[r], {r, 2, 11}, PlotStyle -> {Blue}, 
  PlotRange -> {{2, 6}, {0.001, -0.002}}, Frame -> True,
  LabelStyle -> {8}, 
  Epilog -> 
   makePlotLegend[{"He-He", 
     "H-H"}, (Graphics[{#, Line[{{-1, 0}, {1, 0}}]}]) & /@ {Blue, 
      Red}, {0.80, 0.35}, 7.5, 7.3, "Times New Roman"]]
4

0 回答 0