Plot of F(x) for A-Law for A = 87.6
Made with Mathematica, 2017-10-03, code:
F[x_] := Sign@x*\[Piecewise] {
{((A*Abs@x)/(1 + Log@A)), Abs@x &lt; 1/A},
{((1 + Log[A*Abs@x])/(1 + Log@A)), 1/A &lt;= Abs@x &lt;= 1}
}
A = 87.6
p = Plot[F@x, {x, -1, 1}]

Export["plot.svg", p]
Own work
Masterxilo1992