I think the graph in your book contains an error. When we look closely at the graph of Alexei, then we see that for m=8
and g=0.2
, the graph crosses the y-axis at 0.84. In the picture in your book, this is not the case and the crossing is at {0, 0.65}
(the plot is log-scaled!). Additionally, Alexei's graph ends in {4, 0.67}
while in your book this is the point isn't even on the graph. Instead, it contains the point {3, 0.1}
.
To cut is short: Although you book claims that it depicts g=0.2
, I believe it rather used g=1
.
Additionally, note that you can integrate from -Infinity
to Infinity
in your code. NIntegrate
can handle this. To make this a complete answer:
f[z_] := 1/2 (1 + Erf[z/Sqrt[2]]);
Plot[f[z], {z, -10, 10}, Axes -> False, Frame -> True,
PlotRange -> {Automatic, {0, 1}}]

ClearAll[q];
q[B_?NumericQ, g_?NumericQ, m_?NumericQ] :=
1 - (1/Sqrt[2*Pi])*
NIntegrate[
Exp[-1/2 (z - g*Sqrt[B])^2]*f[z]^(-1 + m), {z, -Infinity,
Infinity}]
LogPlot[Evaluate[q[2^x, 1, #] & /@ {8, 128, 512}], {x, -4, 4},
Frame -> True, Axes -> False, PlotRange -> {Automatic, {0.1, 1}},
GridLines -> {None, {.2, .3, .4, .5, .6, .7, .8, .9}},
PlotLegends -> {"m=8", "m=128", "m=512"}]

Plot[{p[B, 0.2, 8]}, {Log[B, 2], -4, 4}]
isn't syntactically correct. Take a look at the plot range specification on the docs $\endgroup$Plot[{p[B, 0.2, 8]}, {B, 1/16, 16}]
$\endgroup$It fails with an error. long considered?
into Linear-B and then backwards.Damn @m_goldberg you spoiled my joke :) $\endgroup$