昨天有人问我说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"] ]
后续写函数封装......
