Mathematica中的TicksOut函数

2022-08-29  本文已影响0人  phyiuang

昨天有人问我说mathematica中如何设置如下图的样式

mathematica没有对应函数,但是通过查看FramTicks函数的帮助文档,发现里面可以设置Ticks的长度

于是简单设置了一下得到了这样的结果

对数图原理一样。

Code:

leftTicks=({#,#,{0,.02}}&/@Range[-1,1,0.5])~Join~({#,"",{0,.01}}&/@((Range[-10,10,1]/.x_/;Mod[x,5]==0->Nothing)/10.));bottomTicks=({#,#,{0,.02}}&/@Range[0,2Pi,0.5])~Join~({#,"",{0,.01}}&/@((Range[0,20Pi,1]/.x_/;Mod[x,5]==0->Nothing)/10.));Plot[Sin[x],{x,0,2Pi},PlotRange->All,Frame->True,  FrameTicks->{{leftTicks,None},{bottomTicks,None}},FrameTicksStyle->Directive[Black,12,FontFamily->"Times"]  ]

后续写函数封装......

上一篇 下一篇

猜你喜欢

热点阅读