MMA绘图范围不全 不足四分之一

Question

fy = 235;
Es = 210*10^3;
\[CurlyEpsilon]e = 0.8 (235*10^6)/(210*10^9) // N;
\[CurlyEpsilon]e1 = 1.5 \[CurlyEpsilon]e;
\[CurlyEpsilon]e2 = 10 \[CurlyEpsilon]e1;
\[CurlyEpsilon]e3 = 100 \[CurlyEpsilon]e1;
A = 0.2*fy/(\[CurlyEpsilon]e1 - \[CurlyEpsilon]e)^2;
B = 2 A \[CurlyEpsilon]e1;
CC = 0.8*fy + A (\[CurlyEpsilon]e)^2 - B \[CurlyEpsilon]e;
\[CurlyEpsilon]e = 0.8 (235*10^6)/(210*10^9) // N;
f[x_] := Piecewise[{{210*10^3 x, 
    0 < x < \[CurlyEpsilon]e}, {-A x^2 + B x + CC, \[CurlyEpsilon]e <=
      x < \[CurlyEpsilon]e1}, {235, \[CurlyEpsilon]e1 <= 
     x < \[CurlyEpsilon]e2}, {235 (1 + 
       0.6 (x - \[CurlyEpsilon]e2 )/(\[CurlyEpsilon]e3 - \
\[CurlyEpsilon]e2)), \[CurlyEpsilon]e2 <= 
     x < \[CurlyEpsilon]e3}, {376, x >= \[CurlyEpsilon]e3}}]
g[x_] := x - f[x + \[CurlyEpsilon]e]/Es + \[CurlyEpsilon]e
Plot[g[x], {x, 0, 0.02 - \[CurlyEpsilon]e}, PlotRange -> All, 
 PlotStyle -> {Black, Thickness[0.004]}, 
 AxesStyle -> {{Black, Arrowheads[0.04]}, {Black, Arrowheads[0.04]}}, 
 PlotPoints -> 500]

但是去掉AxesStyle -> {{Black, Arrowheads[0.04]}, {Black, Arrowheads[0.04]}}可以占据整个绘图框，可是没有箭头不符合我的要求...

Answer 1

Plot有个选项，ImagePadding，手动调节一下。

Comments

ImagePadding -> {{30, 0}, {10, 0}}有效，谢谢

Answer 2

Plot[x,{x,0,1},AxesStyle->Arrowheads[0.03]]

挺好，

Plot[x,{x,0,0.01},AxesStyle->Arrowheads[0.03]]

就不行了。然而Arrowheads中的大小数字说是相对整张图的大小。

Arrowheads疑似有bug。