又见绘图问题,再加上每次自己写刻度什么的太累了,干脆写了几个函数
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个参数可略)用于生成刻度值