怎么给边框加上箭头

Question

g[w_](*电子电场漂移作图*):= 
 Module[{phy = w(*初相位*), \[Omega]t, tra, x, p1, p2, u, result}, 
   trajectory[\[Omega]t_, \[Omega]t0_] := (x[\[Omega]t] /. 
      First@DSolve[
        {x''[\[Omega]t] == -Cos[\[Omega]t], x'[\[Omega]t0] == 0, 
         x[\[Omega]t0] == 0}
        , x, \[Omega]t
        ]);
   result = \[Omega]t /. 
     NSolve[{trajectory[\[Omega]t, phy] == 0, \[Pi]/2 <= \[Omega]t < 
         2 \[Pi]}, \[Omega]t][[1]];
   u = Evaluate@2 (Sin[phy] - Sin[result])^2;
   (*Print[u];*)tra = trajectory[\[Omega]t, phy];
   result = \[Omega]t /. FindRoot[tra == 0, {\[Omega]t, #}] & /@ 
     Range[0, 2 Pi];
   p1 = Plot[-tra, {\[Omega]t, Min@result, Max@result}, 
     PlotStyle -> Blend[{Red, Green, Blue}, RandomReal[]], 
     ImageSize -> 600, PlotRange -> All, 
     Frame -> {{True, False}, {True, False}}, 
     FrameLabel -> {Style["\[Omega]t", FontSize -> 20], 
       Style["x(a.u)", FontSize -> 20]}, 
     LabelStyle -> 
      Directive[Red, Bold, FontSize -> 20, Arrowheads[{0.03}]](*,
     PlotLegends\[Rule]Placed[LineLegend[{"E="<>ToString[u]<>
     "  \[Phi]="<>ToString[phy]},
     LabelStyle\[Rule]{FontSize\[Rule]20}],{Scaled[{1,1}], {1, 
     1}}]*)]] // Quiet
     
     
     
     Table[g[i], {i, 0.1, Pi/2, 0.1}] // Show

我想给边框加上箭头，向坐标轴那样

 

 

或者说怎么将坐标轴的标签放到下面

Answer 1

貌似两个不可兼得，需要变通一下：用Axes画坐标，用Inset显示坐标轴标签。

g[w_](*电子电场漂移作图*):= 
 Module[{phy = w(*初相位*), \[Omega]t, tra, x, p1, p2, u, result}, 
   trajectory[\[Omega]t_, \[Omega]t0_] := (x[\[Omega]t] /. 
      First@DSolve[{x''[\[Omega]t] == -Cos[\[Omega]t], 
         x'[\[Omega]t0] == 0, x[\[Omega]t0] == 0}, x, \[Omega]t]);
   result = \[Omega]t /. 
     NSolve[{trajectory[\[Omega]t, phy] == 0, \[Pi]/2 <= \[Omega]t < 
         2 \[Pi]}, \[Omega]t][[1]];
   u = Evaluate@2 (Sin[phy] - Sin[result])^2;
   (*Print[u];*)tra = trajectory[\[Omega]t, phy];
   result = \[Omega]t /. FindRoot[tra == 0, {\[Omega]t, #}] & /@ 
     Range[0, 2 Pi];
   p1 = Plot[-tra, {\[Omega]t, Min@result, Max@result}, 
     PlotStyle -> Blend[{Red, Green, Blue}, RandomReal[]], 
     ImageSize -> 600, PlotRange -> All,
     AxesStyle -> Directive[Arrowheads[0.05], Red],
     Epilog -> {Inset[
        Style["\[Omega]t", Red, FontSize -> 20], {Center, -0.2}], 
       Inset[Rotate[Style["x(a.u)", Red, FontSize -> 20], 
         90 Degree], {-0.4, Center}]},
     LabelStyle -> Directive[Red, Bold, FontSize -> 20]
     ]
   ] // Quiet

Show[Table[g[i], {i, 0.1, Pi/2, 0.1}], 
 PlotRange -> {{-0.5, 5}, {-0.2, 2}}]

 

Comments

谢谢老大，但是有个问题，怎么将横轴稍微延长一些？

---

可以将PlotRange的范围设置得更宽些

---

明白了 谢谢坛主