For the log-series posterior Example 13.5, find a candidate density q(x; y) such that α(x, y) is nearly constant and nearly 1. Extend the demonstration mh1 using Fortran and single precision by...

For the log-series posterior Example 13.5, find a candidate density q(x; y) such that α(x, y) is nearly constant and nearly 1.

Extend the demonstration mh1 using Fortran and single precision by expanding the sample size to n = 220 or beyond, noting the effects of rounding error (which should slowly deteriorate the results).