%j=map{$_,1}qw/0.87 1.63 1.98 2.00 2.21 2.87 2.92/;print"  Z |";print" 0.0".$_.($_>8?$/:'  ')for 0..9;print"----+".('-'x70).$/;$y=$p=1/sqrt(2*3.14159);$i=$x=0;$v=.5;$n=1e+4;$d=.1/$n;while($x<3.095){if($i%1000<1){printf('%.1f |',$x) if!($i%$n);$u=sprintf('%.4f',$v);print" ".($j{sprintf('%.2f',$x)}?$u-1e-4:$u);print"\n"if$i%$n==9000}$z=$y;$y=exp(-$x*$x/2)*$p;$v+=($y+$z)/2*$d;$x+=$d;$i++;}