Mathematica 自定义的几个关于美化绘图的函数

又见绘图问题，再加上每次自己写刻度什么的太累了，干脆写了几个函数

FStyle[size_:10.5,font_:"Times New Roman"]:={
  AxesStyle->Black,
  TicksStyle->Directive[Black,size,FontFamily->font],
  FrameTicksStyle->Directive[Black,size,FontFamily->font]}
FTicks[min_,max_,d_,n_:5,s_:0,len_:.01]:=Block[{x},
  Table[x=min+i*d;
    If[Abs@FractionalPart@x<10^-10,x=Round@x];
    If[Mod[i-s,n]==0,
    {x,x,{2len,0}}, {x,"",{len,0}}],{i,0,(max-min)/d}]]
FText[text_, coords_, size_: 10.5, font_: "Times New Roman"] := 
 Text[Style[text, FontSize -> size, FontFamily -> font], coords]

使用方法示例：
Evaluate@FStyle[字号, 字体]（参数可略）放在Plot系列函数内部
FTicks[最小值, 最大值, 小刻度间隔, 大刻度间隔数, 大刻度偏移量, 刻度线长度]（后3个参数可略）用于生成刻度值