Mathematica Tool 1

This notebook is designed to be used with Example 3 in section 9.3

c=0.3989;
F[t_]:=(1/2)+c (∫_0^t)(E^(-((s^2)/2)))\[DifferentialD]s
F[1.47]
1-%