mathematica 绘图终结者 关于画出高质量的可以用在论文里面或者出版的图形

群里又在讨论绘图软件的问题，我的看法是全能的还要自己玩的溜的才是最好的，比如这个图

当场感觉mma不服，然后就有了以下代码（看着比较长。。。实际上除了Ticks里面的部分，其他内容都是可以复制粘贴重复利用的，个人感觉比某些软件一遍一遍鼠标点点点方便多了）

Plot[{0.5 (1 + Cos[2 x]), 0.25 (1 - Cos[2 x])}, {x, -1.8, 5}, 
 Ticks -> {Table[
    If[Mod[i, 2] == 0, {i Pi/4, i Pi/4, {0.015, 0}}, {i Pi/4, 
      "", {0.015, 0}}], {i, -2, 6}], 
   Table[If[
     Mod[i, 2] == 0, {i/10, i/10., {0.01, 0}}, {i/10, 
      "", {0.01, 0}}], {i, 0, 10}]}, AspectRatio -> 0.3, 
 AxesOrigin -> {-1.8, 0}, 
 TicksStyle -> Directive[Black, FontFamily -> "CMU Serif", 12], 
 AxesStyle -> Black, PlotStyle -> Directive[Black, Thin], 
 PlotLabel -> 
  Style["Figure 1: Detection probabilities, no loss", Black, 12, 
   FontFamily -> "CMU Serif"], Epilog -> Line@{{0, 0}, {0, 1}}]

觉得比原图好看就点个赞吧